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الإهداء 


إلى والدي ووالدتي الحبيبين وإخوتي 
إلى كل من يتوق للاستفادة من هذا الكتاب 


إلى والدي ووالدتي 


ال الإخوة الذين اقترحوا تجميع المقالات في كتاب واحد 
إلى كل من ساعدني في التجميع والفهرسة 
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مدمه 


هذا الكتاب هو تجميع لأهم مواضيعي ومقالاتي في منتديات البرمجة العربية بلغة خعم. اوج8 اهںءا۷ بإصداراتها المختلفة ابتداء من 2002 
وحتى 2008 وهو لا يشكل مرجعا متكاملا للغة ولكن المواضيع الموجودة فيه تهم كل مبرمج يتعامل مع هذه اللغة راجيا الفائدة لكل من يقرأه 
حيث جمعت المقالات في عدة أقسام متنوعة ليضم كل قسم مجموعة من المقالات المتشابهة بالموضوع لهذا تستطيع قراءة الأقسام بدءا من 
القسم أو الموضوع الذي يعجبك مع الانتباه إلى خصوصية قسم تقنية "أا حيث يتوجب عليك دراسة بعض المواضيع المنوه عنها في بداية 
القسم قبل البدء به ومتابعته بالتسلسل الوارد في الكتاب . 


كما يفضل أن تعرف على الأقل بعض أساسيات اللغة كي تستطيع المتابعة والفهم فيجب أن تكون لديك خلفية جيدة عن أساسيات لغة الفيجول 
بايزيك من حلقات التكرار والحلقات الشرطية وتعريف المتغيرات ومجالها كما أن بعض المواضيع المتقدمة يلزمها أن تكون ملما ببرمجة 
قواعد البيانات وطريقة كتابة استعلامات هم5 وخاصة عندما تنتقل إلى القسم الخاص ب أا مع وجود مواضيع تحتاج إلى إلمام بطريقة 
تعريف وإنشاء الفئات وعءءه ا كما يفضل أن تكون لديك معرفة بمبادئ 1۲۸/1 و 1× لتعلقها ببعض الدروس الموجودة في الكتاب 


القسم الأول - معالجة الأخطاء 


ويضم المواضيع التالية: 
© معالجة الأخظا 
تنقيح الأخطاء في برنامجك 
6 lsliiüwlllٽ Exceptions‏ اصطیاد الأخطاء ومعالجتها 


معالجة الأخطاء 


متى نستخدم معالجات الأخطاء 

يمكنك استخدام معالجات الأخطاء في أي وضع يولد احتمال لحدوث خطأ يوقف تنفيذ البرنامج سواء كان ذلك الخطاً متوقعا أم غير 
متوقع. وبشكل عام تستخدم معالجات الأخطاء لإدارة أحداث خارجية قد تؤثر على مسار تنفيذ البرنامج كفشل في الوصول للشبكة أو قرص 
مضغوط غير موجود أو طابعة أو ماسح ضوئي غير مشغلين مثلا ومن هذه المشاكل المحتملة التي تحتاج إلى معالجات أخطاء: 


ه شبكة/انترنت مشكلة في المخدمات أو تجهيزات الاتصال 

ه قواعد بيانات عدم القدرة على إنشاء اتصال أو تنفيذ استعلام أو أن قاعدة البيانات تعيد خطأ ما 

ه سواقات الأقراص قرص غير مهيا أو مهيأ بصورة غير صحيحة أو قرص قابل للإزالة غير مدخل بشكل جيد 
أو قطاعات تالفة أو حتى قرص ملئ 

ه مشاكل المسارات مسار خاطئ أو غير صحيح 

ه مشاكل الطابعة طابعة مطفأة أو بدون ورق أو غير متوفرة لسبب ما 

مشاکل برمجیات مكونات أو مكتبات يعتمد عليها ملف للتنفيذ ناقصة أو غير منصبة بصورة صحيحة أو 

ه وجود تعارض أو عدم توافقية بين بعض المكتبات 

ه مشاكل أمان البرنامج يحاول القيام بعملية غير مسموحة أو أن المستخدم الذي يشغل البرنامج لا يمتلك 

ه الصلاحيات الكافية لإتمام تنفيذ العملية 

مشاکل ذاكرة مصادر نظام غير كافية 

ه مشاكل الحافظة مشاكل في تبادل البيانات مع حافظة ويندوز 

ه مشاكل منطقية مشاكل صيغة أو مشاكل منطقية لم يستطع المترجم كشفها 


Try ... Catch li 

كتلة الكود التي تستخدم لمعالجة أخطاء زمن التنفيذ تدعى atch‏ ... رآ حيث يمكنك كتابة عبارة 1۲۷ ضمن إجراء معالجة 
الحدث قبل الكود الذي تتوقع أن يولد مشكلة وتليها مباشرة عبارة ١ج٥‏ فإن حدث خطأ في زمن التنفيذ فيتم تنفيذ مجموعة من العبارات 
ضمن كتل Cac‏ ثم ستنفذ مجمو عة من العبارات الاختيارية في كتلة ۴¥ كما یمکن في بعض الحالات تعشيش عدة بلوكات ... TY‏ 
atch‏ داخل بعضها و تكون الصيغة العامة لكتلة Ty ... a‏ 


Try 
Statements that might produce a run-time error 
العبارات الممكن أن تولد خطأً‎ 
Catch 
Statements to run 1f a run-time error OCCUrS 
العبارات التي تنفذ في حالة حدوث خطاً‎ 
Finally 
Optional statements to run whether an error occurs or not 
عبارات اختيارية ستنفذ إن حدث خطأ أم لا‎ 
End Try 


حيث تشكل عبارة ر٣1‏ بداية تعريف معالجة الخطأ في حين أن العبارات ۲۲۷ و ة٤‏ و ۷٣آ‏ كمع هي عبارات إجبارية والعبارة رااه۴ 
اختيارية. ويدعى الكود المتواجد بين عبارتي ۲۲۷ و ءاه بالكود المحمي بسبب أن أخطاء زمن التنفيذ المتولدة ضمن ذلك الكود لا تتسبب 
في توقف البرنامج عن العمل 


فمتلا إن حاولنا فتح ملف صورة وتحميله في صندوق الصورة يمكننا وضع ذلك الكود ضمن كتلة ٣ ... Catch‏ وذلك لحماية البرنامج من 
الأخطاء التي قد تحدث في زمن التنفيذ 


Try 
PictureBox1.Image = _ 
System.Drawing.Bitmap.FromFile("D:\FileOpen.bmp") 
Catch 
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MsgBox("Please insert the disk in drive D") 
End Try 


والمثال التالي يبين لنا كيفية تعشيش كتل 1ھ ... ,٣آ‏ 
Try‏ 
PictureBox1.Image = _‏ 
System.Drawing.Bitmap.FromFile("D:\FileOpen.bmp")‏ 


Catch 
MsgBox("Please insert the disk in drive D, Then Click Ok") 
Try 
PictureBox1.I[mage = _ 
System.Drawing.Bitmap.FromFile("D:\FileOpen.bmp") 
Catch 
MsgBox("File Load feature disabled") 
End Try 
End Try 
E٣ الغرض‎ 
من الأغراض الموروثة المفيدة الباقية من نسخ فيجول بايزيك السابقة الغرض ۴ يته المخد بعلو مات مفصطة لمعالجة‎ 


الأخطاء لكل خطأ زمن تنفيذ يحدث في البرنامج ومع ذلك هناك طرق أحدث لإدارة الأخطاء في الفريموورك مثل الغرض |0٥١‏ معC٤×٤‏ 
القوي وتشكل الخصائص ۲٥ط‏ ٣ں E۲٣.‏ و Err.Descripti ٥۸‏ الخصائص الأكثر إفادة لتحديد أخطاء زمن التنفيغ فالخاصية ٣مطاصErr.NNu‏ 
تحتوي على رقم الخطاً الخاص بآخر خطأ زمن تنفيذ حدث مؤخرا والخاصية ١٩٥آاماا‌یه۴۲۲.0‏ تحتوي على رسالة قصيرة تطابق رقم 
الخطأً الذي حدث مؤخرا وتلك الخاصيتان تمكناك من التعرف على الأخطاء التي حدثت مؤخرا وتحديد الاستجابة المناسبة لها وقد تعطي 
المستخدم رسالة عن كيف يمكن أن يتصرف في حالة حدوث خطأ معين كما يمكنك تفريغ الخطأ بواسطة الطريقة Err.Clear‏ ولکن إن 
استخدمت الغرض E۲٣‏ داخل كتلة ة٤‏ فيصبح من غير الضروري تفريغ الخطأ لأنه لا يتم الدخول إلى كتلة ءج إلا إن حدث خطأً 
والمثال التالي يتعرف على عدة أخطاء زمن التنفيذ باستخدام الغرض ۴٣۲‏ 


Try 
PictureBox1.Image = _ 
System.Drawing. Bitmap.FromFile("D:\FileOpen.bmp") 
Catch When Err.Number = 53 'If File Not Found Error 
MsgBox("Check pathname and disk drive") 
Catch When Err.Number = 7 'If File Out Of Memory Error 
MsgBox("'Is this really a bitmap", , Err.Description) 
Catch 
MsgBox("Problem loading file", , Err.Description) 
End Try 


lıعبlرة Exit Try‏ 
وهي تستخدم للخروج من کتلة ۸ ھ) ... ر٣‏ بشکل مشابھ للعبارات ۴٥۲‏ †|×۴ و طں؟ ٤|×ع‏ المألوفة حیث باستخدامها تخرج كليا 
من کتلة ر٣‏ ولکن إن کان قسم رااھ ہ۴ موجودا فسیتم تنفیذہ ولکن عبارۃ ٣٣y‏ †|×ع تجعلك تقفز فوق بقية عبارات ۸ھ ... ر٣٣‏ الباقية 


Try 
If PictureBox1.Enabled = False Then Exit Try 
PictureBox1.Image = _ 
System.Drawing.Bitmap.FromFile("D:\fileopen.bmp") 
Catch 


Retries +=1 
If Retries <= 2 Then 
MsgBox("Please insert the disc in drive D") 
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Else 
MsgBox("File Load feature disabled") 
Button1.Enabled = False 
End If 
End Try 


مقارنة معالجات الأخطاء مع التقنيات الدفاعية للبرمجة 
استخدام معالجات الأخطاء ليست الطريقة الوحيدة لحماية برنامجك من حدوث أخطاء زمن التنفيذ فقطعة الكود التالية تستخدم 
الطريقة وخوآ»ع.٠|ز۴‏ في مجال الأسماء ۱0.” ءل في مكتبة فئات الفريموورك للتأكد من أن الملف موجود فعلا قبل محاولة فتحه 


If file.Exists("D:\fileopen.bmp") Then 
PictureBox1.lImage = _ 
System.Drawing.Bitmap.FromFile("D:\fileopen.bmp") 
Else 
MsgBox("Cannot find fileopen.bmp on drive D.") 


End If 


في الكود السابق لا تعتبر عبارة ۴| معالج خطاً حقيقي لأنها لا تستطيع منع خطأ زمن التنفيذ من إيقاف تنفيذ البرنامج وبدلا عن ذلك فطريقة 
التحقق هذه التي يستخدمها بعض المبرمجين تدعى بالبرمجة الدفاعية. فهي تستخدم وظيفة مفيدة في مكتبة فئات الفريموورك للتأكد من العملية 
التي ستجري على الملف قبل محاولة فتحه الفعلية. وفي هذه الحالة خاصة فالتأكد من وجود الملف باستخدام الطريقة واءا»٤.ه|۴‏ هي أسرع 
من انتظار فيجول بايزيك لإطلاق الاستثناء واستعادته من خطاً زمن التنفيذ باستخدام معالجات الأخطاء. 

وهنا يظهر لدينا سؤال: متى يجب علينا استخدام طريقة البرمجة الدفاعية ومتى يجب علينا استخدام معالجات الأخطاء؟ ويكون الجواب هو أنه 
يجب عليك استخدام مزيج من الطريقتين في كودك حيث تكون طريقة البرمجة الدفاعية هي الأكثر فعالية لمعالجة المشاكل المحتملة. وكما 
ذكرنا سابقا فالطريقة ءءا»×ع. ۴|٥‏ أسرع من بلوك ۸ه ... ر٣۲‏ لمعالجة الأخطاء لذا فمن المنطقي استخدام تقنية البرمجة الدفاعية من أجل 
الأخطاء التي تتوقع حدوتها بشكل متكرر واستخدام التراكيب الخاصة بمعالجة الأخطاء إذا كان لديك أكثر من شرط لفحصه وتريد تزويد 
مستخدم برنامجك بعدد من الخيارات كاستجابة لذلك الخطاً كما تمكنك من معالجة الأخطاء التي قد لا تتوقعها. 


Debugging Your Application «dhجمlنرب تنقيح الأخطاء في‎ 


عند تطوير تطبيق ما يواجه المبرمج مشاكل وأخطاء تظهر أثناء التنفيذ أو الترجمة وتنقسم هذه الأخطاء إلى عدة أنواع: خطأً بالصيغة وهذا 
يسهل اكتشافه حيث لن يقوم ال ۲عاأم ٥"‏ بترجمة المشروع وتنفيذه إن وجد خطأً من هذا النوع وقد تعترض عليه بيئة التطوير أثناء كتابتك 
لشفرة البرنامج - خط أحمر تحت العبارة - وأخطاء وقت التنفيذ وهذه أخطاء طارئة تحدث أثناء تنفيذ البرنامج ويجب مراقبتها في الشيفرة 
وهنا نستخدم عبارة ۸ه ... رآ لحصر تلك الأخطاء وتجاوزها مثل عندما يحاول البرنامج فتح ملف قد يكون غير متوفر للفتح لأسباب 
متعددة مرتبطة ببيئة التشغيل ونوع آخر وهي أخطاء منطقية في الكود حيث تلاحظ أن صيغة الأوامر صحيحة ولكن البرنامج لا يقوم بالعمل 
کما یجب ففي هذه الحالة طرق تجاوز النوعين السابقين من المشاكل لن تفيدك وستضطر لاستخدام دوت التنقيح Debugging tools‏ لحصر 
وتصحيح تلك المشاكل وفيما يلي بعض التقاط التي تساعدك على استخدام هذه الأدرات لتجارز المشاكل من التوع الأخير 

يمكنك وضع نقاط التوقف واہام۴ )هع8 لإيقاف تنفيذ البرنامج عند سطر معين ويمكن بعد التوقف متابعة تنفيذ البرنامج باستخدام ۴11 
للمتابعة سطر سطر أو ۴5 لمتابعة تنفيذ البرنامج حيث يمكن وضع نقاط التوقف أو إزالتها باختيار البند ومهم )ء8 ماععه٦‏ من قائمة 
عuطعط‏ أو ضغط المفتاح ۴9 أو النقر على الهامش الرمادي بجانب السطر المراد التوقف عنده وتظهر دائرة حمراء بجانب السطر دلالة 
على وضع نقطة التوقف عنده 

لتشغيل البرنامج مع التنقیح اختر عہ اع start Debug‏ من قائمة عںطەD‏ أو اضغط ۴5 ولتشغليه بدون تيح |ختر start Without‏ 
Ctrl+F5 biضl şÎ Debugging‏ 

يمكنك ضغط المفتاح ۴11 لبدء البرنامج مع التنقيح سطر سطر 

اضغط ۴11 سترى أنك قد انتقلت لأول سطر كود سيتم تنفيذه ولمتابعة تنفيذ البرنامج سطر سطر تابع ضغط ۴11 سترى في كل مرة أنه قد 
نفذ سطرا آخر من البرنامج حيث يمكنك استخدام هذه الطريقة للفهم الدقيق لكيفية تنفيذ البرنامج كما أن ۴10 تقوم بنفس عمل ۴11 تقريبا إلا 
أنها إذا واجهت إجراء ضمن الكود الذي يتم تنقيحه فإنها تمرر التنفيذ للسطر التالي فورا دون المرور بتنفيذ ذلك الإجراء سطر سطر كما 
تفعل ۴11 التى تنتقل لذلك الإجراء وتنفذه سطر سطر قبل العودة لتنفيذ باقى الكود المستدعى للإجراء 

يمكنك إيقاف تنفيذ البرنامج وذلك إما بالضغط على زر التوقف من شریط الأدوات أو 6۴-۴5 

اضغط ۴5 لتشغيل البرنامج وبهذا يبدأ تشغيل المنقح ويستمر تنفيذ الكود حتى يمر على نقطة توقف ”ام٣۴‏ )هع8۲ وعندها يتوقف عند 
السطر المحدد بنقطة التوقف المحددة سابقا وبينما أنت في وضع التوقف يمكنك متابعة بيانات الفئات في البرنامج عبر نافذتي sماںA‏ و 
Locals‏ 

نافذة واهعه| تريك جميع المتغيرات المعرفة ضمن مجال التنفيذ الحالي حيث يمكنك استخدامها لرؤية جميع خصائص تلك المتغيرات وقيمها 
ونافذة وم۸ تعمل بطريقة مشابهة ولكنها ترينا متغيرات قد لا تكون معرفة ضمن مجال التنفيذ الحالي 

إذا أوقفت مؤشر الفأرة فوق متغير أو خاصية ما وأنت في وضع التوقف ستلاحظ ظهور نافذة صغيرة تظهر لك تلك الخاصية وقيمتها 
ويمكنك عند الحاجة تغيير تلك الخاصية بالنقر المزدوج عليها وكتابة قيمة جديدة أو الضغط بزر الفأرة اليميني عليھا ثم اختيار ع ا۷ Edi‏ 
من القائمة وتغيير تلك القيمة حيث يمكنك بعدها متابعة التنقيح باستخدام ۴11 

لتغيير السطر التالي الذي سيتم تنفيذ الكود عنده فقط انقر بزر الفأرة اليميني على الخاصية واختر من القائمة Set Next Statement‏ 
ستلاحظ تغير مكان السهم الأصفر الذي يدل على السطر التالي الذي سيتم تنفيذه 

عندما توقف مؤشر الفأرة في وضع التوقف فوق نوع بيانات مركب متل م" التي ند تشير للفئة الحالية مثلا أو متغير يشير إلى فئة أو تركيب 
ما أو قد يشير إلى 6ء034 مثلا يمكنك بالضغط على إشارات + لتنقل ورؤية جميع خصائص تلك الفئة أو نوع البيانات المركب أو تغبيرها 
وذلك بنفس الطريقة التي تستخدمها للتنقل بين عناصر wعi 1۲٥٥۷‏ 

إذا أردت تنفيذ البرنامج حتى يصل لسطر معين يمكنك فعل ذلك مباشرة بدون الضغط على ۴11 للتنفيذ وذلك بالضغط بزر الفأرة اليميني 
على ذلك السطر واختیار ٣میاں) t٥‏ ں۴ حيث سيتم تنفيذ البرنامج حتى ذلك السطر 

لمراقبة قيمة متغير بشكل مستمر نستخدم سملہ اس طعء†ه W۷‏ حيث يمكنك النقر بزر الفأرة اليميني على ذلك المتغير واختيlر Add Watch‏ 
حيث يمكنك رؤية ذلك المتغير ورؤية قيمته أو تغييرها مباشرة من تلك النافذة و بنفس الطريقة يمكنك أيضا إضافة ة۷ لأحد العناصر 
المركبة ورؤية أو تغيير قيمة إحدى خصائصه 

لإزالة متغير من نافذة اج فقط انقر بزر الفأرة اليميني عليه في تلك اlلنافذö‏ وlختûر Delete Watch‏ 

كما يمكنك كتابة اسم المتغير مباشرة في نافذة طء٤جس‏ لمراقبته 

فى حالة وجود كمية بيانات كبيرة أو بنية بيانات معقدة داخل المتغير كبيانات 1× مثلا يمكنك ملاحظة أيقونة مكبرة بجانب تلك القيمة حيث 
يمكتك إا الفط على النكرة سائرة لعرض الانات أو اثر على الس السغر بجاتها لأختار طرة خرص تلك الياات من الفقة 
حيث يمكنك اختيار ٣عzااجںء۷İ‏ ا"× مثلا في حالة بيانات من نوع ×M1‏ 

يمكنك استخدام نقاط التعقب اه٣ ٠٠‏ ه٣1‏ ليقوم المنقح بتنفيذ عمل معين عند وصوله لهذه النقطة دون إيقاف تنفيذ البرنامج أو مع إيقاف 
التنفيذ 

لوضع نقطة تعقب "امم هه٣1‏ انقر بزر الفارة اليميني على سطر الكود ثم من القائمة افر عي Insert Tracepoint ڙڌةخl Breakpoint‏ 
وهذا يودي إلى ظهور مربع حوار اا٣‏ ءا When Breakمoi n‏ الذي يمكنك من تحديد ماذا تريد أن يفعل عندما يصل التنفيذ لذلك السطر 
حيث يوفر لك إمكانية طباعة رسالة أو تنفيذ ماكرو بالإضافة إلى خيار لاستمرار التنفيذ أو إيقافه عند ذلك السطر كما يمكنك استخدام تعابير 
معينة لإظهار قيم خاصة في سطر الرسالة مثل $۲۱٣)‏ لإظهار استخدام المعالج أو "NA M٤‏ لإظهار اسم مسار التنفيذ الحالي Current‏ 
hre Name‏ وعند ضبطها ستلاحظ ظهور معين أحمر بجانب السطر دلالة على ام۴ ٠٤ه٣1‏ عوضا عن الدائرة الحمراء التي تشير 
Break Point‏ وستظھر الرسائل المتعلقة ب † Trace Poi‏ في liفذةö Output‏ 
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الاستثناءات Exceptions‏ اصطیاد الأخطاء ومعالجتها 


التقاط استثناء معين 


لالتقاط استثناء نستعمل بلوك ry ... Catch‏ بشکل عام عندما ينفذ البرنامج عملية معينة قد تولد استثناء فلعمل ذلك نقوم بو ضع تلك الشيفذر 3 
البرمجية بين عبارتي إ٣‏ و ج و بعد العبارة ءج نستكشف الاستثناءات الحاصلة 


Try 
C= aê B 
Catch Ex as OverflowException 
Divided By Zero رiصض للبرنامج اكتشاف استثناء معين والرد عليه فمتلا يمكننا التقاط استثناء القسمة على‎ Catch «jجئll ویتیح‎ 
TEY 


C = A Mod B 
TextBox3.Text = C.ToString () 
Catch Ex as DividedByZeroException 


MsgBox ("Devided By Zero.") 


TextBox3.Text = "Infinity" 


End Try 
Overflow Exception jlضيف‎ ءliڎûتسl وبنفس الطريقة یمکننا استکشاف‎ 
Dim A, B, C As Integer 
Try 
A= TextBox1.text 


B = TextBox2.Text 


18 A + B 
Catch Ex as OverflowException 


MsgBox ("Overflow.") 
TextBox3.Text = "Infinity" 
End Try 


وحتى أيضا يمكننا استخدامه للكشف عن اسم ملف غير صالح 


Dim Fname As New String = "D:\Some Folder\FileName.ext" 
Dim Sfl as new StreamReader 
Try 
SfLl = New StreamReader (Fname) 
TextBox1.Text = Sfl1.ReadToEnd () 
Sfl.Close 
Catch Ex As FileNotFoundException 
MsgBox ("File Not Found") 
End Try 


فحص عدة استثناءات 
غلكما كن أن تزدي السلية الى تقر بخفيذها إلى عة اسكاء ات مكفة يمك قحي نة من الجمل وماوع لمعالجة فك الاستشاءات 


Dim FileDB As New OpenFileDialog () 
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FILLéDB.Filter = "Al1 files | *.* | Text files | *.txt™ 


FileDB.FilterIndex = 2 


FileDB.InitialDirectory = "C:\ Temp" 
FileDB.AddExtension = True 
FileDB.DefaultExt = "txt" 


' Prevent dialog box from validating file 
FileDB.CheckFileExists = False 
FileDB.CheckPathExists = False 


If (FileDB.ShowDialog() = DialogResult.OK) Then 
Dim SourceFile As StreamReader 


Try 
SourceFile = New StreamReader (FileDB.FileName) 


TextBox1.Text = SourceFile.ReadToEnd () 
SourceFile.Close () 


Catch Except As DirectoryNotFoundException 
MsgBox ("Error: " & Except.Message) 


Catch Except As FileNotFoundException 
MsgBox ("Error: " & Except.Message) 


Catch Except As Exception 


MsgBox ("Error: " & Except.Message) 
End Try 
Else 


MsgBox ("User selected Cancel") 


End If 


معالجة الاستثناءات باستعمال بلوك طج٤‏ عام 
عندما ينفذ كائن عملية نيابة عن البرنامج فقد يولد نطاقا واسعا من الاستثناءات بناء على سير تنفيذ البرنامج وقد لا تهمك ما هي هذه 
الاستثناءات بقدر ما يهمك أنه قد حصل هناك استثناء ما ولمعالجة الاستثناءات بغض النظر عن نوعها فإننا لانحدد استثناء معینا بل نستخدم 


Catch Ex as Exception 
مثال‎ 


Try 


E Some Code Here 


Catch Ex As Exception 


MsgBox ("Error: " & Ex.Message) 


End Try 


إجراء التنظرف بعد حدوث استثناء 

عند استعمالك لبلوك Try ... Catch‏ للرد على سلسلة من الاستثناءات ستنفذ عادة عمليات تخص كل استثناء ضمن بلوك ١ع‏ ج المناسب 
وبناء على الأمور التي يقوم بها برنامجك عليك القيام بعم لهات معينة بعد حدوث استثناء وذلك بغض النظر عن نوع الاستثناء ولهذا الغرض 
نستخدم عبارة رااه ذ۴ في نهاية بلوك ۸ه ... ر٣۲‏ تحدد الجمل التي نريد تنفيذها بغض النظر عن نوع الاستثناء مع ملاحظة أن العبارات 
الموجودة ضمن بلوك ۴٣21|‏ سيتم تنفيذها دوما بغض النظر عن حدوث استثناء أو لا 


Dim FileDB As New OpenFileDialog () 
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£ = Al] files | *.* | Text files | *.txt™ 
rIndex = 2 

alDirectory = "C:\Temp" 

tension = True 

lILExXxtL = "txt" 


Prevent dialog box from validating file 


.Filte 


.Filte 
TRALEE 
.AddEx 
.Defau 


FileDB 


FileDB 


FileDB. 


FileDB 
FileDB 


FileDB.CheckFileExists = False 
FileDB.CheckPathExists = False 


(FileDB.ShowDialog() = DialogResult.OK) Then 


urceFile As StreamReader 


SourceFile = New StreamReader (FileDB.FileName) 
Except As Exception 

MsgBox ("Error: " & Except.Message) 

¥ 


t SourceFile Is Nothing) Then 
Try 


TextBoxl1.Text = SourceFile.ReadToEnd () 
Catch Except As Exception 
MsgBox ("Error: " & Except.Message) 


Finally 
MsgBox ("In finally statements") 
SourceFile.Close () 


End Try 


("User selected Cancel") 


Dim So 


FEY 


Calton 


End Tr 


If (No 


End If 


MsgBox 


Else 


End If 


E 


وفي بعض الحالات قد تكون هناك أوقات لا تريد استكمال تنفيذ البلوك ۸ه ... ر٣۲‏ عندها تستخدم العبارة ۴×٤ ۲٣۷‏ للخروج من البلوك 


ome Code 


S 


If SomeCondition Then Exit Try 


Hxception 


of Try Block 


إطلاق استثناءاتك الخاصة 


xX as 


TEY 


Rest 


TEY 


elel 


Exit 


Ca 


هناك أوقات تحتاج فيها لتكوين استثناء خاص بك عندها ستحتاج بكل بساطة لإنشاء فئة ووجاح ترث الفئة - Exception‏ فعلی سبيل المتال 


یمکننا تولید استثناء باسم ٣0ا‏ م 4EM ai| Exc‏ iاnva|‏ كما يلي 


Public Class InvalidEMailException 
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Inherits System.Exception 


Sub New (ByVal Message As String) 
MyBase.New (Message) 

End Sub 

End Class 


و بالطبع يمكنك إنشاء طرق وخصائص في هذه الفئة حسب احتياجاتك كأي فئة أخرى وفي مثالنا المبسط هنا أنشأنا مشيد الفئة فقط وبعد 
إنشاء فئة الاستثناء الخاصة بنا يمكننا توليد الاستثناء باستخدام العبارة 10W‏ 


Throw New InvalidEMailException ("Envalid Email Please Correct™") 
وفيما يلي مثال آخر‎ 


Public Class MyException 
Inherits System.Exception 


Sub New (ByVal Message As String) 
MyBase.New (Message) 

End Sub 

End Class 


Public Class Forml 
Inherits System.Windows.Forms. Form 


Private Sub Buttonl Click (ByVal sender As Object, _ 
ByVal e As System.EventArgs) Handles Button1.Click 


Try 
MsgBox ("About to generate custom exception") 
Throw (New MyException ("** Custom Message **")) 


Catch Ex As MyException 
MsgBox ("Custom Exception thrown " & Ex.Message) 


End Try 


End Sub 


End Class 


ترشيح الأخطاء في قسم ۸1۳# في بلوك 1۸۷ عند اصطياد الأخطاء 
يوفر لنا قسم ءج في بلوك ر٣‏ أكثر من خيار لترشيح الأخطاء وإحدى هذه الطرق هي بتحديد نوع الخطأ المراد اصطياده وهنا يجب 
عليك البدء بالنوع الأكثر تحديدا منتهيا بالنوع الأكثر عمومية بما أن قسم ۸ه يتم تنفيذه بترتيب كتابته كما يمكن استخدام ۷/٠١‏ في قسم 
atch‏ لتحديد أكثر دقة مثل تحديد رقم خطأاً معين حيث يمكنك دمج هذه الأساليب للحصول على الطريقة المناسبة لبرنامجك 
متال: 
TEY‏ 
ا تسكفك ان االفج تمل كردك " 
Catch ex As System. IO. IOException‏ 
]0Exception‏ الخطاً مع للتفاعل كود ' 
Catch ex As System.NullReferenceException‏ 
Nu11ReferenceException‏ الخطأً مع للتفاعل كود ' 
Catch ex As Exception When Err.Number = 5 Or Err.Number = 8‏ 
8 آي & اطا رقم مكون تدا لتاقل وق ' 
Catch ex As Exception‏ 
آخر خطاً آي مع للتفاعل گرد ' 
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End Try 


فيما يلي بعض فئات الأخطاء ووصف سريع لكل منها 


الفئة 


AmbiguousMatchException 
ApplicationException 


ArgumentException 
ArgumentNullException 
ArgumentOutOfRangeException 
ArithmeticException 
ArrayTypeMismatchException 
ConfigurationException 
ConstraintException 
DataException 
DirectoryNotFoundException 
DivideByZeroException 
DuplicateNameException 


EvaluateException 

Field AccessException 
FormatException 
IndexOutofRangeException 
InvalidCastException 
InvalidOperationException 
IOException 


EndOfStreamException 
FileLoadException 
FileNotFoundException 
InternalBufferOverflowException 
MemberAccessException 
MethodAccessException 
MissingFieldException 
Missing MemberException 
MissingMethodException 
NotlmplementedException 
NotSupportedException 
NullReferenceException 
OutOfMemoryException 


OverflowException 
RankException 
ReadOnlyException 
ResourceException 
SyntaxErrorException 
Unauthorized AccessException 


الوصف 


موروتة من هذه الفئة 

القيمة الممررة غير صحيحة 

القيمة الممررة لا يمكن أن تكون لاشئ ومع ذلك قيمتها لاشئ 

القيمة الممررة خارج المجال المقبول 

خطأ إسناد أو تحويل في عملية حسابية 

البرنامج يحاول القيام بإدخال عنصر من نوع خاطئ في المصفوفة 

قيمة الإعداد غير صحيحة 

عملية البيانات تسبب خطأً في القيود على قاعدة البيانات 

الفئة الأب لجميع فئات الأخطاء المتعلقة ب .۸٤1‏ ۸50 

المجلد المطلوب غير موجود 

خطأ القسمة على صفر 

عملية .[N6)‏ ۸50 واجهت اسما مكررا. مثل آنك تحاول إنشاء جدول مع آنه يوجد جدول موجود سابقا 
ويملك نفس الاسم 

يحدث عندما لا يستطيع البرنامج تقييم قيمة التعبير الموجود في عمود قاعدة البيانات 
البرنامج يحاول الوصول إلى خاصية للفئة بطريقة غير صحيحة 

تنسيق القيمة الممررة غير صحيح 

البرنامج يحاول الوصول إلى عنصر يقع خارج حدود المصفوفة آو آي عنصر احتواء آخر 
البرنامج يحاول القيام بتحويل نوع غير صحيح 

العملية المطلوبة حاليا غير مسموح بها 

الفئة الأب لجميع فئات أخطاء الدخل/الخرج. 

خطأ دخل/خرج عام 

وصل ال صهعع)؟ إلى نهايته 

لا يمكن إيجاد الملف المطلوب 

حدوث فیضان في Buffer I‏ الداخلي 

البرنامج يحاول الوصول إلى عنصر في فئة بطريقة غير صحيحة 

البرنامج يحاول الوصول إلى الطريقة بطريقة غير صحيحة 

البرنامج يحاول الوصول إلى خاصية غير موجودة في الفئة 

البرنامج يحاول الوصول إلى عنصر غير موجود في الفئة 

البرنامج يحاول الوصول إلى طريقة غير موجودة في الفئة 

العملية المطلوبة غير معرفة 

الخاضية النطلو نة غير مدعردة 

البرنامج يحاول استخدام مرجع إلى غرض اء زط0 قيمته لاشئ 

لاتوجد ذاكرة كافية 

فمثلا إن كان المستخدم يحاول توليد مجموعة بيانات ضخمة يمكنك التنبؤ بحجم الذاكرة التي سيحتاجها 
البرنامج واختبار إن كانت متوفرة فتقوم برمي هذا الاستثناء إن لم تكن كافية 
خطأاً فيضان في عملية حسابية 

الإجراء يحاول استخدام مصفوفة تملك عددا خاطنئا من الأبعاد 

البرنامج يحاول تعديل بيانات للقراءة فقط 

المصدر المطلوب مفقود 

خطا فن الضحغة عند إقاد فة لخاضحة 

النظام يمنع الوصول بسبب عدم كفاية الصلاحيات 


التقاط الاستثناءات الغير معالجة فى التطبيق 
في Events‏ icationاApp‏ يوجد الحدٿث ۸٥i0†مxce٤ed4اUnhand‏ الذي يستقبل جميع الاستثناءات الغير معالجة في التطبيق مع ملاحظة 
أنه عندما يصل الاستثناء لهذا الحدث فإن التطبيق سيتم إنهاؤه ولا يعود مسار التنفيذ لداخل التطبيق 
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القسم الثاني - البرمجة المتعلقة ب ۷8۸ و ۷86 و 
Microsoft Office‏ 


ويضم المواضيع التالية: 
ه الفروقات بين ۷82008 و #€ و ۷86 
ه ملاحظات هامة عند ترقية مشاريع ۷86 إلى 2008 ۷8 
ه مكتبة التوافقية الخاصة بفيجول بايزيك 6 
ه هل تعاني من مشكلة في معالج تحديث الكود من ۷86 إلى ۷82005 
ه استخدام كود فيجول بيزيك دوت نيت في فيجول بيزيك 6 
ه كيف يمكننا استخدام فيجول بايزيك 2008 لإنشاء صفحات أشرطة إضافية ل 
Excel 2007‏ 
ه أتمتة وورد 2007 باستخدام فيجول بايزيك دوت نيت 
ه كتابة شيفرة لإنشاء "أ- ل۸ يتم استدعاؤه من ۷8۸ 
ه كيف نستدعي صناديق الحوار الخاصة بمايكروسوفت وورد من برنامجنا 
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الفروقات بين ۷782008 و €#3.0 و ۷86 


هذه الإصدارة من فيجول بايزيك قد تم تصميمها خصيصا لتستخدم نماذج البرمجة الجديدة التي تم تقديمها ضمن الفريموورك 3.5 وقد تم 
تصميم كلا من ۷/8 و K#‏ للعمل مع مكتبات زمن التشغيل للفريموورك C1۴‏ حيث تم تصميم لغة C#‏ لاستهداف جمهور المبرمجين الذين 
يعملون على K++‏ بينما تم تصميم الفيجول بايزيك 2008 لاستهداف الجمهور العريض لمبرمجي البايزيك السابقين ومن أجل أن تتمكن لغة 
البيزيك من استخدام الميزات المقدمة من قبل الفريموورك 3.5 كان لابد من أن تقدم مزيدا من الدعم الأقوى للبرمجة غرضية التوجه 00۲ 
مع احتفاظها بميزات أمان الأنواع 


بین ۷82008 و #€ 

تعتبر هاتان اللغتان متطابقتان فيما يتعلق بما يمكنك تحقيقه بهما حيث يمكن استخدام أيا منهما للوصول إلى جميع الفئات والوظائف المقدمة 
من قبل الفريموورك وبشكل أساسي يمكنك أن تطور أي شيئ باستخدام ۷/82008 تماما كما لو أنك طورته باستخدام ٥#‏ مع أن إحدى هاتين 
اللغتين قد تقدم لك انسيابية أكثر اعتمادا على ما تقوم بعمله وإن أردنا المقارنة بين اللغتين سنجد أنه من الأسهل لنا نت نتحدث عن الفروقات 
من أن نتحدث عن الأشياء المشتركة بينهما فكلتاهما تدعمان جميع الإضافات الجديدة للغة متل 1|١0۵‏ و الأنواع المجهولة وتعابير لمدا 
وغيرها ويكمن الفرق الحقيقي في أن K#3.0‏ تقدم إمكانية لكتابة كود غير آمن بينما تقدم ۷/8 إمكانية الربط المتأخر حين يكون الكود الغير 
آمن في C#‏ عبر استخدام المؤشرات لإدارة الذاكرة مباشرة فربما تحتاج الكود الغير آمن لأسباب تتعلق بالأداء أو لبعض استدعاءات 

|۴ sس0ل Win‏ ذات المستوى المنخفض حيث يكون الكود الغير آمن مفيدا في بعض الحالات مع عدم النصح باستخدامه لأنه لا يمكنك 
التأكد من أمانه إضافة إلى أنك لن تستطيع التأكد من أن جامع النفايات سيتمكن من إزالة الأغراض الموجودة في الذاكرة وتحرير مصادر 
النظام المستخدمة من قبل تلك الأغراض بينما تم الإبقاء على الربط المتأخر في لغة الفيجول بايزيك من أجل التوافقية مع النسخ السابقة حيث 
أن الربط المتأخر يسمح لك بإنشاء متغيرات من النوع 08(٤٤١۲‏ ثم تعيينها بواسطة متغير من نوع ما أو باستخدام انئدlلة CreateObject‏ 
ويفضل الربط المبكر عن الربط المتأخر لأنه يرفع مستوى الأداء إضافة إلى أن استخدام الربط المتأخر لا يمكن المترجم من اكتشاف بعض 
الأخطاء مما يعني إمكانية كبيرة لحدوث أخطاء في زمن التشغيل 


بین ۷82008 و V86‏ 

تم إعادة صياغة لغة الفيجول بايزيك بشكل كلي ابتداء من ۷/82002 وذلك من أجل دعم C1۴‏ فهي تحمل شبها اسميا فقط مع ۷86 مما عنى 
انعطافا كبيرا في التعلم بالنسبة للعديد من المبرمجين ولكن بالمقابل عندما تطبق الطريقة البرمجية الجديدة بشكل صحيح باستخدام بيئة 
التطوير المحسنة ينتج لديك برمجيات أفضل ويقدم لنا C1۴‏ إضافة لذلك إدارة محسنة للذاكرة وأمان الأنواع والبرمجة غرضية التوجه 00۲ 
وأحد التغييرات الكبرى التي طرأت على لغة البيزيك هي أنها أصبحت لغة حقيقية للبرمجة غرضية التوجه ۴ مما يعني أن جميع 
الأغراض هي موروثة من اع زط 0. Sys‏ وبدلا من VB Runtime‏ و اAP Win32‏ أصبح لدينا مكتبة فئات أساسية كاملة 8٣1‏ لتعمل 
معها ويكمن التحدي للمبرمجين المنتقلين حديتا للإصدارة الجديدة في الإبحار عبر الفريموورك ومعرفة أين يجدون الفئات التي يحتاجونها 
وكلما أصبحت متآلفا أكثر مع الفريموورك أصبح بإمكانك كتابة برامج أفضل وأسرع حيث يعتبر 1ا٤8‏ جزءا من الفريموورك يوفر أنواعا 
تستخدم في أي كود سيتم كتابته للعمل ضمن C1۸8‏ وهذا يتضمن العديد من مجالات السlnء‏ مڌJ System.IO gy System.Collections‏ و 
System.Registry‏ و System.Text‏ و System.Drawing‏ وغيرھا 
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ملاحظات هامة عند ترقية مشاريع 786 إلى 2008 غ». V8‏ 


على الرغم من أن عملية ترقية مشاريع 6 إلى إصدار 2008 تتم بمعظمها بصورة آلية إلا أنه هناك بعض النقاط الواجب أخذها 
بعين الاعتبار للتحضير لعملية الترقية. وبمراعاة الملاحظات التى سترد هنا يمكنك تقليل أو إلغاء العديد من التعديلات التى ستضطر لعملها 
بعد انتهاء معالج الترقية وفي معظم الحالات تكون هذه التوصيات عبارة عن ممارسات برمجة جيدة وسيفيدك معرفة الطرائق والأغراض 
التي لا يوجد لها مكافئات في عملية الترقية. وبشكل عام فإن لم تتم عملية ترجمة وتشغيل المشروع بصورة جيدة ضمن بيئة ۷/866 فلا تتوقع 
أن تتم عملية الترقية بنجاح لهذا يقترح تنصيب ۷86 على الجهاز الذي ستتم عليه عملية الترقية واختباره هناك أولا. إضافة إلى أن معالج 
الترقية إلى 2008 يقوم بالترقية من الإصدار 6 فقط فإن كانت لديك مشاريع على الإصدارات من 1 إلى 5 فيجب فتحها ضمن بيئة تطوير 
6 وترقيتها إلى الإصدار السادس قبل البدء بعملية الترقية للإصدار 2008 ولا تنس استخدام |ئخlıر upgrade Microsoft ActiveX‏ 
ئ tصnدع‏ عند ترقية مشاریع الإصدارات القديمة للآإصدار السادس. 
يمتلك الإصدار 2008 رزمة من النوافذ وتحكماتها متوافقة بشكل كبير مع تلك الموجودة في الإصدار السادس ومع ذلك توجد بعض 
الاختلافات التي سنوردها: 
٠‏ الإصدار 2008 لا يدعم التحكم 0e Container‏ لذا يجب عليك تجنب استخدامهھ في المشاريع التي تنوي ترقیتها 
ه لا يوجد هام0 ممهhطك‏ في الإصدار 2008 حيث سيتم ترقية المربعات والمستطیلات إلى تحکمات ٥١‏ طھ] بینما الدوائر 
والأشكال الاهليلجية لا يمكن ترقيتها لذا يجب عليك تجنب استخدامها 
ه لا يوجد اهإاصه) عم iا‏ في الإصدار 2008 حيث سيتم ترقية الخطوط الأفقية والشاقولية إلى تحكمات ١عطه]‏ بينما الخطوط 
المائلة لن يتم ترقيتها لذا يجب عليك عدم استخدامها 
ه يمتلك الإصدار 2008 أوامر رسومية جديدة تستبدل الطرائق التالية د ص۲٥۴‏ وهي Circle‏ و Cls‏ ۾ Point sy Line y PSet‏ 
وبسبب أن Object Module I‏ الجديدة مختلفة عن القديمة لذا لا يمكن ترقية هذه الطرائق 
۾ من أجل التحكم ٣me‏ عند ضبط الخاصية اج۷ |٥‏ إلى الصفر فإن التحكم لا يتوقف عمله بل سیتم إعادة ضبط قيمة الخاصية 
إلى 1 واحد ولإیقاف عمل التحکم ١٥ص٣‏ يجب عليك ضبط الخاصیة dعاطھہع‏ إلی ماج۴ عوضا عن ضبط قیمة اھ۷٣ |٥‏ إلى 
الصفر 
٠‏ بيمتلك الإصدار 2008 تحكمان خاصان بالقوائم هما MenuStrip‏ و StripئMenu Context‏ بينما في الإصدار السادس هناك 
تحکم قوائم واحد یمکن استخدامه ک ع( أو Context Menu‏ لذا سیتم ترقیة جمیع تحکمات القوائم إل تھكp MenuStrip‏ 
يمتلك عدة ٣s‏ ع†اںم N‏ من أجل كل تحكم قائمة وعند ترقية uا١ع۷×ع٤۸ه٥)‏ يجب عليك إعادة إنشائها وحذف التحكمات 
MenuStrip‏ الزائدة 
لا يمتلك الإصدار 2008 دlae‏ — Dynamic Data Exchange DDE‏ 
٠‏ على الرغم من أن الإصدار 2008 يمتلك دعما لوظيفة م٥0۲‏ ل٣۸‏ عها5 إلا أنها تختلف بشكل كبير عن تلك الموجودة في 
الإصدار السادس لذا فإن وظائف السحب والإفلات لا يمكن ترقيتها 
يمتلك الإصدار 2008 دعما محسنا للغرض ٥۵2۲4‏ طمiاCz‏ من خلال o24‏ طمiاMy.computer.C‏ حیث یقدم دعما لوظائف 
وصيغ أكثر من تلك الموجودة في الإصدار السادس وبسبب الاختلافات الكبيرة فلا يمكن القيام بعملية ترقية الكود المستخدم ل 
boardمipاC‏ بصورة آلية 
٠‏ لا يدعم الإصدار 2008 الخاصية ٥ه"‏ للنموذج والتحكمات في زمن التشغيل لذا يجب عليك الدوران من خلال Controls‏ 
ectionااهc‏ عند بحثك عن تحكم يمتلك اسما معينا. وهذه الوظيفة متوفرة في Framework‏ etم.‏ من خلال الفئات 
System.Reflection‏ 
ه وفيما يتعلق بقواعد البيانات فإن الإصدار 2008 يمتلك نسخة محسنة من ۸00 هي اع". ۸00 محسنة من أجل البيانات في 
التطبيقات الموزعة. وعلى الرغم من أنه يمكنك استخدام R00‏ و ۸050 في الإصدار 2008 مع بعض التعديلات البسيطة إلا أنه 
لا يدعم أدوات الربط مع قواعد البيانات الخاصة ب RDO User yi Y! gy Data Controls lضyl, RDO sy DAO‏ 
nnectionه.‏ لذا ينصح أنه إذا كان برنامجك يستخدم تحكمات 040 و R00‏ بإما تركهم في الإصدار السادس أو ترقيتهم إلى 
تحكمات ۸00 قبل القيام بعملية الترقية للإصدار 2008 بما أن ۴٥٣٥s‏ 0WwsلہWi‏ یدعم تحکمات ۸00 


ال 
في حالة الترقية من 2002 اعم.ط۷ أو 2003 إلى 2008 ۷6.٥٤‏ هناك عملية ترقية تلقائية هل توجد شروط أو حالات معينة يجب التنبه 
إليها في حالة الترقية 


الجواب 

بالنسبة لمشاريع 2002 و 2003 سيتولى معالج الترقية معظم العملية ويتبقى عليك مراجعة الكود لمتابعة الملاحظات التي قد يضعها معالج 
الترقية وإجراء بعض التصحيحات البسيطة ضمن الكود وبشكل عام ستتم عملية الترقية بسلاسة وبالنسبة لمشاريع 2005 ستتم عملية الترقية 
بسلاسة ودون أي مشاكل تذكر 


هناك ملاحظة تتعلق بموضوع استقرار الكود نتيجة التجربة تستحق الذكر 
عندما نستخدم إجراء من مكتبة خارجیة ۲32٥eوں‏ ولیكن ع" 0اس ۷1۸0ء في ۷86 کنا نعرفه بالشکل 
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Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ 
(ByVal hwnd As Long, ByVal nIndex As Long) As Long 


وفي نسخة ال 2002 و ال 2003 كنا نستطيع استخدام نفس التعريف بدون اعتراض بيئة التطوير رغم أن مجال المتغيرات قد اختلف بين 
6ر ال عم. فالنوع عمها في ۷6 يكافئ ۲عععا"| في عم. وبناء عليه فالتعريف السابق كان يجب تصحيحه إلى 


Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ 
(ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer 


وهنا ابتداء من الإصدارة 2005 أصبحت بيئة التطوير تولد خطأ في زمن التنفيذ عند التعامل مع تعريفات لإجراءات من مكتبات خارجية لم 
يتم تعريف أنواع المتغيرات فيها بدقة لذا يجب تصحيح هكذا تعريفات حتى يتم تنفيذ مشروعك بصورة صحيحة بعد عملية الترقية 


كيف تتم ترقية المشاريع من ۷86 

افتح البرنامج على ۷/86 واختبره جيدا وصحح النقاط الواجب تصحيحها وفق الملاحظات الواردة سابقا 
ه احفظ نسخة احتياطية من المشروع دوما قبل القيام بعملية الترقية 

افتح المشروع بواسطة بيئة تطوير ۷/82008 واتبع خطوات المعالج البسيطة 


سوال 
ه لدي قطعة كود على ۷/86 أو ۷/84 وأريد ترقيتها ولكنها ليست مشروع كامل 


الجواب 
ه افتح مشروعك الذي تنوي استخدام قطعة الكود فيه ثم انتقل في محرر الكود إلى النقطة التي ترغب في إدراج الكود بعد الترقية فيه 
ه من القائمة ءامه] اختر مله 6 Basi‏ امuء۷‏ مdماعمل‏ ألصق الكود المراد ترقيته في صفحة ٥4٥١‏ ثم أضف أية مراجع 
ربما يحتاجها الكود من الصفحة وع" R٠٠ ۲٠‏ تم اضغط زر هله عمل وانتظر قليلا فتتم عملية ترقية الكود وإدراجه في محرر 
الكود لديك 
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فقة 


مكتبة التوافقية الخاصة بفيجول بايزيك 6.0 
يعتبر فيجول بايزيك 8 تطورا كبيرا عن فيجول بايزيك 6 حيث يمكننا اعتباره لغة جديدة في عائلة لغات البايزيك كما يمكننا 


إيجاد العديد من الوظائف والتعدادات والأنواع المخصصة والأغراض التي كانت موجودة سابقا في فيجول بايزيك 6 في مكتبات فئات الدوت 
نيت. وبالنظر إلى هذه الحقيقة فإن إي مشروع فيجول بايزيك 2008 جديد يتضمن مرجعا تلقائيا إلى أحد مجمعات الدوت نيت المسمى 

اا Microsoft .Visual Basic.‏ الذي يحدد أنواع تزودنا بوظائف موروثة من فيجول بايزيك 6 وكأي مجمع آخر في الدوت نيت فإن 
ااc.d Microsoft. Visual Basi‏ مؤلف من العديد من مجالات الأسماء المجمعة مع بعضها. 

وتکون هذه المجمعات متوفرة تلقائيا لكل ملف ط۷ في مشروعك وهذا يعني أنك لا تحتاج إلى تصريح الاستيراد Import‏ للوصول إلى تلك 
الأنواع. وبهذا مازال يمكنك الاستفادة من العديد من عناصر فیجول بايزيك 6 مٿل الوظيفة MsgBox‏ التي تستدعى لإظهار صندوق رسائل 
بسيط كما في المثال 


' The Microsoft. VisualBasic namespaces 
' are automatically referenced by a 
' Visual Studio 2008 VB project 
Module Module1 
Sub Main) 
MsgBox("Hello, old friend ...") 
End Sub 
End Module 


والطريقة ×ه8عء" هي عنصر في ماله" في فيجول بايزيك 2008 تسمى ١٥ا‏ ه۲٠"|‏ وهي معرفة ضمن مجال الأسماء 
.Microsoft. Visual Basic‏ وستلاحظ أن ال عاu‏ له" في فيجول بايزيك 2008 تماثل ملف هط في فيجول بايزيك 6 في أن العناصر 
المحتواة ضمنها يمكن استدعارهم بدون استخدام اسم ال عاu Mod‏ کبادئة ومع ذلك إن أردت استخدام اسم ال عاModu‏ کبادئة عند استخدام 
الطريقة ×ه 8ع" يمكن أن يصبح كودنا السابق كما يلي 


Module Module1 
Sub Main(0 
Interaction.MsgBox("Hello, old friend ...") 
End Sub 
End Module 


ومع أننا نشعر بالاطمئنان لمعرفة أن وظائف فيجول بايزيك 6 مازال يمكن تمثيلها ضمن مشاريع فيجول بايزيك 2008 فينصح هنا بتجنب 
استخدام هذه الأنواع قدر الإمكان نظرا لأن مايكروسوفت تخطط الإزالة دعم فيجول بايزيك 6 مع الزمن وأنه لا يمكنك ضمان أن 
مايكروسوفت ستوفر هذا المجمع مستقبلا. وتوفر مكتبات الفئات الأساسية العديد من الأنواع المدارة التي تقدم وظائف أكثر من تلك الموجودة 
في المكتبة الموروثة من لغة فيجول بايزيك 6. ويجب أن تتعلم كيف تقوم بالعمل بدون استخدام موجودات مكتبة التوافقية مع فيجول بايزيك 6 
والقيام بالأمور باستخدام فئات الدوت نيت. 
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هل تعاني من مشكلة في معالج تحديث الكود من ۷86 إلى ۷82005 


ظاهرة المشكلة 
المعالج لا یتم تنفیذہ ويظھر لك خطأ رقم ۴ X8007068‏ أو 0×800706B8۸‏ أو کلیھما 
أقدم إليك مجموعة من الحلول التي ممكن أن تفيد في تجاوز هذه المشكلة 


الحل الأول: 


إذا كنت قد وضعت إعداد اللغة الافتراضية إلى أحد اللغات الموجودة في الجدول التالي: 


10241 Ox2801 Arabic (Syria) ar-sY 1256 ARS 
1029 Ox2809 English (Belize) en-BZ 1252 ENL 
10250 Ox280a Spanish (Peru) es-PE 1252 ESR 
11265 Ox2cO01 Arabic (Jordan) ar-JO 1256 ARJ 
11273 Ox2c09 English (Trinidad) en-TT 1252 ENT 
11274 Ox2cO0a Spanish (Argentina) es-AR 1252 ESS 
12289 Ox3001 Arabic (Lebanon) ar-LB 1256 ARB 
12297 Ox3009 Windows 98/Me, Windows  en-ZW 1252 ENW 

2000 and later: English 

(Zimbabwe) 
12298 Ox300a Spanish (Ecuador) es-EC 1252 ESF 
13313 0x3401 Arabic (Kuwait) ar-KW 1256 ARK 
13321 0x3409 Windows 98/Me, Windows en-PH 1252 ENP 

2000 and later: English 

(Philippines) 
13322 O0x340a Spanish (Chile) es-CL 1252 ESL 
14337 Ox3801 Arabic (U.A.E.) ar-AE 1256 ARU 
14346 Ox380a Spanish (Uruguay) es-UY 1252 ESY 
15361 Ox3cO01 Arabic (Bahrain) ar-BH 1256 ARH 
15370 Ox3cO0a Spanish (Paraguay) es-PY 1252 ESZ 
16385 Ox4001 Arabic (Qatar) ar-QA 1256 ARQ 
16394 Ox400a Spanish (Bolivia) es-BO 1252 ESB 
17418 Ox440a Spanish (El Salvador) es-SV 1252 ESE 
18442 Ox480a Spanish (Honduras) es-HN 1252 ESH 
19466 Ox4cO0a Spanish (Nicaragua) es-NI 1252 ESI 
20490 Ox5OOa Spanish (Puerto Rico) es-PR 1252 ESU 
31748 Ox7c04 Chinese (Traditional) zh-Hant 


فيجب عليك تعديل اللغة الافتراضية من لوحة التحكم إلى أي لغة أخرى وبالنسبة لمستخدمي اللغة العربية يمكنهم وضع اللغة على ه۸۲ 
(Saudi Arabia)‏ 


الحل الثاثنى 
ربما يکون الملف 11 VB Upgrade. "gi ٥.0‏ غير مسجل أعد تسجيله يدويا باستخدام الأمر 


regasm C:\Program Files\Microsoft Visual Studio 8\VB\VBUpJgrade\VBUpgrade.Engine. DLL 
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الحل الثالث 
ربما يكون الف Microsoft.VisualBasic.UpgradeExtensions.DLL‏ غير مسجل أعد تسجیله يدويا مع العلم أنه موجود في 
الإصدارة 2005 في المسار 


C:\Program Files\Microsoft Visual Studio 8\VB\VBUpgrade\ 


regasm Microsoft.VisualBasic.UpgradeExtensions. DLL 


الحل الرابع 
تأكد من الريجستري إذا كان موجودا فيه المفتاح التالي قم بحذفه ثم أعد تسجيل جميع المكتبات الموجودة في المجاد C:\Program‏ 
Regasm öادÎJ| ãةطwlgب \Files\ Microsoft Visual Studio 8\VB\VBUpgrade‏ 


[HKEY CLASSES _ROOT\CLSID\ {A8220117-B52C-4012-8CB7-2E0202B3A624}\InprocServer32\8.0.1200.0] 


"Class"="Microsoft.VisualBasic.UpgradeExtensions. ResUtil" 


"Assembly"="Microsoft.VisualBasic.UpgradeExtensions, Version=8.0.1200.0,Culture=neutral, 
PublicKeyToken=b03f5f7f11d50a3a" 


"RuntimeVersion"="vy2.0.40607" 
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استخدام كود فيجول بيزيك دوت نيت في فيجول بيزيك 6 


يمكن للبرامج المبنية على K0M‏ متل ۷/86 التعامل مع الكود الخاص بك والمكتوب ضمن الفريموورك مJû Class - Interface - struct‏ 
enum‏ - اذا تم إتباع القواعد التالية بشكل عام: 


ه يجب على الفئات تعريف واجهة 
٠‏ التعریف باستخدام icاbاںمP‏ 
° الأنواع م لا يمكن أن تكود مجردة 


كما يمكنك تحدید فیما إذا کان یمکن أو لا يمكن رؤية الإجراء أو الفئة أو ... الخ من عملي ة ال صن باستخدام الواصفة 
Com isibاeAttri bute‏ كالمتال 


Imports System.Runtime. InteropServices 


<ComVisible (False)> _ 
Class SampleClass 


Public Sub New () 
"Insert code here. 
End Sub 


<ComVisible (False)> _ 

Public Function MyMethod (param As String) As Integer 
Return O0 

End Function 


Public Function MyOtherMethod() As Boolean 
Return True 


End Function 


<ComVisible (False)> _ 
Public ReadOnly Property MyProperty() As Integer 
Get 


Return MyProperty 
End Get 
End Property 


End Class 


ويجب عليك تسجيل مجمع . اعم لعملاء ال )٥۳‏ حتى يمكن استخدامها وذلك باستخدام م×ع.م×٥ ۲۱٥‏ و ع×ع.۳ء۸عءR‏ للقيام بعملية 
التسجيل ويستخدم من سطر الأوامر بالشكل التالي 


Tl1bExp AssemblyName /out:FileName 


و غفلاء اك ووه يصاون امجح الخاص تك خن طريق ملك بط امتا بر اط هذه اة كا يجب ليك شج المج الخاض فك عن 
طريق ٥×ع.٣ءهعهR‏ والذي يمكنه توليد ملف طا أيضا عن طريق الخيار /طا: والذي يمكن استخدامه بالشكل 
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RegAsm AssemblyName /tlb: FileName.tlb /codebase 


دعنا نقوم بعمل مثل عملي على الموضوع 


افتح بيئة التطوير وابدا مشروعا جديدا من نوع إ٣ه۲طنا‏ كوهاع وسمه زه٣۴ءع۲‏ فيتم إنشاء 1ءءه| افتراضيا ثم ادخل الكود التالي في 
Class1‏ 


OPETEORNSEEILGE- OR 


Public Class Class1 
Public Function myFunction() As Integer 


Return 100 


End Function 


End Class 


افتح خصائص المشروع واضغط الزر ۸٥ااة |١۴٥۲‏ yاطاصعءءA‏ من الصفحة ۸٥ااةءامم۸‏ وتأكد من وضع إشارة بجانب 
COM -Visible Make‏ yاAssemb‏ ثم اضغط 0۸ 

من صفحة عاامصه) تأكد من وضع إشارة بجlنب Register for COM |nterop‏ 

قم بالحفظ ثم قم بعمل ل ااں8B‏ للمشروع 

٠‏ افتح ۷/86 تم قم بإنشاء مشروع افتراضي جديد 

من قائمة cz‏ eز٬Pr‏ اختآڙز References ùy References‏ eاabاAvai‏ اختر اسم مشرو عنا زہ ٣۴ء٥٣‏ ثم اضغط )0 

ه ضع زر أوامر على النموذج الخاص بمشروعك تم انقر عليه نقرا مزدوجا لينقلك إلى محرر الكود و في الحدث )اا٥‏ _t0۸1غBut‏ 
أدخل الكود التالي 


Dim myObject As TestProj.Class1l 
Set myObject = New TestProj.Classl 


MsgBox myObject.myFunction 


شغل مشرو عك واختبره 
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کیف 


يمكننا استخدام فيجول بايزيك 2008 لإنشاء صفحات أشرطة إضافية ل 2007 [عce×غ‏ 


قم بإنشاء مشروع فيجول بايزيك جدید وذلك بتحدید ype‏ †ecزەPr‏ إلى Office‏ ثم 2007 ڌم |ختlر‏ | Excel ê Template‏ 
WorkBook‏ 2007 

Add ثم اضغط‎ Actions Pane Control pكھتll |ختر‎ pۃî‎ Add New Item رتخl‎ Project ةnئأlã من‎ 

من ال ×مطامهع أضف التحكمات التي تريدھا ن Actions Pane Controls‏ مثلا امطها1 وغیر النص بداخله إلى ءہ٥Acti‏ 
Pane 1‏ 

کرر العملية وأضف تحکما آخر من النو ع |اr0† Actions Pane Con‏ وضع عليه تحکم امع طھ] وغیر النص بداخله إلی یہ Act‏ 
Pane 2‏ 

اختر Add New |†em‏ من قائمة مزه" و أضف تحکم من النوع 0٣ )۷ءuھا ٥موا "٤١(‏ ططRi‏ للمشروع بعد تغییر تسمیته 
من ١1‏ ٥0ططاR‏ إلى «مططاMyR‏ ثم اختر 1مںها من المحرر الذي يظهر لك وغير الخاصية |eط1a‏ إlز١”ى Actions Pane‏ 
Manager‏ 

من | jay Too|8ox‏ ڌم Office Ribbon controls‏ ضف Actions Pane Manager ةعرمجnئاl Jخlد J| Button‏ 
وغير الخاصية إمطه] لتحمل القيمة 1 A٥ ۸s ۴۵٣6٥‏ سwهطك‏ وأضف زرا آخر وغير خاصية امطھ 1 له إآ|١” show Actions‏ 
Pan٥ 2‏ ثم أضف تحکما آخر لنفس المجموعة من نوع t٥٣‏ ں8 اع ع٥۲‏ وغير خاصية Hide Actions Pane JزJإ [abel‏ 
يمكننا ملاحظة إمكانية إضافة صفحات إضافية ل ٣0ططاR‏ ب" وذلك بالنقر بزر الماوس اليميني في الفراغ بجانب ء”الك12b6۸‏ 
واختيار الأمر اه١‏ ١0ططاR ۸١١‏ وإضافة الصفحات التي تريدها ثم وضع التحكمات عليها كما سنرى لاحقا جرب إضافة صفحة 
أو أكثر كما تشاء تم عد إلى ومالك ۸ ها لمتابعة العمل معا 

من re٣‏ oام×ع‏ utionا0ء‏ انقر بزر الماوس اليميني على ١0ططا۷R™‏ تم اختر الأمر مله سع۷i‏ من قائمة السياق 

تحت تعريف الفئة مباشرة أدخل سطري الكود التاليين 


Dim ActionsPanel As New ActionsPaneControl1 
Dim ActionsPane2 As New ActionsPaneControl2 


وذلك لتعریف متغيرات في ٣0ططRİ My‏ تشیر إلى sاە Actions Pane "٤r‏ الذین أضفناھما سابقا 


أضف الكود التالي لإجراء معالجة الحدث هم1 الخاص ب ١١٥ططأ۷R"‏ الذي سيضيف التحكمات 1عActionsPanı‏ و 
Action sPane2‏ إلى مجمو عة Acti ٥۸5۴2٣6٥‏ تم إخفاءھما 


Private Sub MyRibbon Load(ByVal sender As System.Object, 
ByVal e As RibbonUIEventArgs) Handles MyBase.Load 


' Add ActionsPanel & ActionsPane2 to ActionPane Collection 
Globals.ThisWorkbook.ActionsPane.Controls.Add (ActionsPane1) 
Globals.ThisWorkbook.ActionsPane.Controls.Add (ActionsPane2) 
' Hide Action Panes From View 

ActionsPane1.Hide () 

ActionsPane2.Hide () 


Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = False 


ERG SUD 


سنضيف الآن إجراء معالجة الحدث ءا للزر الأول الذي سیقوم بإظهار 1٥4ء۸‏ ٥ا۸‏ وإخفاء Actions P2٥2‏ ويكون 
الكود كالتالي 


' Show Actions Pane 1 Button Event Handler 
PFIVaté Sb Buttond2 CLLCK(B¥VaL sender As System: Object, . ByVal e. A6 


Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button2.Click 


Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True 
ActionsPane1l. Show () 
ActionsPane2.Hide () 
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EN Sub 


ه سنضيف الآن إجراء معالجة الحدث عع اح للزر الثاني الذي سيقوم بإظهار 22ء٣‏ ٥ا۸‏ وإخفاء Actions P2٥1‏ ويكون 
الكود كالتالي 


' Show Actions Pane 2 Button Event Handler 
Private SUS Buttons Click (BYVAL sender A& System.Object, ByVal é AS | 
Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button3.Click 


Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True 
ActionsPane2. Show () 

ActionsPane1l.Hide () 

ERQ. Sub 


سنضیيف الآن إجراء معالجة الحدث )عااCz‏ ل u †٤٥۸1‏ 8ءاععه۲ كما يلي 


' Hide Actions Pane Event Handler 
Private Sub ToggleButtonl Click (ByVal sender As System.Object, ByVal e As _ 
Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ToggleButton1.Click 


If ToggleButtonl1.Checked Then 


Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = False 
Else 
Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True 
End IE 
EA SUS 


ه شغل التطبيق وانتقل إلى صفحة ء١٠‏ ل۸4 لاختبار البرنامج هنا وإن قمت بإضافة صفحات إضافية ستراها في آخر صفحات 
شریط أدوات 2007 ٤×٥‏ 
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أتمتة وورد 2007 باستخدام فيجول بايزيك دوت نيت 


حتى نستطيع العمل نحتاج لبعض الخطوات الابتدائية 


من خصائص المشروع ومن صفحة ۴٥۴٥٣٥٣٤٥‏ اضغط الزر ۸00 ثم انتقل لصفحة ٥٥۳‏ وأضف مرجع لنٹمکتبة Microsoft Word‏ 
Object Library‏ 12.0 ثم من أسفل الصفحة ومن |llئnة‏ ÎصفJ Microsoft.Office.Interop ”١|إ Jail Imported References‏ 
وضع إشارة اختيار بجانبها حتى تكون متوفرة للمشروع بأكمله وإلا ستضطر )اwتخدlم Imports‏ التالية في بداية كل ملف ستستخدم أتمتة 
وورد فيه 


Imports Microsoft.Office. Interop 


و إن كنت ستستخدم أغراض اءءزط0 لوثائق أو التطبيق الخاصة بوورد في عدة اجرائيات يفضل تعريفها كعناصر في النموذج الحاوي لتلك 
الإجرائيات - متغيرات عامة على مستوى النموذج - حتى لا تفقد اتصالك مع وورد 


بدء وانهاء وورد 
عرف متغیر عام على مستوى النموذج كما يلي 


Private axWord As Word.Application 
لبدء وورد نستخدم الكود التالي‎ 
axWord = New Word.Application 


axWord.Visible = True 


و لإنهاء وورد نستخدم الكود التالي 


axWord. Quit () 


إنشاء وفتح الوثائق 


لإنشاء وثيقة جديدة ابدأ وورد أولا ثم استخدم اÎJأnر Application.Documents.Add‏ 


Dim axDoc As Word. Document 
axDoc = axWord. Documents. Add 


لفتح وثيقة موجودة 


Dim axDoc As Word. Document 
axDoc = axWord. Documents. Open ("c:\MyDocument.docx") 


لحفظ الوثيقة 


axDoc.SaveAs ("C:\MyDocument. docx") 


قراءة وإدراج النصوص 
عندما تقوم بأتمتة وورد ستجد العديد من الطرائق التي تقوم بنفس الوظيفة وعملية قراءة وإدراج النصوص مثال جيد على ذلك حيث يمكنك 
عمل ذلك باستخدام العدید من الأشیاء ئ†cمزط0‏ ولکن أکثر ھا اmتخدnl|‏ ھر Selection s Paragraph‏ 
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paragraph object 
تتكون وثيقة وورد من مجموعة من الفقرات وهي مرتبة بالتسلسل بدءا من 1 وهي تتضمن كامل النص حتى محارف الإرجاع ويمكن‎ 
الحصول على نص الفقرة الأولى‎ 


Dim strText As String 
strText = axDoc.Paragraphs (1) .Range. Text 


ولتغيير نص الفقرة ذ نستخدم 


axDoc.Paragraphs (1) .Range.Text = "Hello from Visual Basic 2005" 


Selection object 
وهو الطريقة الأكثر مرونة لإدراج النصوص وهو شبيه باستخدامك لوورد عند كتابتك لوثيقة فتستخدم أولا اعزطه ٣ءء اع لنقل نقطة‎ 
الإدراج للمكان المطلوب ضمن الوثيقة ثم تقوم بإدراج النص المطلوب والكود التالي يقوم بإدراج نص في آخر الوثيقة وفي بدايتها ثم يبحث‎ 

عن كلمة ويدخل نص مباشرة بعدها 


"Activate the document first 
axDoc.Activate () 
'Move to the end and add text 

axWord.Selection.EndKey (Word.WdUnits.wdStory) 
axWord.Selection.TypeText ("This is the end") 

'Move to the beginning and add text 
axWord.Selection. HomeKey (Word.WdUnits.wdStory) 
axWord.Selection.TypeText ("This is the beginning") 
axWord.Selection.Find.ClearFormatting () 

"Locate Foo, then add text following it 
axWord.Selection.Find.ClearFormatting () 
axWord.Selection.Find.Text = "Foo" 
axWord.Selection.Find. Execute () 
axWord.Selection.MoveRight (Word.WdUnits.wdCharacter, 1) 
axWord.Selection.TypeText ("This is Foo") 


إدراج الجداول 
الكود التالي يبين طريقة إدراج جدول بقياس 5 × 5 و إضافة تنسيق للجدول ثم ضبط نص في خلية محددة في ذلك الجدول 


Dim axTable As Word.Table 

axTable = axDoc.Tables.Add(axWord.Selection.Range, 5, 5) 
axTable.Style = "Table Grid 8" 

axTable.Cell (3, 3) .Range.Text = "Hello World" 


الطباعة 
لطباعة لوثيقة نستخدم الطريقة u‏ ۴1,۲0 


axDoc.PrintOut () 


التأكد من أن الوثيقة مفتوحة 
بما أن المستخدم يمكنه إغلاق الوثيقة أو الوورد في أي وقت رغم أن برنامجك مازال مرتبطا به يمكنك استخدام الطريقة التالية للتأكد من أن 
الوثيقة مازالت مفتوحة 
Dim strName As String‏ 
Dim blnIsAvailable As Boolean‏ 
TEY‏ 
strName = axDoc.Name‏ 
b1inIsAvailable = True‏ 
Catch ex As Exception‏ 
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b1inIsAvailable = False 
End Try 
MsgBox ("Document is available: " & blnIsAvailable) 


إدراج جدول من ٤مہ.‏ ۸50 
يمكنك استخدام الطريقة التالية لإدراج بيانات من جدول في قاعدة بيانات قي جدول في وثيقة وورد 


Function AddDataTable (ByVal tbl As DataTable) As Boolean 
Dim nRowCount, nColCount, nRow, nCol As Integer 
Dim axTable As Word.Table 
nRowCount = tbl.Rows.Count 
nColCount = tbl.Columns.Count 
axWord.Selection. EndKey (wdStory) 
axTable = axDoc.Tables.Add (axWord.Selection.Range, nRowCount + 1, nColCount) 
axTable.Style = "Table Grid 8" 
For nCol = 1 To nColCount 
axTable.Cell (1, nCol) .Range.Text = tbl.Columns. Item (nCol - 1).Caption 
Next 
For nCol = 1 To nColCount 
For nRow = 1 To nRowCount 
axTable.Cell (nRow + 1, nCol) .Range.Text = tbl.Rows (nRow - 1).Item(nCol = 1) 
Next 
Next 
Return True 
End Function 


' To use this function 
tbl = Me.CustomersDataSet.Tables (0) 
WordDoc.AddDataTable (tbl) 


content controls ٽڼيgتحnئll تحكمات‎ 

يقدم وورد 2007 آلية جديدة لإدراج البيانات في الوثائق تدعى تحكمات المحتويات كءاهإ†”هC Content‏ وهي عبارة عن حقول یمکن 
تحريرها يدويا أو ملؤها برمجيا أو نشرها من وثيقة 01× وهي تتضمن عدة تحكمات مثل صندوق النصوص أو الصور أو القائمة المركبة 
... الخ ويمكن الوصول إلیھا ContentControls collection Jںغخ jn‏ في ectsزob Document‏ کما في المثال 


Dim ccCollection As Word.ContentControls 
ccCollection = axDoc.ContentControls 
ccCollection. Item (1) .Range.Text = " Content Control Field" 


دمج البريد 

لتحقيق العماية 

افتح الوثيقة المصدر ثم اضبط الخاصية ع uںم5ةاة0‏ عع۲ N‏ اأج" ثم يتم إنشاء وثيقة جديدة 
وفيما يلي مثال عن كيفية عمل ذلك دون تدخل من المستخدم 


axDoc.Activate () 

axDoc.MailMerge.MainDocumentType = _ 

Word.WdMai lIMergeMainDocType.wdFormLetters 
axDoc.MailMerge.OpenDataSource (strDatabaseFilename, _ 
wdOpenFormatAuto, False, False, False, False, "", "™", 
Falsée, "™, .™™, SIEECoONREeCGTIONSEEIG, SEESOL, ™™, False, 
Word.WdMergeSubType.wdMergeSubTypeOAL) 
axDoc.MailMerge.DataSource.FirstRecord = wdDefaultFirstRecord 
axDoc.MailMerge.DataSource.LastRecord = wdDefaultLlLastRecord 
axDoc.MailMerge.Destination = _| 

Word.WdMai lIMergeDestination.wdSendToNewDocument 
axDoc.MailMerge.Execute (False) 
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كتابة شيفرة لإنشاء ۸4-1 یتم استدعاؤه من ۷8۸ 


أنشئ مشروعا جدیدا بلغة e‏ ای8 اھںuءا۷‏ من نوع Office‏ ثم 2007 تم اختر ہا-للA‏ 2007 اعc×ع‏ وقم بتسمية المشروع 
lmportDataاx»ceع‏ حيث تكمن فكرة مشروعنا هنا في إنشاء فئة وكشفها لحلول أوفيس بحيث يمكننا استدعاء طرائق تلك الفئة من كود 


| حیث سیتم إنشاء فئة باسم وع ال nاAdd تمتلك طریقة تدعی ھ0۲02م"‎ ۷8A 


أضف فئة جديدة للمشروع باسم ءع اانا لماك وأضف الاستيرادات التالية لبداية الملف 


Imports System. Data 
Imports System. Runtime. InteropServices 
Imports Excel = Microsoft.Office. Interop. Excel 


استبدل جسم الفئة وع ااا† ل" اكك بالكود التالي 


<System. Runtime. InteropServices.ComVisibleAttribute (True) > 


<System. Runtime. InteropServices.InterfaceType (ComInterfac Typ .InterfacelsIDispatch)> _ 


Public Interface IAddInUtilities 
Sub ImportData () 
End Interface 


<System. Runtime. InteropServices.ComVisibleAttribute (True) > 


<System. Runtime. InteropServic s.ClassInterface (System. Runt im .InteropServices.ClassInterf 


aceType.None)> _ 
Public Class AddInUtilities 
Implements IAddInUtilities 


Public Sub ImportData() Implements IAddInUtilities. ImportData 


' Create a new DataTable. 

Dim ds As New DataSet () 

Dim dt As DataTable = ds.Tables.Add ("Customers") 
dt.Columns.Add (New DataColumn ("LastName") ) 
dt.Columns.Add (New DataColumn ("FirstName") ) 


' Add a new row to the DataTable. 
Dim dr As DataRow = dt.NewRow () 
dr ("LastName") = "Chan" 

dr ("FirstName") = "Gareth" 

dt .Rows.Add (dr) 


'"' Add a new XML map to the collection. 
Dim activeWorkbook As Excel.Workbook = _| 
Globals.ThisAddIn.Application.ActiveWorkbook 


Dim xmlMap1 As Excel.XmlMap = activeWorkbook.XmlMaps .Add (ds. GetXmlSchema (), 


"NewDataSet™) 


'" ImMDOEFE the data. 
If Not (xmlMap1 Is Nothing) Then 


Dim lastsheet As Object = activeWorkbook.Sheets (activeWorkbook.Sheets.Count) 
Dim newSheet As Excel.Worksheet = CType (activeWorkbook.Sheets.Add( _ 


After:=lastSheet), Excel.Worksheet) 
newSheet.Name = "Imported Data" 


activeWorkbook.Xml ImportXml (ds.GetXml (), xmlMapl, True, 


newSheet.Range ("A1") ) 
Ed. TÊ 
ERG Sub 
End Glass 


29 


حيث تقوم بتعريف واجهة في بداية الكود تدعي Addn Utilities‏ تمتلك الخاصية ماطائااہ٥ہ)٤‏ مضبوطة إلى eعں٣]‏ والخاصية 
|nterface ype‏ تمتلك القيمة ۸عاةمء2iءاععمtrfعtم|‏ ويكمن السبب في كتابة هذه الواجهة هو أن الفئة الأساسية سوف تحقق وتعرض 
الواجهة اة مءأ۵| مما يجعلها متوفرة للاستدعاء من قبل حلول أوفيس الأخرى 


<System. Runtime. InteropServices.ComVisibleAttribute (True)> _ 
<System. Runtime. InteropServices. InterfaceType (ComInterfaceType.InterfacelsIDispatch)> _ 
Public Interface IAddInUtilities 
Sub ImportData () 
End Interface 


وتعرف الفئة وع†|اİ†ل‏ "الل لتحقق الواجهة وعi†‏ ااا "اكه ۸| وتطبق الخاصية عاطءاوالاص ه٤‏ على هذه الفئة 


<System. Runtime. InteropServices.ComVisibleAttribute (True)> _ 
<System. Runtime. InteropServices.ClassInterface (System. Runtime. InteropServices.ClassInterf 
aceType.None)> _ 
Public Class AddInUtilities 

Implements IAddInUtilities 
ثم تعرف الطريقة 0۲۲2م" | والتي تحقق الطريقة هاة ٥0۲۲م "| المحددة في الواجهة ءعأخااز† لم ا١ك۸ في بداية الكود فتنشئ أولا‎ 
Dataset to the Collection of ”١ذع ثم يضاف سطر جدید لجدول البيانات ثم يضاف مMa |ص× مبنية‎ Data able مع‎ Dataset 


ئم 1 XM‏ تم تضاف صفحة جديدة للملف ثم تستخدم مج“ 1× لاستيراد البيانات من ال اعءه†ه0 إلى صفحة ال اعc×ع.‏ 


وبهذا تكون فتتنا قد انتهت ولكنها مازالت غير متوفرة لبقية حلول الأوفيس. الآن افتح محرر الكود للفئة 0 hi‏ وقم بتجاوز 
Override‏ الطريقة Request com AddInAutomationService‏ معیدا منھا مرجعا للفنُة وع الا كما في الکود 


Private utilities As AddInUtilities 

Protected Overrides Function RequestComAddInAutomationService() As Object 
If utilities Is Nothing Then 

utilities = New AddInUtilities () 

End. TÊ 

Return utilities 

ERA FURGEION 


وللاختبار قم بتشغيل المشروع ثم قم بحفظه ك Macro-Enabled Workbook (*.x|sm)‏ اExce‏ ثم انتقل إلی صفحة developers‏ ثم 
انقر و8 اهںء۷ ليفتح لك محرر الكود وافتح )مه8 )۷۲ا۲ وأضف الكود التالي 


Sub CallVSTOMethod () 
Dim addIn As COMAddIn 
Dim automationbject As Object 
addIn = Application. COMAddIns ("ExcelImportData") 
automationObject = addIn.Object 
automationObject. ImportData () 

EA. Sub 


الذي يعرف متغيرا يشير للغرض الك K٥" A‏ الذي يمتل ال ExcellmportD0a†a A-i‏ ثم يستخدم لاستدعاء الطريقة |mpo r0a‏ 
من فئتنا السابقة. 


30 


الآن عد إلى ملف ال |عع×ع ثم شغل الماكرو ل0ط†م ۷N‏ ۷5۲0|اهج الذي قمنا بإنشائه للتو وربما ستظهر لك رسالة تفيد بأنه لا توجد 
aصعطءك‏ مرتبطة ببيانات ال 1× وأن ال اعء×ع سيقوم بإنشائها لك فقط قم بالموافقة على الرسالة هنا فتلاحظ إنشاء ورقة جديدة باسم 
Data‏ ortedمص|‏ وقد تم إضافة بيانات في الخلية ۸1 والخلية 81 
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كيف نستدعي صناديق الحوار الخاصة بمايكروسوفت وورد من برنامجنا 


عندما تتعامل مع مايكروسوفت وورد تأتيك أوقات تحتاج لإظهار صناديق حوار للحصول على دخل من المستخدم. ورغم وجود 

إمكانية لإنشاء صناديق الحوار الخاصة بك إلا أنه يمكنك أيضا الاستفادة من صناديق الحوار الموجودة سلفا والتي يمكننا الوصول إليها من 
خلال المجموعة وعم‌اه0i‏ في الغرض ١٥اةءاامم۸‏ وهي أكثر من 200 صندوق حوار تم تقديمها على شكل تعدادات. فإذا أدرنا استدعاء 
صندوق حوار إنشاء مستند جديد على سبيل المثال يمكننا عمل ذلك بتمرير lلقيnة alll Word.WdWordDialog.wdDialogFile New‏ 
tem‏ .ication.DialogsامAp‏ كما في الكود التالي وللتجربة استخدم مشرو عا Word 2007 Document عوill ja‏ 


Dim dlg As Word.Dialog = _ 
Application.Dialogs. Item (Word.WdWordDialog.wdDialogFileNew) 
dlg. Show () 


وللوصول إلى عناصر صندوق الحوار نستخدم الطريقة ۲عط" ۷ع |۷٠١)‏ لتحديد اسم الملف لصندوق حوار فتح ملف بالطريقة الظاهرة 
بالكود التالي حيث نحصل على النوع مءمرآ الخاص بصندوق الحوار الذي نستخدمه ثم نضبط قيمة الخاصية المطلوبة باستخدام الطريقة 
InvokeMember‏ 


Dim dlg As Word.Dialog = Application.Dialogs (Word.WdWordDialog.wdDialogFileOpen) 
Dim dlgType As Type = GetType (Word.Dialog) 


' Set the Name property of the dialog box. 
dlgType. InvokeMember ("Name", _ 
Reflection.BindingFlags.SetProperty Or 
Reflection.BindingFlags.Public Or 
Reflection.BindingFlags.Instance, _ 
NOERiING, QL; New OB jeGE() {"TeStino"fy 
System.Globalization.CultureInfo.InvariantCulture) 


dlg. Show () 


كما يمكننا الحصول على قيمة أي خاصية لصندوق حوار خاص بمايكروسوفت وورد بنفس الطريقة تقريبا وذلك بتمرير القيمة 
etPropertyتü‏ للطريقة vokeMemberم!‏ بدلا عن القيمة رمم ه٣‏ ۴ ام5 كما يرينا ذلك المثال التالي 


' Show the Name property. 

MessageBox. Show (dlgType. InvokeMember ("Name", _ 
Reflection.BindingFlags.GetProperty Or _ 
Reflection.BindingFlags.Public Or _ 
Reflection.BindingFlags.Instance, 

NGtERINnNG, QLlg;. NEERING; _ 

System.Globalization.CultureInfo.InvariantCulture) ) 


رو ا ن اجر وات اة باتتكا دق الحران الكخمة ما ج اروت رور د انكام د السا رن 

إظهار ها للمستخدم وذلك باستدعاء الطريقة ءاںءم×ع لصندوق الحوار بدون استدعاء الطريقة رهامءا كما في المثال التالي الذي يتطلب 

استخدام الضبط 0۴ اءأ٣†S‏ هم0 بسبب أن قيم الخصائص التي نتعامل معها هنا ليست عناصر ضمن الفئة عه اه0 أساسا وهي تستخدم 
الربط المتأخر حيث يتم إنشاوؤها ديناميكيا في زمن التشغيل عندما يقوم المترجم بتقييم التعداد مںاع5ءعةPء||۴عهاه0i wU‏ حيث يتم إنشاء 

هذه الخصائص لتكون مطابقة للتحكمات التي ستظهر على صندوق الحوار ومثالنا هنا يستخدم lنتعداد wdDialogFilePageSetup‏ لضبط 
عدة خصائص للصفحة بدون طلب الإدخال من المستخدم حيث يستخدم الكود الغرض عه اه0 لضبط حجم مخصص للصفحة 


Friend Sub PageSetupDialogHidden () 
Dim dlg As Word.Dialog = _ 
Application.Dialogs. Item (Word.WdWordDialog.wdDialogFilePageSetup) 


' Set the properties of the dialog box. 
' ControlChars.Quote() is used to represent the symbol for inches. 
WIE dLG 
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.PageWidth = 3.3 & ControlChars.Quote 
.PageHeight = 6 & ControlChars.Quote 
.TopMargin = 0.71 & ControlChars.Quote 
.BottomMargin = 0.81 & ControlChars.Quote 
.LeftMargin = 0.66 & ControlChars.Quote 
.RightMargin = 0.66 & ControlChars.Quote 
.HeaderDistance = 0.28 & ControlChars.Quote 
.Orientation = Word.WdOrientation.wdOrientPortrait 
.DifferentFirstPage = False 

.FirstPage = 0 

.OtherPages = 0 


' Apply these settings only to the current selection 
"  WIER ERNLS: Lime of ‘€6: 
.ApplyPropsTo = 3 


' Apply the settings. 
. Execute () 

End With 

ENA SUD 
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XAML gy WPF ۾‎ Silverlight - ٹùئlûنا القىم‎ 


ويضم المواضيع التالية: 
ه كتابة تطبيقك الأول من gill‏ ع WPF Application‏ 
ه كيف نطبق مظهر مختلف على التحكمات في تطبیق ٠۷۶۴‏ 
٠‏ كيف يمكننا تضمين صورة كمصدر في تطبيق ۴مس ثم إظهارها وقت التنفيذ 
٠‏ كيف يمكننا تطبيق مظهر مخصص لنافذة برنامج ۷/۴۴ في زمن التشغيل 
ه استخدام تحکمات ۴٥۲۳۶‏ sس0wلہWi‏ من داخل تطبیق ۷/۲۴ 
۵ استخدام عناصر ۷۲۴ من داخل تطبیق Wi"d0 Ws ۴٥۲٣۶‏ 
ه كتابة تطبيقنا الأول بتقنية عا ۷اك 
م آدوات التحكم بترتيب llلaناصر silverlight and WPF‏ 
٠‏ إنشاء ساعة تماثلية باستخدام تقنية عا 6اك باستخدام الكود 
ه الفروقات في معالجة Silverlight jıڊ xa ml‏ ڪ WPF‏ 
٠‏ كيف نستخدم عناصر ء|را؟ للتحكم بمظهر التطبيق 
٠‏ تخصيص مظهر التھکlaٽ Silverlight‏ 
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كتابة تطبيقك الأول من lنiوع WPF Application‏ 


تصمیم تطبیق ۷۴۴ لا یختلف کثیرا عن تصمیم تطبیق ۴٥۲٣۶‏ وس0 لہا۷ حيث يمكنك إضافة التحكمات على سطح التصميم ومع ذلك 
فهناك بعض الاختلافات فبالإضافة لنو افذ التصميم المألوفة ستجد نافذة إضافية تعرض كود ۸1× حيث تستخدم هذه اللغة لإنشاء واجهة 
المستخدم. فعندما تقوم بتطوير تطبيقات النوافذ التقليدية تقوم بسحب التحكمات من ال ×80ا١٠٠‏ أو إن رغبت يمكنك كتابة كود لإنشاء تلك 
التحكمات فعندما تقوم بسحب التحكم إلى النموذج يتم إنشاء الكود آليا من أجلك وبشكل مشابه عندما تقوم بإنشاء تطبيق ‏ ۷۴۴ يمكنك إنشاء 
التحكم بكتابة كود ۸1× أو بسحب التحكم إلى نافذة .W۴۴‏ 

ولغة ۸1× منظمة إلى عناصر ببنية شجرية مشابهة لطريقة كتابة ملفات 1× حيث تجد أن العنصر مضمن ضمن قوسين حادين وهناك 
تحديد فتح وتحدید إغلاق لكل عنصر فمثلا قد يكون لديك عنصر ١٥ا†ں8B‏ يمكن أن يظهر بالشكل <۸ >Bu tt٥ ۸<>/8u††٥‏ ويمكنك أن 
تصف كيف سيبدو ذلك العنصر بضبط الخصائص وع ا ں طا††a‏ ك هم1 أو خطعامH‏ أو طtهWi‏ وهي تظهر داخل الأقواس الافتتاحية 
للعنصر بشكل زوج اسم وقيمة مفصولين بعلامة = حيث تكون القيمة محصورة ضمن علامتي تنصيص مثل 


CBUEEON Helge 231-J BUEEON > 


وعندما تقوم بسحب تحكمات ۷۲۴ من ال ٠٠١۱80×‏ إلى نافذة المصمم تولد بيئة التطوير کود ۸1× آلیا لذلك التحكم فالكود التالي يتم 
توليده نتيجة عملية إضافة تحكم gill ja‏ ع System.Windows.Controls.Button‏ 


<Button Height="23" HorizontalAlignment="Left" Margin="10,10,0,0" 
Name="Button1l" VerticalAlignment="Top" Width="75">Button</Button> 


دعنا نقم ببعض التجارب تطبیقا على ما ورد سابقا: 


أنشئ تطبيقا جديدا من النوع WPF Appاi‌ca t٥۸‏ و سمه WPFWindow‏ ثم اضغط 0۸ فیتم إنشاء تطبیق ۷۲۴ جديد من أجلك 
وستری قسم ۸1× جدید تطبیقات ٧۷۴۴‏ وستبدو محتویاته کالتالي 


<Window x:Class="Window1l" 


xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
Title="Windowl" Height="300" Width="300"> 
EEO > 


</GELA> 
</Window> 


٠‏ انقر على 0W1ل" W۷‏ لاختيارها وفي نافذة محرر ۸1× غير قيمة الخاصیة ٥ا٣‏ إلى ۸٥ا†ھicاممA WP۴‏ فنلاحظ تغير نص 
عنوان النافذة إلى هااهءااممA‏ ۷۲۴ كما يمكنك تجريب تغيير قيمة بعض الخصائص الأخرى 

0 قم بسحب ×0 ۲٥×٤8‏ من ال ×0 70018 وضعه في الزاوية اليمينية العليا لنافذة التطبيق ثم انقر عليه لاختیاره وفي نافذة الخصائص 
|ضبÜط‏ nمة Left gl! HorizontalAlign ment‏ ثم قم بضبط انلخlاصية VerticalAlignment‏ إلى Width ةيصاlخllو Top‏ 
إلى 75 والخاصية عام إلى 26 

ه في محرر ۸1× قم بتغيير الخاصية W۸‏ إلى 140 والعنصر ”أعج“ إلى 0 ,0 ,56 ,30 كما يبدو في المتال 


<TextBox Height="26" HorizontalAlignment="Left" Margin="30, 56,0,0" 
Name="TextBoxl" VerticalAlignment="Top" Width="140" /> 


ه قم بسحب تحكم ١٥ں8‏ إلى سطح نافذة التطبيق وقم بالنقر المزدوج عليه لإنشاء إجراء معالجة الحدث .«ءزاع الخاص به ثم 
اكتب الكود التالي في الإجراء 


MsgBox ("Event handler was created by double-clicking the button.") 


أضف تحكم ۸٥ااں8B‏ آخر للنافذة وقم باختياره ثم قم بإضافة خاصية باسم k۔cء‏ زاح للعنصر ۸٥ا8‏ في محرر كود ×AML‏ 
واضبط قيمتها إلى dع)ءزا۸0)C٥†8u‏ وهذا الاسم سوف تعطيه لإجراء معالجة الحدث في الكود مع ملاحظة أنه عندما تنشئ 
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إجراء معالجة الحدث بالنقر المزدوج لا یتم إضافة الخاصية «عااح إلى كود )“×۸× ولكن يستخدم في الكود عبارة sءعاnd Ha‏ 
عوضا عن ذلك 
٠‏ انقر بزر الفأرة اليميني على نافذة التصميم واختر View €٥ de‏ ثم قم بإاضافة الإجراء التالي 


SUBD BUEEOnNORCIIEkKeQd(BYVaL Sender As OBjecl, | 
ByVal e As RoutedEventArgs) 


MsgBox ("Event handler was created manually.") 


End Sub 


© اضغط ۴5 لتنفيذ المشروع واختباره 


عمل برنامج رسم باستخدام WP۴‏ 
یمکننا عمل برنامج رسم بسیط تطبیقا على بعض ما ورد أعلاه 


Ink Pad aowg WPF Application عgill‎ j Iدıدج أنشئ مشروعا‎ 

٠‏ اضبط حجم نافذة التطبيق إلى 550 ارتفاعا و 370 عرضا وذلك بضبط قيم الخصائص وام و ال۷ على التوالي 
٠‏ غير عنوان نافذة W۷۴۴‏ إلى أ۴ )"1 وذلك بضبط الخاصية ع )اا 

٠‏ غير الخاصية 4١U٥۲0و)عهط‏ لنافذة W۶۲۴‏ إلى «سداB‏ كما يمكننا ضبط قيمة الخاصية في محرر |[اM×‏ بإضافة 
الخاصية ١١‏ 9۲0U)عه8B‏ لكود النافذة فيصبح كود ۸1× للنافذة كما يلي 


<Window x:Class="Windowl" 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
Title="Window1l" Height="550" Width="370" Background="Brown"> 


<Grid> 


</Grid> 


</Window> 


٠‏ افتح صندوق الأدوات ۲٠۵|80×‏ ثم انقر عليه بزر الفأرة اليميني واختر 1۳١6١‏ ۸0058 من القائمة ثم انتقل لصفحة 
WPF Components‏ في صندوق حوار 5" 1€ ×۲00180 ع۸n00s‏ وانتقل عبر القائمة إلى ك۸۷a 1,۸٤3‏ وقم باختیارھا - 
تأكد من وضع علامة في المربع - ثم اضغط>0© 
٠‏ اسحب ء3۸۷2٤1۸‏ من صندوق الأدوات ×80ا۵٠٠‏ إلى سطح النافذة واضبط القيم التالية: 

Auto ylJ| Height ةيصاخلl و‎ Width الخاصية‎ 

Stretch yJ| Vertical Alignment ةيصږlëlJl و‎ HorizontalAlignment ةيصlëldll‎ o 

الخاصية Ma95‏ إلى 9,9,9,68 

0 الخاصية ل٣٥۲‏ و)عBa‏ إلى سهاامt۷اوiا‏ وسترى أن لون الخلفية أصبح أصفر عندما تشغل البرنامج 
٠‏ اسحب زرين من صندوق الأدوات إلى سطح النافذة أسفل 1k Cava‏ وضع Butto¬1‏ إلى السار و Button2‏ 


إلى اليمين 
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۰ اختر 80۸1 واضبط كود ۸1× الخاص به إلى 


<Button Height="23" HorizontalAlignment="Left" Margin="85, 0,0,24" 


Name="Buttonl" VerticalAlignment="Bottom" Width="75">Clear</Button> 


۰ اختر 02ا8 واضبط كود ۸1× الخاص به إلى 


<Button Height="23" HorizontalAlignment="Right" Margin="0, 0, 72,24" 


Name="Button2" VerticalAlignment="Bottom" Width="75">Close</Button> 


وبهذا يصبح كود 41× لنافذة ۷۴۴ كما يلي 


<Window x:Class="Window1" 


xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 


xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 


Title="Window1l" Height="550" Width="370" Background="Brown"> 


<Grid> 


<InkCanvas Height="Auto" Margin="9, 9,9,68" Name="InkCanvasl" 


VerticalAlignment="Stretch" Width="Auto" HorizontalAlignment="Stretch" 


LightYellow" /> 


L="23" HorizontalAlignment="Left" Margin="85, 0,0,24" 


tonl" VerticalAlignment="Bottom" Width="75">Clear</Button> 


L="23" HorizontalAlignment="Right" Margin="0, 0, 72,24" 


ton2" VerticalAlignment="Bottom" Width="75">Close</Button> 


con Heigh 


Name="But 


con Heigh 


Name="But 


* انقر نقرا مزدوجا على الزر C162۲‏ ثم أضف الكود التالي في إجراء معالجة الحدث »ءا للزر 


Background=" 


<But 


<SBUÊ 


</Grid> 


</Window> 


Me.InkCanvas1.Strokes.Clear () 


ه٠‏ وبنفس الطريقة أضف الكود التالي في إجراء معالجة الحدثعءاا€ للزر مكهاC‏ 


* شغل البرنامج واختبره 
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Me.Close 


كيف نطبق مظهر مختلف على التحکمات في تطبیق ۷۶۴ 


أنشئ تطبیق ۸/۴۴ جدید ثم أضف الكود "٠إ‏ Azu"-=u,4هإوkء‏ ه8 في نهاية السطر الذي يبدأ ب ٥ا۲‏ وقبل القوس < لتغيير 
لون خلفية النموذج إلى الأزرق الفاتح وسنقوم بتغيير مظهر الأزرار في مقالنا هذا لنعطي فكرة عن كيفية القيام بذلك 

Wiہل0wس1 ب >lاStackPane/> في محرر |" ھ× الخاص ب‎ >/Grid> و‎ >StackPanel> ڊب‎ <Grİd> استبدل‎ e 

ه أضف الكود التالي بعد <اع ۴2 )عه†5> مباشرة لكي نقوم بإضافة ×80 0ط K0‏ للنافذة 


<ComboBox Width="100px" Height="Auto"> 
<ComboBoxItemSTtem One<7ComboBoxItem> 
<ComboBoxItem>Item Tow</ComboBoxItem> 
<ComboBoxItem>Item Three</ComboBoxItem> 
</ComboBox> 


ه أضف الكود التالي بعد الكود السابق مباشرة كي نضيف |ع ة۴ )هك آخر للنافذة مع تحديد أن الاصطفاف سيكون نحو المركز 
والاتجاه أفقي 


<StackPanel Orientation="Horizontal" HorizontalAlignment="Center"> 
</StackPanel> 

داخل ال اعم ة٥‏ )هك الذي أضفناه مؤخرا أضف الكود التالي الذي يقوم بإضافة ثلاثة أزرار كك۸ و اكع و عام للنموذج 
<Button>Add</Button>‏ 


KBUEEONSEATENY BUCEORS 
<Button>Delete</Button> 


ه حتى هذه النقطة يجب أن يكون كود إه× الخاص بالنافذة لديك على الشكل 


<Window x:Class="Windowl" 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
xmlnSsix="http://st€hemas.mMicroSoOft. cCOM/winfx/2006/xaml" 
Title="Window1l" Height="300" Width="300" Background="Azure"> 
<StackPanel> 
<ComboBox Width="100px" Height="Auto"> 
<ComboBoxItem>Item One</ComboBoxItem> 
<ComboBoxItem>Item Tow</ComboBoxItem> 
<ComboBoxItem>Item Three</ComboBoxItem> 
7 COMBDOBOS 
<StackPanel Orientation="Horizontal" HorizontalAlignment="Center"> 
XBUEEONSAAASYBUELORNS 
SBUEEONSEILERZBUEEONS 
<Button>Delete</Button> 
</StackPanel> 
</StackPanel> 
</Window> 


سنقوم الآن بتطبيق بعض الخصائص التي ستغير مظهر الأزرار استبدل الكود الخاص بالزر مء ام0 بالكود التالي 


SBUEEON . MaEGIRETIOU; S2 T> 
BUC EO.BACKEOE OURO 
<LinearGEadientBEüsh StartPoint="0, 0" EndPoint="™0,1"> 
<GradientStop Offset="0.25" Color="#FFFF1122"></GradientStop> 
<GradientStop Offset="0.85" Color="FfFFFFFFFF"></GradientStop> 
</LinearGradientBrush> 
</Button.Background> 
Delete</Button> 
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حيث استخدمنا الخاصية اع لتحدید الھوامش الخاصة بالزر تم استخدمنا الفرشاة إوں ۸18 ءالما a۲6ممiا‏ لملئ الزر بلون 
متدرج حيث حددت الخاصية ا" ذه ۲۲٥‏ هك نقطة بدء الملئ و "اه٥‏ لمع نقطة النهاية وحدد قسم مه†كا"ءاههإي الأول والثاني 
اللونين الخاصين بالتدرج والإزاحة الخاصة بكل لون حيث نلاحظ بعد تطبيق هذه الخاصة تغير مظهر الزر امام إلى لون 
متدرج من الأحمر للأبيض 

وإن أردنا تطبيق مظهر واحد لجميع الأزرار في النموذج نضيف قسم <ءععا 0u‏ R.س0wهWind>‏ في أعلى نافذة كود إصج× 
وبعد الأسطر العلوية التي تحدد النموذج حيث نفتح قسم مالاك بداخله ونحدد أن النوع المستهدف من هذا المظھر ھر ں8 


<Window. Resources> 
<Style TargetType="Button"> 


</Style> 
</Window. Resources> 


وبداخل قسم ع|إر؟ نفتح قسم آخر هو ٣6†]م5‏ ونحدد فيه ان الخاصية المستهدفة هي ٣d‏ uهاع)عه8‏ كما يلي 


<Setter Property="Background"> 


J SEEtEEES 


ثم نحدد المظهر كما فعلنا سابقا مع الزر معام وذلك باستخدام e”18 u‏ adiاar6عLin‏ وبنفس الطريقة السابقة تماما فيصبح 
کود قسم ٥٣‏ مء کما يلي 


<Setter Property="Background"> 
<Setter.Value> 
XLEIRNEAEGEadLEeENEBEUSH SEAEEPOLRE="O, O" ENQPOINE MUO, I" 
<GradientStop Offset="0.3" Color="#FFFFFF55"/> 
<GradientStop Offset="0.8" Color="#AA5555FF"/> 
</LinearGradientBrush> 
</Setter.Value> 
</Setter> 


ومباشرة بعد قسم ۲ءء الذي أضفناه للتو سنضيف قسم ۲†ه5 آخر الغرض منه هو تحديد الهوامش الخاصة بالأزرار وسيكون 
الگرد الخاض به كما بلي 


<Setter Property="Margin" Value="2,5,2,5"></Setter> 
وبذلك يصبح كود |" ه× الكامل للنافذة حتى هذه النقطة كما يلي‎ 


<Window x:Class="Windowl" 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
XMIRS:HEPREED:7/SCREMES. MiG FOSOfEE . COM WIDER 2006 / xaMLF 
Title="Window1l" Height="300" Width="300" Background="Azure"> 


<Window. Resources> 
<Style TargetType="Button"> 
<Setter Property="Background"> 
<Setter.Value> 
<LinearGradientBrush StartPoint="0,0" EndPoint="0,1"> 
<GradientStop Offset="0.3" Color="#FFFFFF55"/> 
<GradientStop Offset="0.8" Color="#AASS55FF"/> 
</LinearGradientBrush> 
</Setter.Value> 
</Setter> 
<Setter Property="Margin" Value="2,5,2,5"></Setter> 
ZSEVlLes> 
</Window.Resources> 


<StackPanel> 
<ComboBox Width="100px" Height="Auto"> 
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<ComboBoxItem>Item One</ComboBoxItem> 
<ComboBoxItem>Item Tow</ComboBoxItem> 
<ComboBoxItem>Item Three</ComboBoxItem> 
</ComboBox> 
<StackPanel Orientation="Horizontal" HorizontalAlignment="Center"> 
<Button>Add</Button> 
«BUCEEORNSEQALECZEUEEON> 
XBUCEOR METIR =TIVU OES 
#BUEEORN: BACKGEOURNGOS 
<LinearGradientBrush StartPoint="0,0" EndPoint="0,1"> 
<GradientStop Offset="0.25" Color="#FFFF1122"></GradientStop> 
<GradientStop Offset="0.85" Color="F#FFFFFFFF"></GradientStop> 
</LinearGradientBrush> 
<7 BüUttEOoR. BaãcKéFEOuURQ> 
Delete 
* J BUEEoRS 
</StackPanel> 
</StackPanel> 
</Window> 


ه حيث نلاحظ أن المظهر الذي قمنا بتحديده كمظهر عام لجميع الأزرار في النموذج قد تم تطبيقه على الزرین ۸۵۵ و الع ولم يتم 
تطبيقه على الزر معام وذلك بسبب أن الزرين له و ءام لم نقم بتحديد مظهر خاص بهما فيأخذان المظهر العام الذي 
قمنا بتحديده في البداية لجميع الأزرار في النموذج وبما أننا قمنا بتحديد مظهر خاص بالزر هام0 ملتصق به مباشرة لذا يأخذ 
المظهر الأقرب له 

ه أضف زرا جديدا وليكن ع5 ضمن مجموعة أزرار النموذج وقبل الزر لله مباشرة وسنقوم الآن بإضافة مظهر مخصص له 
بطريقة أخرى وهي تحديد رم يميز هذا المظهر حيث نربطه مع الزر الذي نرغب بتطبيقه عليه باستخدام الخاصية هار لذلك 
الزر ولعمل ذلك قم بإضافة كود قسم عار†ء التالي بعد قسم مإراء السابق مباشرة </Window.Resources> Joy‏ 


<Style TargetType="Button" x:Key="MySearch"> 
<Setter Property="Background"> 
<Setter.Value> 
KLINESAEGEAQLENEBEUSTH SEAEEPOIRE=TO O" ERQFPOINENO, IT 
<GEadientStop Offset="0.3" CoOlOE=™FEFLIFF11"/> 
<GradientStop Offset="0.8" Color="#CCFFBB11"/> 
</LinearGradientBrush> 
</Setter.Value> 
</Setter> 
<Setter Property="Margin" Value="2,5,10,5"></Setter> 
</Style> 


ه حيث نلاحظ إضافة الخاصية رع):× في بداية تعريف قسم ءارك والتي يمكننا من خلالها ربط أي زر مع هذه الخاصية حيث 
سنقوم بتعديل كود الزر ۸ء هم ليرتبط مع المظهر الجديد ليصبح كما يلي 


<Button Style="{StaticResource MySearch}">Search</Button> 


وبهذا نكون قد غطينا فكرة مبدئية عن كيفية تغيير مظهر التحكمات في برنامج 0/۴۴ برمجيا وفيما يلي سرد كامل لكود ا × الخاص بهذا 
الموضوع متضمن كافة الأفكار التي تم طرحها هنا 


<Window x:Class="Windowl" 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
XMLAS?XSPRtEEp?/ / schemas. MicroSoft. COM/WIREX 7/2006 / xam" 
Title="Window1l" Height="300" Width="300" Background="Azure"> 


<Window. Resources> 
<Style TargetType="Button"> 
<Setter Property="Background"> 
<Setter.Value> 
<LinearGradientBrush StartPoint="0,0" EndPoint="0,1"> 
<GradientStop Offset="0.3" Color="#FFFFFF55"/> 
<GradientStop Offset="0.8" Color="#AASS555FF"/> 
</LinearGradientBrush> 
</Setter.Value> 
</Setter> 
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<Setter Property="Margin" Value="2,5,2,5"></Setter> 
</Style> 
<Style TargetType="Button" x:Key="MySearch"> 
<Setter Property="Background"> 
<Setter.Value> 
<LinearGradientBrush StartPoint="0,0" EndPoint="0,1"> 
<GradientStop Offset="0.3" Color="#FF11FF11"/> 
4GFédiERESLOp -OfESEE=O; OT ColoE=HOCEFEBLIT> 
</LinearGradientBrush> 
</Setter.Valüê> 
</Setter> 
<Setter Property="Margin" Value="2,5,10, 5"></Setter> 
</Style> 
</Window.Resources> 


«<StackPanel> 
<ComboBox Width="100px" Height="Auto"> 
<ComboBoxItem>Item One</ComboBoxItem> 
<ComboBoxItem>Item Tow</ComboBoxItem> 
<ComboBoxItem>Item Three</ComboBoxItem> 
</ComboBox> 
<StackPanel Orientation="Horizontal" HorizontalAlignment="Center"> 
<Button Style="{StaticResource MySearch}">Search</Button> 
<Button>Add</Button> 
KBUEEONSEIILEXJBUTCEORS 
XBUEEONR. MaFOLRETIU; Sg Ap 
KRBUE tOR.BAaCKEGEOURIS 
<LinearGradientBrush StartPoint="0,0" EndPoint="0,1"> 
<GradientStop Offset="0.25" Color="#FFFF1122"></GradientStop> 
<GradientStop Offset="0.85" Color="#FFFFFFFF"></GradientStop> 
</LinearGradientBrush> 
</Button.Background> 
Delete 
*/BUEEOR* 
</StackPanel> 
</StackPanel> 
</Window> 
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كيف يمكننا تضمين صورة كمصدر في تطبیق مس ثم إظهارها وقت التنفيذ؟ 


WPF Application عوill‎ ja أنشئ مشروعا جديدا‎ 

افتح مجلد المشروع وانسخ غليه الصورة التي تريدها 

في ۵۲٣هام×E‏ ۸هااںاه؟ انقر نر الفأرة اليميني على اسم مشروعك تم اختر Ad‏ تم |٤٥۳‏ ع آاءا×م لملفات المشروع 

تأكد من أن خاصية ٣0ذاءA‏ dاا8u‏ موضو عة علىResource‏ 

أضف تحکم ٥‏ ع۵¡ وزر ٤٥١‏ ں8 لنافذة المشروع 

انقر نقرا مزدوجا على الزر لإنشاء إجراء لمعالجة الحدث )ءا للزر ثم أدخل الكود التالي وذلك بافتراض أن اسم ملف الصورة 
seatbelt.bmp‏ 


Me. Imagel.Source = New BitmapImage (New 
Uri ("pack://application:,,,/seatbelt.bmp") ) 


شغل المشروع واختبره 
حيث استخدمنا الفئة |۴ للحصول على المصدر ع٠۲‏ هءمR‏ والتي تعید تمثیلا لغرض 1٥ع‏ زط0 لمحدد مصادر موحد ٥٣۳‏ اہں 


URI و تسھیل الوصول لأقسام‎ Resource dent fier 
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كيف يمکننا تطبيق مظهر مخصص لنافذة برنامج W۴‏ في زمن التشغيل 


ُنشئ تطبیق ۷۴۴ جدید 


سنقوم بالبداية بإنشاء عمودين داخل الشبكة الخاصة بالنافذة بحيث يكون الثاني بضعف حجم الأول وذلك بإدخال الكود التالي بعد <لأ٣6>‏ 
مباشرة وذلك في محرر ۸1× الخاص بنافذة المشروع 
GELA: COLUmMnNDEfINTLETLORNSS‏ 
KES DHGMADEFIRNTTELOD WEQE‏ 


#COLUMADEEIRILCELON Widths 
I GFLQA.COLUMABDEEIRLELOoRSS 


كما سنقوم بقسم الشبكة إلى سطرين ولكن سنترك للبرنامج تحديد حجمهما ديناميكيا وذلك بإدخال الكود التالي بعد الكود السابق 


<Grid.RowDefinitions> 
<RowDefinition/> 
<RowWwDefIRIEION/> 
y GELI. ROWDEfIRILELORSS 


سنضيف الآن بعض التحكمات للنموذج وسنبداأً بإضافة تحكم |عطه] بحيث تكون محتوياته ووعإ لل 5۲٠٠‏ و التجانب الأفقي لليمين 

والشاقولي للوسط كما سنضيف صندوق نصوص يحتوي النص ءء٠ا‏ هل۸ 5۲٠٠٤‏ ۲٥ع‏ وسيكون التجانب الأفقي لليسار والشاقولي للوسط 
وذلك بإدخال الكود التالي مباشرة بعد الكود السابق 

<Label Content="Street Address" HorizontalAlignment="Right" VerticalAlignment="Center"></Label> 
<TextBox Text="Enter a street address" HorizontalAlignment="Left" 
VerticalAlignment="Center"></TextBox> 

سنحدد الآن اسما لصندوق النصوص وليكن ١٥۲ل‏ كA»‏ وذلك بتحديد قيمة الخاصية ٥ه"‏ :× إلى القيمة المطلوبة كما سنحدد مكانه في 
الشبكة أيضا بتحديد قيمة الخاصيتين "١‏ ںاه٤.۵ذإ6‏ و 0W‏ 64.۴ فيصبح الكود الخاص بصندوق النصوص على الشكل التالي بعد التعديل 


<TextBox Grid.Column="1" Grid. Row="0" x:Name="txtAddress" Text="Enter a street address" 
HorizontalAlignment="Left" VerticalAlignment="Center"></TextBox> 


كما سنقوم بتحديد مكان ال |عطهج] في الشبكة باستخدام ""ںاه٤.4ا6‏ و Wه۲.‏ لاا وذلك بنفس الطريقة السابقة إضافة إلى أننا سنقوم 
بربط ال عاطج] بصندوق النصوص باستخدام الخاصية اع ع2۲٠‏ ل اعطج] فيصبح الكود الخاص ب اعمطج] على الشكل التالي 


<Label Grid.Column="0" Grid. Row="0" Target=" {Binding ElementName=txtAddress, 
Mode=OneWay}" 

Content="Street Address" HorizontalAlignment="Right" 
VerticalAlignment="Center"></Label> 


الآن سنقوم بإضافة زر أوامر باستخدام الكود التالي 


<Button Grid.Column="1" Grid.Row="1" Content="Save Street Address" 
HorizontalAlignment="Left" VerticalAlignment="Top" /> 


أضف المحرف _ في بداية نص "ع٠٠‏ الخاص ب اعطه] لتصبح قيمة تلك الخاصية 

COREE SCTE AUTOS 
وذلك حتى يمكننا استخدام الخاصية ع1۲٠ للانتقال مباشرة لصندوق النصوص باستخدام الاختصار ۸۲-5 بما أننا وضعنا المحرف _ قبل‎ 
> الحرف‎ 
شغل البرنامج واختبره ويكون قد أصبح كود ا × الخاص بالنافذة كما يلي‎ 


<Window x:Class="Windowl" 
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xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
#MIRSTE="hEtED?// Schemas .MiIorOSOftE. COM/WinfÊS/2006/xam1™ 
Title="Test WPF Skinning" Height="300" Width="300"> 
<Grid> 
GELI. COLUMADSFTALELORS# 
<ColumnDefinition Width="*"/> 
<ColumnDefinition Width="2*"/> 
</Grid.ColumnDefinitions> 
<Grid. RowDefinitions> 
<RowDefinition/> 
<RowDefinition/> 
</Grid.RowDefinitions> 
<Label Grid.Column="0" Grid.Row="0" Target="{Binding ElementName=txtAddress, Mode=O0neWay}" 
Content=" Strest Address" HofFIZONtELALignment="RightE™ 
VerticalAlignment="Center"></Label> 
<TextBox Grid.Column="1" Grid. Row="0" x:Name="txtAddress" Text="Enter a street address" 
HorizontalAlignment="Left" VerticalAlignment="Center"></TextBox> 
<Button Grid.Column="1" Grid.Row="1" Content="Save Street Address" 
HorizontalAlignment="Left" VerticalAlignment="Top" /> 
</Grid> 
</Window> 


انتقل إلى ۲٥٣هام×ع‏ nمu†iامك‏ وقم بفتح الملف اص۳ه×.١‏ 10ء امم كي نقوم بتحديد المظهر الخاص بأدواتنا هنا وسنبداً بتحديد المظهر 


الخاص ب اعطه] وذلك بإدراج قسم عار التالي بعد <وعع ۲ں 0مءع ۸.۸ 0ااهءاممA>‏ مباشرة حيث سنقوم بتحديد قيمة اللون الأمامي وحجم 
الخط 


<Style TargetType=" {x:Type Label}" x:Key="LabelStyle"> 
<Setter Property="Foreground" Value="Blue"></Setter> 
<Setter Property="FontSize" Value="12px"></Setter> 
</Style> 


وسنقوم الآن بتحديد مظهرين فارغين لكلا صندوق النصوص وزر الأوامر بحيث لن يغيرا شيئا في الوقت الحالي على مظهر التحكمين وذلك 
بإدخال الكود التالي مباشرة بعد الكود السابق 


<Style TargetType="{x:Type TextBox}" x:Key="TextBoxStyle"></Style> 
<Style TargetType="{x:Type Button}" x:Key="ButtonStyle"></Style> 


وبهذا يصبح الكود الخاص ب ا"۳ه×.١٥ااهءاممA‏ حتى الآن كالتالي 


CABDDITEA ELO RICLASSSFASDTLTLERETLOR™ 
xmlns="Rttp: //scehémas.MicrosSoftE. com/winfx/2006/xam1/prFésëntat iol" 
RMINSER=THEEB? //SCRHEMAS:MICEOSOEE. COM/WIBERZ7 20U06 / xam" 
SEaEtUPUELSTWITOOWL. RAMI 
<Application. Resources> 
<Style TargetType="{x:Type Label}" x:Key="LabelStyle"> 
<Setter Property="Foreground" Value="Blue"></Setter> 
<Setter Property="FontSize" Value="12px"></Setter> 
4 SEyYLES 
<Style TargetType=" {x:Type TextBox}" x:Key="TextBoxStyle"></Style> 
<Style TargetType="{x:Type Button}" x:Key="ButtonStyle"></Style> 
</Application. Resources> 
ZABpLTEAEEONZ 


ولربط هذه المظاهر الجديدة مع التحكمات نعود لكود |" ه× الخاص بالنافذة ونضيف الخاصية ءارك لكل من ال اعطجا و صندوق 
النصوص و زر الأوامر فيصبح الكود الخاص بالتحكمات الثلاثة على الشكل 


<Label Grid.Column="0" Grid.Row="0" Target=" {Binding ElementName=txtAddress, Mode=O0neWay}" 
Content=™ SEFe6t .AdaA£fesS™ HOrIZOnNtEaALAlLgnmMent="RIghE™ VertlealAll1gnment=™ÇCentez™ 
Style=" {DynamicResource LabelStyle}"></Label> 
<TextBox Grid.Column="1" Grid.Row="O0" x:Name="txtAddress" Text="Enter a street address" 
HorizontalAlignment="Left" VerticalAlignment="Center"™ 
Style=" {DynamicResource TextBoxStyle}"></TextBox> 
<Button Grid.Column="1" Grid.Row="1" Content="Save Street Address" 
HorizontalAlignment="Left" VerticalAlignment="Top" Style=" {DynamicResource ButtonStyle}"/> 
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ونلاحظ هنا أننا استخدمنا DynamicResource‏ في الخاصية Style‏ لربط مع الشكل المراد حيث نحدد أن هذه الخاصية يمكن أن يتم 
تغييرها في زمن التشغيل ديناميكيا وأن المظهر المطلوب قد يكون موجودا وقد لا يكون موجودا بينما لو استخدمنا معا 0uءe 8R‏ هك في 
هذه النقطة سنخبر البرنامج أننا نتوقع وجود ذلك المظهر وأنه لن يتم تغييره 


شغل البرنامج واختبره 
أضف الخاصية )اح لتعريف الزر وذلك لإضافة إجراء لمعالجة حدث النقر على الزر بحيث تكون على الشكل 

CILERETBUEEOR CILER™ 
ويصبح تعريف الزر في النهاية على الشكل‎ 


KBÛEEoOR GELQ: COLURRE™I™ GELO ROWST™I™ COREENES™ Save SEET. Address" CLIIGKRE"BUEEGR CIGER" 
HorizontalAlignment="Left" VerticalAlignment="Top" Style=" {DynamicResource ButtonStyle}"/> 


ثم انتقل لمحرر الكود الخاص بالملف ط۷.ا۳ه×.1س٥ل" W1‏ وأضف إجراء معالجة حدث النقر على الزر وأضف استيرادا ل ٣.10‏ عارك 
ق System.Windows.Markup‏ في بداية الملف وأنشئ اجراءا فارغا لحدث النقر على الزر كما يظهر في الكود التالي 


IMESEES SYSTEM. ILO 
Imports System.Windows.Markup 


Class Windowl 
Sub: Bitton CLICKX(BYJVSL sender As Object, ByVal e AS RoütéedEventArgs) 


EA: SUBD 
End Class 


اختر Add New |tem‏ من القائمة ctعزہrم‏ ثم أضف ملفا من النوع  WPF Resource Dictionary‏ للمشروع وقم بتسمیته 
اe.xamاCrazy5ty‏ وقم بتعديل الخاصية Copy to output direc‏ الخاصة بھ إلى ٣eweہ‏ ۴¡ Copy‏ وأيضا قيمة الخاصية لانuںم8‏ 
Action‏ إلى Content‏ حیث سنستخدمه كملف 5)1١‏ للنافذة بحيث أننا سنستخدم الخاصية sءعrc Dynamic Rou‏ في W۷۴۴‏ لتعمل كما 
لی آنا تشخدم واو لمرو وق قل ريات كرد اوو الخاض به يصح كما في الكرة القالى حبكت ميري على الأشكال الخاسة 
بتحكمات نافذة المشروع وبنفس الطريقة التي استخدمناها منذ قليل 


<ResourceDictionary 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation”" 
XmMINS:X="REEp:/7/scthemas.microsoft .com/Wwinfx/2006/xaml"™> 


<Style TargetType=" {x:Type Label}" x:Key="LabelStyle"> 
<Setter Property="Foreground" Value="Red" /> 
<Setter Property="FontSize" Value="16px" /> 
</Style> 
<Style TargetType="{x:Type TextBox}" x:Key="TextBoxStyle"> 
<Setter Property="Background"> 
<Setter.Value> 
KLINEAEEEAALEREBEUSh SEAFEPOLRE=T"O, O" ENdAPOLit=TI1 OTS 
<GradientStop Offset=".1" Color="AliceBlue" /> 
4GEadientStop Offset=™. 5" Cölor="AntigüeWhite™ /%> 
<GradientStop Offset="1" Color="Aquamarine" /> 
</LinearGradientBrush> 
</Setter.Value> 
</Setter> 
</Style> 
<Style TargetType="{x:Type Button}" x:Key="ButtonStyle"> 
<Setter Property="Foreground" Value="Blue" /> 
<Setter Property="FontSize" Value="16px" /> 
</Style> 


</ResourceDictionary> 
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الآن عد إلى إجراء معالجة الحدث »ءا للزر الذي أنشأناه سابقا وقم بتعديله ليصبح كما في الكود التالي الذي يقوم بتعريف المتغير ل۲ 
ليكون من النوع ResourceDictio nar‏ تم يستخدم ‏ «"هع51rء|۴i‏ لفتح الملف |" ه×.#ار†كرهr‏ للقراءة ثم نستخدم 
Reader.L0a4|اXam‏ لقراءة محتويات الملف مستخدمين الدالة عممر ٣‏ لتحويل نوع الناتج المقروء إلى Di٥ ٣2۲۷‏ عResourc‏ تم نقوم 
بوضع تلك القيمة في المتغير #١‏ الذي سنضبطه ليكون المصدر الحالي Current Resource‏ لاتطبیق وذلك بإسناد قیمتھ إلی 


Application.Current. Resources 


Sub Button Click(ByVal sender As Object, ByVal e As RoütedEventArgs) 
Dim rd As ResourceDictionary = Nothing 
Using fs As New FileStream ("CrazyStyle.xaml", FileMode. Open, 
FileAccess.Read) 
rd = CType (XamlReader.Load(fs), ResourceDictionary) 
ERAQ. USING 
Application.Current.Resources = rd 
EH@ SUB 


شغل التطبيق واختبره 
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استخدام تحکمات ۶إ Windows ۴٥٣‏ من داخل تطبیق WPF‏ 


یمکن استخدام تحکمات Windows Form‏ من داخل تطبیق ۷۲۴ من خلال استخدام llفأة WindowsFormsHost Class‏ 
والتي يكون تعريفها ضمن ءiءه8‏ اجنوا كالتالي 

CORN TEnNEPFOBEEFEYAEEELBUEE TCERLILIT DS 

PUBDLILG CL4SS WIiNAOWSFOrmMmSHOSE _ 


IHHeEIES HwnQdHOSE _ 
Implements IKeyboardInputSink 
واستخدامها‎ 
Dim instance As WindowsFormsHost 


وهي موجودة ضمن مجJi ys WindowsFormslntegration gaجaئl gg System.Windows.Forms.Integration sla!‏ 
المكتبة |ال. Windows ormsاntegra†i 0٣‏ حيث يبين لنا المثال التالي كيفية استخدام العنصر ‏ 1ء۳10 Windows ۴ ors‏ لاستضافة 
تھكمlٽ Windows Forms‏ 


<Window x:Class="HostingWfInWpf.Window1" 

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
xmlns:wf="clr-namespace:System.Windows.Forms;assembly=System.Windows.Forms" 
Title="HostingWfInWpf"™ 
چ‎ 
GELS 

<WindowsFormsHost> 

<wf:MaskedTextBox x:Name="mtbDate" Mask="00/00/0000"/> 

</WindowsFormsHost> 

</Grid> 


</Window> 


<Window x:Class="Window1" 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
xmlns:wf="clr-namespace:System.Windows.Forms;assembly=System.Windows.Forms" 
Title="HostingWfInWpf"> 
<Grid> 
<WindowsFormsHost> 


<wf:MaskedTextBox x:Name="mtbDate" Mask="00/00/0000"/> 
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</WindowsFormsHost> 
EZGEILAS 


</Window> 


ولاستضافة تحکم ۴٥۲"۶‏ sس0wلہWi‏ من ضمن تطبيق ۷۲۴ يجب عليك تحدید تحكم ء٣۲۳٥۴‏ sس0هہاW۷‏ إلى الخاصية ١اا٤‏ وذلك 
باستخدام الخاصية مج N‏ عم ه۴۲ لتحديد الربط بين العنصر Window s۴0 ۲N" s۳10s†‏ و تحكم Windows ۴0۲s‏ المستضاف ضمنه 


أنشئ تطبيقا من الiوع WPF Application‏ و HostingWfINWpf 4w‏ وخ Solution Explorer‏ أضف مرجعا للمجمع 
WindowsFormsIntegration.dl| ıawnlls WindowsFormslIntegration‏ تم قم بفتح ۳1 ھ×.d0wW1ہWi‏ واستبدل کود اہھ× 
المولد تلقائيا بالكود التالي 


<Window x:Class="HostingWfInWpf.Window1" 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
Title="HostingWfInWpf" 
Loaded="WindowLoaded™ 
8 
<Grid Name="grid1"> 


CELI 
</Window> 


<Window x:Class="Windowl" 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
Title="HostingWfInWpf" Height="300" Width="300" 
Loaded="WindowLoaded" 
ج‎ 
<Grid Name="grid1"> 


</Grid> 
</Window> 


افتح الملف ط۷.١۳هW1.×a٠0ه"‏ ۷1 في محرر الكود وقم باستبدال جميع الكود الموجود بالكود التالي 


IMOORE Sl OVS ECM 
Imports System.Windows 

Imports System.Windows.Controls 
Imports System.Windows. Data 

Imports System.Windows. Documents 
Imports System.Windows.Media 

Imports System.Windows.Media. Imaging 
Imports System.Windows.Shapes 


Imports System.Windows.Forms 


" IREEFAaCELOR. ToOgGLe for WIROIoOWIL: Xam 
Partial Public Class Windowl 
Inherits Window 


PUBDLILEG Sub New () 
InitializeComponent () 
End Sub 


Private Sub WindowLoaded (ByVal sender As Object, ByVal e As 
RoutedEventArgs) 
'" CEFeaté  EHê: ÎHEEeFOp NOSE CONEEFOL: 
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Dim host As New System.Windows.Forms.Integration.WindowsFormsHost () 
' Create the MaskedTextBox control. 
Dim mtbDate As New MaskedTextBox ("00/00/0000") 


" ASsigh the MaškéedTextEBOoxX COontEFOlL ã5 the Host CONEEOL"S. CBHILA: 


host.Child = mtbDate 

" Add the Iiterop host Control to the GEid 
CORNEEOL"S COLLOCELOTE. OE CREEL: COREEOLSE 
Me.grid1.Children.Add (host) 


End Sub 'WindowLloaded 


End Class 


اضغط ۴5 لاختبار المشروع 
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استخدام عناصر W۷۲۴‏ من داخل تطبیق Windows Fors‏ 


یمکن استخدام عناصر ۷۲۴ من داخل تطبیق ۴٥۲۳۶‏ س0ل ہ۷1 من خلال استخدام الفئة ووا ٥٣۲۳۲05‏ "اع والتي یکون 
تعریفها ضمن »ءھ8 اھںوا۷ كالتالي 


RContentPEOBDEEFLYACEEFIBDUTCE(™CRILQTY ST 


Public Class ElementHost 


InhEéEitS Control 


وانشخدامها 


Dim instance As ElementHost 


وهي موجودة ضمن مجال الأسماء System .Windows.Forms.|ntegration ىıمسall Namespace‏ وفي المجمع 
WindowsFormsIntegration‏ وفي المكتبة windows formsintegrati0 ^ .d||‏ ویکون اسم مجال اسماء ۷1× الخاص بھا 1× 
http ://schemas.microsoft.com/winfx/2006/xam|/presentation ya Namespace‏ ويبین لنا المثال التالي كيفية استخدام 
التحكم Element Host‏ لاستضافة عنصر W P۶۴‏ 


Privaté Sub EForml Load(ByVal sënder A§ System.Object, ByVal e &s System: EventAFGS) 
Handles MyBase.Load 


' Create the ElementHost control for hosting the 


' WPF USEFCOREEOLS 


Dim host As New ElementHost () 


host.Dock = DockStyle.Fill 


'  CFrêéêate Re: WPF UserCORNtEFOL: 
Dim uc As New HostingWpfUserControlInWf.UserControl1 () 


' Assign the WPF UserControl to the ElementHost control's 
' ChRILA BEODEEEY: 


HOSE:CHLLG, = ue 


' Add the ElementHost control to the form's 
". gGOLLEeESELOR OE CHILE COREEOLS. 
Me.Controls. Add (host) 

End Sub 


ولاستضافة عنصر ۷۲۴ ضمن ۴٥۲۳‏ sسملماW‏ يجب عليك تحديد عنصر ‏ ۷۴۴ إلى الخاصية 4اا وذلك باستخدام 
الخاصية PropertyMap‏ لتحديد الربط بين التحكم ementHostا۴‏ وعنصر ۷۴۴ المستضاف ضمنه كما يمكننا استضافة تحکم 
Windows Forms‏ ضمن تطبیق P۴‏ باستخدام iallصر WindowsFormsHost‏ 


قم بإنشاء مشرو ع جديد Hosting WpfUserControllnWf aaws WPF User Control Library عوill j‏ ثم قم بفتح الملف 
UserControl 1.xam|‏ في WP۴ Designer‏ واستبدل كامل الكود الموجود بالكود التالي 
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<UserControl x:Class="HostingWpfUserControlInWf.UserControl1"™ 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
> 
GEIS 
<=» BPlaêê: .ã LêbBêl êOntErolL at thé top of the views. =5 
<Label 
HorizontalAlignment="Center" 
TextBlock.TextAlignment="Center"™ 
FontSize="20" 
Foreground="Red" 
Content="Model: Cone"/> 
<I== VleWwpOEt3D 1s the rendering SUEFfacê,. ==> 
<Viewport3D Name="myViewport" > 
<!-- Add a camera. --> 
<Viewport3D.Camera> 
<PerspectiveCamera 
FarPlaneDistance="20" 
LookDirection="0,0,1" 
UpDirection="0,1,0" 
NearPlaneDistance="1" 
Position="0, 0, -3" 
FieldOfView="45" /> 
</Viewport3D.Camera> 


<!-- Add models. =--> 
<Viewport3D.Children> 


<ModelVisual3D> 
<ModelVisual3D.Content> 


<Model3DGroup > 
<Model3DGroup.Children> 


<!-- Lights, MeshGeometry3D and DiffuseMaterial objects are added to the 
ModelVISUAL3D: ==> 

<DirectionalLight Color="#FFFFFFFF" Direction="3,-4,5" /> 

<!-- Define a red cone. =-> 

<GeometryModel3D> 


<GeometryModel 3D. Geometry> 
<MeshGeometry3D 


Positions="0.293893 -0.5 0.404509 0.475528 -0.5 0.154509 0 0.5 0 0.475528 -0.5 
0.154509 0 0.5 0 0 0.5 0 0.4715528 -0.5 0.154509 0.475528 -0.5 -0.154509 0 0.5 0 
0.475528 -0.5 -0.154509 0 0.5 0 0 0.5 0 0.475528 -0.5 -0.154509 0.293893 -0.5 -0.409 
0O05 O0 0.293893 =0:5. =0. 0 5 0 0.05 0 0283 =5 =0 0 = 05 = 05 0 
0:50 0 30:5 20.9 00:5 0 0O O5 O0 O0 30.5 20.5 30.293893 505 20.404509 0 O O 3 
0:293893 =0.5 =0.404509 0 05 0 0 0:5 0 =0.,293893 05 20.404509 20.45528 05 = 
0.154509: 0 0.5 0 20.475528 20.5 0.154509 0 05 0 0 05 0 047528 05 20.109 2s 
O.475528 =0.5 O154509 <O 0.5 O0 =0.475528 05 15409 O O5 0 O 0.5 0O =0.475528 =5 
0.154509 -0.293892 -0.5 0.404509 0 0.5 0 -0.293892 -0.5 0.404509 0 0.50 00.50 - 
Q2 ISA EOS QA 04909 SOS OES. OOS O O EOS O O OSO OOO OSO O 
0.293893 -0.5 0.404509 0 0.5 0 0.293893 -0.5 0.404509 0 0.50 00.50 " 


Normals="0.7236065,0.4412139,0.5257313 0.2763934,0.44712138,0.8506507 


0.5308242,0.4294462,0.7306172 0.2763934,0.4472138,0.8506507 0,0.4294458, 0.95 
0.5308242,0.4294462,0.7306172 0.2763934,0.4472138,0.8506507 =-0.2763934,0.4472138,0.8 07 
0,0.4294458,0.9030925 =0.2763934,0.4472138,0.8506507 =-0.5308242,0.4294462,0. 73012 
0,0.4294458,0.9030925 =0.2163934,0.44 72138,085 - =0. 723606504472139, 05251313 = 
0.5308242,0.4294462,0.7306172 -0.71236065,0.4472139,0.5257313 -0.858892,0.429446,0.2791 
-0.5308242,0.4294462,0.7306172 -0.7236065,0.4472139,0.5257313 -0.8944269,0.4472139,0 = 
0.858892,0.429446,0.279071 -0.8944269,0.4472139,0 -0.858892,0.429446,-0.279071 = 
0.858892,0.429446,0.279071 -0.8944269,0.4472139,0 -0.7236065,0.4472139,-0.5257313 - 
0.858892,0.429446,-0.27907 -0.7236065,0.4472139,-0.5257313 -0.5308242,0.4294462,- 
0.7306172 =0.858892,0.429446 0.2790/71 =0. 723606504472139 ,=0.5257313 = 
0.2763934,0.4472138,-0.8506507 -0.5308242,0.4294462,-0. 7306172 -0.27163934,0.4472138,- 
0.8506507 0;0.4294458,=0.9030925 =0.5308242,0.4294462 7-0. 1306172 -0:276334,0. 4472138 = 
0.8506507 0.2763934,0.4472138,-0.8506507 0,0.4294458,-0.9030925 0.2763934,0.4472138,- 
0.8506507 0.5308249,0.4294459,-0.7306169 0,0.4294458,-0.9030925 0.2763934,0.4412138, = 
0.8506507 0.7236068,0.4472141,-0.5257306 0.5308249,0.4294459,-0. 7319 
0.7236068,0.4472141,-0.525/306 0.8588922,0.4294461,-0.27907 0.5308249,0.4294459,-0. 73619 
0.7236068,0.4472141,-0.5257306 0.8944269,0.4472139,0 0.8588922,0.4294461,-0.2707 
0.8944269,0.4472139,0 0.858892,0.429446,0.27907/1 0.8588922,0.4294461,-0.2707 
0.8944269,0.4472139,0 0.7236065,0.4472139,0.5257313 0.858892,0.429446,0.27901 
0.7236065,0.447/2139,0.5257313 0.5308242,0.4294462,0.7306172 0.858892,0.429446,0.279071 " 
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TELargLéIlRQdicéES="O 12 3 4 5 6 78 FS 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 8 
SIT JS 

</GeometryModel3D. Geometry> 


<GeometryModel3D.Material> 
<DiffuseMaterial> 
<DiffuseMaterial.Brush> 
ESOLTIQACOLOEBEUSR 
Color="Red" 
Dpaoity="1.0"7> 
</DiffuseMaterial.Brush> 
</DiffuseMaterial> 
</GeometryModel3D.Material> 


</GeometryModel3D> 


</Model3DGroup.Children> 
</Model3DGroup> 


</ModelVisual3D.Content> 
</ModelVisual3D> 
</Viewport3D.Children> 


</Viewport3D> 
</Grid> 


J USEECOREEOLS 


e‏ أضف aشڙgع Solution Explorer ga, WpfUserControlHost aw JaJ Solution J Windows Forms‏ أضف 
مرجla‏ lزaجga WindowsFormslIntegration‏ وسم |ntegration.dl|اsForms Window‏ ثم قم بإضافة مرجعا 
PresentationCore aıllîll WPF تٽlznجnl Reference‏ ڪ pî WindowsBase gy PresentationFramework‏ أضف 
مرجعا ن Hosting Wp fUserControllnW Ê‏ ضمن المشروع ثم قم بضبط المشروع Wp fUserControlHost‏ لیکكون 
Startup Project‏ 

افتح ۴0٥۲۳1‏ في Windows Forms Design‏ تم انقر نقرا مزدوجا علی ۴٥۲٢1‏ لفتح محرر الکود ثم قم باستبدال الکود 
الموجود بالكود التالي 


Imports System 
Imports System.Collections.Generic 
Imports System. ComponentModel 
Imports System.Data 

Imports System. Drawing 

IMPOEFES SYS tem. TERE 

Imports System.Windows.Forms 


Imports System.Windows.Forms. Integration 


PUDDLES Cla EOL 
Inherits Form 


Private Sub Form1_ Load(ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) Handles MyBase.Load 


' Create the ElementHost control for hosting the 
"WPF USEFCOREFOL. 

Dim host As New ElementHost () 

host.Dock = DockStyle.Fill 


' Create the WPF UserControl. 
Dim uc As New HostingWpfUserControlInWf.UserControl1l () 


' Assign the WPF UserControl to the ElementHost control's 
' CROLL BEOBEEEY: 
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host.Child = uc 


' Add the ElementHost control to the form's 
" ‘COLLEGE LOR. OE CULL COMEEOLSS 
Me.Controls.Add (host) 

ERG. SUD 


End Class 


اضغط ۴5 لاختبار المشروع 


دعنا نقوم بعمل مثال معا خطوة خطوة 
أنشئ مشرو عا جديدا TestHostElement aw Windows Forms Application عوill j‏ 


انقر بزر الفأرة اليميني على ال ×ه8|هه] واختر ئصع†| م0sمhطC‏ من القائمة ومن صiحة net Framework Components.‏ اختر 
Element Host‏ لیتم إضافتھا ل ×0 ٥٥٥۱8‏ لديك ثم اسحب التحکم †ئ0 me۸۲۳‏ e|ا۴‏ من ال ×ه ٠٥٠0١8‏ وضعه على النافذة لديك ثم حدد 
القيمة إ۴ للخاصية )ء50 


في ال ۲٥e٣هام×ع‏ nهutiامك‏ انقر بزر الفأرة اليميني على المشروع واختر User Control رتةخl WPF ةحaiص jمو Add New Item‏ 
N۶۴‏ تم في محرر | × الخاص بال اهمه ٣عول‏ أضف الكود التالي حتى نقوم بإضافة تحكم ۲ع ل80۲ للتحكم وذلك بعد السطر 
<ل6> مباشرة حيث تحدد الخاصية ١أع۲ة/‏ الهوامش الخاصة بالتحكم و كوم" )آ٣‏ ١۲ملاهB‏ سماكة الحدود 


<Border Margin="1, 0,0,78" Name="Borderl" BorderThickness="0"> 


</Border> 


سنقوم بتخصيص شكل الخلفية للتحكم مه8 وذلك برسم الخلفية الخاصة به باستخدام إوں 18ء radi‏ ar6عمLin‏ كما في الكود التالي الذي 
سنضيفه داخل الكود السابق 
<Border.Background>‏ 
<LinearGradientBrush StartPoint="0,0.1" EndPoint="0.3,1">‏ 
<GradientStop Offset="0.1" Color="Aquamarine"></GradientStop>‏ 
<GradientStop Offset="0.3" Color="Plum"></GradientStop>‏ 
<GradientStop Offset="0.6" Color="Gold"></GradientStop>‏ 
<GradientStop Offset="0.9" Color="Chocolate"></GradientStop>‏ 
<GradientStop Offset="1" Color="GreenYellow"></GradientStop>‏ 
</LinearGradientBrush>‏ 


</Border.Background> 


أدخل الكود التالي بعد الكود السابق وقبل </۲ع له 8> مباشرة وذلك لإضافة تحکم InkCanvas‏ 


<InkCanvas Margin="5, 5,5,5" Name="InkCanvas1l" Height="Auto" Width="Auto" 
Background="AliceBlue"/> 


كي نضيف زر لمسح محتويات وهة۷" ة٣‏ )| أضف الكود التالي بعد </۲ع ل۲٥‏ 8> حیث استخدمنا یں LinearGradientBr‏ لرسم ال 
Foreground‏ و ال Background‏ الخاصین بالزر 


<Button Height="25" Margin="100,0,100,25" Name="bþtnClear" 
VerticalAlignment="Bottom" Content="Clear InkCanvas"> 
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<Button.Foreground> 
<LinearGradientBrush StartPoint="0.3,0.1" EndPoint="0.7,1"> 
<GradientStop Offset="0.1" Color="Red"></GradientStop> 
<GradientStop Offset="0.9" Color="Blue" ></GradientStop> 
</LinearGradientBrush> 
</Button.Foreground> 
<Button. Background> 
<LinearGradientBrush StartPoint="0.3,0.1" EndPoint="0.7,1"> 
<GradientStop Offset="0.1" Color="#99FFFF"></GradientStop> 
<GradientStop Offset="0.4" Color="F#FFF99FF"></GradientStop> 
<GradientStop Offset="0.9" Color="#FFFF99" ></GradientStop> 
</LinearGradientBrush> 
</Button.Background> 
</Button> 


من نافذة محرر ال ام٣†مه٤‏ مول انقر نقرا مزدوجا على الزر وحو۷"ة٣‏ )| جاع لإنشاء إجراء معالجة لحدث النقر على ذلك الزر حيث 
سننتقل هنا مباشرة إلى محرر الكود - أدخل سطر الكود التالي الذي سيقوم بمسح محتويات ال وجة۷" ة٣‏ )م| في الإجراء الفارغ 


Me.InkCanvas1.Strokes.Clear 
وبھذا نکون قد انتھینا من تصمیم ال ا٣٤ )مول قم بعمل ل ااں8 للمشروع‎ 


- انتقل الآن إلى محرر تصميم النافذة ۴٠۲"1‏ واختر التحكم و۲0٤٠‏ ”٠1ع‏ وانقر على السهم الصغير الذي يظهر أعلى يمين التحكم 
لفتح نافذة الخصائص السريعة وافتح القائمة المنسدلة بجانب "عا ”ه٣‏ 4ءstمH‏ ctماهك‏ واختر تحكم W۴۲۴‏ الذي أنشأناه للتو 
UserControl1‏ 


شغل البرنامج واختبره 
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كتابة تطبيفنا الأول بتقنية ع1 Si]‏ 


Dynamically Generate an HTML اتر‎ pî HelloSilverlight aw silverlight Application ع‎ gi ja jم أنشئ تطبيقا جديدا‎ 
test page to host silverlight within this project 


تصميم الواجهة 

افتح re۲‏ oام×E‏ utionاS0‏ ولاحظ الملفات اص۳ ه×.م مه الذي يحتوي على المصادر والكود الخاص بالتطبيق بأكمله و اصه×.#عهم يمثل 
صفحة شبيهة لتلك الموجودة في موقع ويب وإذا وسعت العقدة بجانبها ستجد ملف ط۷.ا"ه×.ععهم أو كع.ا"ه×.هعهم بحسب لغة البرمجة 
التي تستخدمها وهي تحتوي على الكود المدار الخاص بك وهي تشابه للتك ال إملdمN™‏ الخاصة ڊ ASP .net‏ 


لتحديد مظهر الشبكة - إن لم تكن الصفحة مفتوحة انقر نقرا مزدوجا على |" ه×.ععهم لفتحها ثم انتقل لمحرر ا" ه× وحدد عنصر إأاG‏ 
وفي قسم البداية لتعريف ال لاي غير ل”نهإع)ءه8B‏ إلى أي لون ترغبه وكذلك حدد الخاصية عم نالاا0«6م؟ إلى منم التي تتسبب 
بإظهار خطوط منقطة توضح أقسام الشبكة الأمر الذي يفيدك عندما تقوم بتصميم الشكل ليظهر القسم كما يلي 


<Grid x:Name="LayoutRoot" Background="LightGreen" ShowGridLines="True"™ >‏ 
سنستخدم الآن الخاصية ٣‏ 0ا†¡ہi؟‏ م( Row‏ للشبكة لتحديد الأسطر والأعمدة 
داخل لاع و بين قسمي البداية والنهاية ل هأ أدخل الكود التالي بحيث يبدو تعريف هأ كما يلي 


<Grid x:Name="LayoutRoot"™" Background="LightGreen" ShowGridLines="True"™> 
<Grid.RowDefinitions> 
<RowDefinition Height="40"/> 
<RowDefinition Height="220"/> 
<RowDefinition Height="40"/> 
AGEL .ROWNDEEIRLETORSS 
KEGEL: COLUMHDEEFIRNIELONS 
ACEOLOMAIDEETIRLETOT WOES J 
«ColumnDefLRLItELOoNn WIQtHS™I25 "7> 
X7 GELA. COLUMADEEIRLELORS# 


</Grid> 
دعنا نقوم الآن بإضافة بعض التحكمات للتطبيق‎ 
من صندوق الأدوات في بيئة التطوير إلى داخل محرر كود ا ه× وذلك بعد‎ اe»tBا‎ oc) قم بسحب كتلة نصوص‎ 


>/sئDefinition >Grid. column‏ مباشرة وأضف له الخاصية »ع٠‏ بالقيمة :٠ه‏ كما في الكود 


TeExEBLGEK Test =NNaME? TSK/ TEs TBLockS 


تم أنشئ كتلتي نصوص أخريين بنفس الطريقة كما في الكود 


<TextBlock Text="Date:"></TextBlock> 
<TextBlock Text="Message"></TextBlock> 


سترى في نافذة العرض أن صناديق النصوص الثلاثة أصبحت متراكبة في الخلية الأولى في الشبكة ولضبط مكان ظهورها علينا بضبط 
الخاصیتین ۸" ںاه٤.۵اا6‏ ز Wه۲.‏ لام6 لكل منه كما في الكود حيث ستلاحظ بعد هذه التعديلات ظهور كتل النصوص في أماكنها 
الصحيحة ضمن الشبكة 


<TextBlock Text="Name:" Grid. Row="0" Grid.Column="0"> </TextBlock> 

<TextBlock Text="Date:" Grid.Row="1" Grid.Column="0"></TextBlock> 

<TextBlock Text="Message" Grid. Row="2" Grid.Column="™"0" 
Grid.ColumnSpan="2" ></TextBlock> 
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اسحب صندوق نصوص ×٥ط†×6]‏ من صندوق الأدوات وأفلته مباشرة بعد كتلة النصوص عع2ءءم" واضبط خصائصه كما في الكود 


<TextBox Text="Your Name" Grid. Row="O0" Grid.Column="™"1"™ 
Width="150" HorizontalAlignment="lLeft" ></TextBox> 


ثم قم بسحب ۸٥|‏ ۴2)ءهt؟‏ إلى محرر ا" ه× أسفل صندوق النصوص والذي يستخدم لصف التحكمات أفقيا أو عموديا داخل خلايا الشبكة 
واضبط خصائصه كما في الكود 


<StackPanel Grid.Column="1" Grid.Row="1" Orientation="Vertical" > 


</StackPanel> 


داخل اعمه۴)عهt؟‏ أدخل تحكم ۲ةل ١ء‏ اه٤‏ وعندما نضيف تحكم التقويم سنلاحظ أن قسم البداية الخاص به مختلف نوعا ما عن بقية 
التحكمات حيث يبدأ ب ءعاوهط أو بادئة أخرى لأنه ليس قسما من تحكمات ا۸عاا ۷اك الأساسية وهو معرف ضمن مجمع آخر لذا يجب 
عليك إضافة مجال أسماء "× ومرجع للمجمع فعندما نقوم بسحب التحكم إلى داخل كود |" ه× تقوم بيئة التطوير بإضافة المراجع المناسبة 
تلقائيا من اجانا الآن قم بضبط خصائص التقويم كما في الكود 


<basics:Calendar SelectionMode="SingleDate"™ 
HorizontalAlignment="Left"></basics:Calendar> 


اسحب تحکم زر but t0٣‏ أسفل تحكم التقويم واضبط خصائصه كما في الكود 


<Button Width="75" Height="25" HorizontalAlignment="Left"™ 
Content="OK"></Button> 


وبهذا نكون قد انتهينا من تصميم الواجهة ويجب أن يبدو كود ا ه× لديك كما في الكود لا تنس أن تقوم بحفظ المشروع عند هذه النقطة 


USEECONEEOL MINS DASLECSSTEOL ES 
namespace:System.Windows.Controls;assembly=System.Windows.Controls" 
x:Class="HelloSilverlight. Page" 
xmIins="http://scthemaS.mMicrosoft .cCOM/WIRExX/2006/xam1/presentation" 
RMIASER=TREED? /7SCBHEMA S5. MICEOSOEE: GOM/UIBERZ72006/ xam" 
Width="400" Height="300"> 
<Grid x:Name="LayoutRoot" Background="LightGreen" ShowGridLines="True"> 
SGELQd: ROWDEEFINLELORNSS 
<RowDefinition Height="40"/> 
<RowDefinition Height="220"/> 
<RowDefinition Height="40"/> 
</Grid.RowDefinitions> 
AGEL. COLUMADEFIRNLTELONSS 
<ColumnDefinition Width="75" /> 
4COLUMADEFINLELONn WIdtEHET325" > 
</Grid.ColumnDefinitions> 
<TextBlock Text="Name:" Grid. Row="0" Grid.Column="0"> </TextBlock> 
<TextBlock Text="Date:" GEFid.ROWw="1" GFid.Cölümi="0"></TextBlöock> 
<TextBlock Text="Message" Grid.Row="2" Grid.Column="0" 
Grid.ColumnSpan="2" ></TextBlock> 
<TextBox Text="Your Name" Grid.Row="0" Grid.Column="1" 
Width="150" HorizontalAlignment="LlLeft" ></TextBox> 
<StackPanéel GEI1d.Colümn="1" GfFi1d.Row="1”" Orientatioh="Vertical™ > 
<basics:Calendar SelectionMode="SingleDate" 
HorizontalAlignment="Left"></basics:Calendar> 
<Button Width="75" Height="25" HorizontalAlignment="Left™ 
CORNER E=SP ORNS ZBUEEORS 
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4/StackBPanel> 
ICEL 


/USEECONEEOLS 


إضافة الكود 
في محرر |" ه× انتقل إلى كتلة النصوص ععهءءه/ وفي قسم البداية له أضف الخاصية ع" ه":× بالقيمة 1٥عهءءه/‏ وهذه الخاصية 
تقوم بتعريف العنصر بشكل فريد فيصبح التعريف كما يلي 


<TextBlock Text="Message" Grid. Row="2" Grid.Column="™"0" 
x:Name="Messagel"></TextBlock> 


كرر العملية بالنسبة ل ۲e×80×‏ و Calendare‏ و Button‏ بإضافة الخاصية "٠‏ ه":× لها كما يلي 
x:Name="name1"‏ 
x:Name="cal1"‏ 
x:Name="okButton"‏ 


في قسم البداية للزر ١٥ں‏ 8ه اكتب )عزاع ثم اضغط طه† فيظهر لك صندوق خاصية مع۸ءءاام٤م|‏ انقر نقرا مزدوجا على wعN‏ 
Event handler‏ فيتم إنشاء إجراء معالجة حدث بالاسم الافتراضي ويوضع في ملف الكود الآن انقر بالماوس اليميني على الحدث )زاء ثم 
اختر to Event Handler‏ avigateم‏ حیث یتم نقلك لمحرر الکود 


اجعل إجراء معالجة الحدث يبدو كما في الكود 


PFIVatê SUD OKBUEtEONn CLICK (ByVal sender As System.:OD ject. 
ByVal e As System.Windows.RoutedEventArgs) 


Dim dateString As String 
If cal1.SelectedDate Is Nothing Then 


dateString = "<date not selected>" 
Else 
dateString = cal1.SelectedDate.ToString () 
EAE TE 
messagel.Text = "Hi " & namel.Text & vbCrLf & _ 
"Selected Date: " & dateString 
ERQ Sub 


شغل المشروع واختبره 


جعل الواجهة ديناميكية 


في محرر |" ه× وضمن قسم البداية لتعريف اها ه٣۲هءل‏ احذف الخاصيتين إWidt‏ و height‏ وفي تعرز Grid.RowDefinitions‏ 
غير قیم چاه كما يلي 


<RowDefinition Height="Auto"/> 


<RowDefinition Height="*" MinHeight="240"/> 
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<RowDefinition Height="Auto"/> 


وغير خاصة Grid .coاlumn Definitions J Width‏ كما يلي 
<ColumnDefinition Width="Auto" />‏ 
<ColumnDefinition Width="*"/>‏ 
أضف الخاصية ماع۷2 لكل من تحكمات كتل النصوص عه" و مه0 و معجءوم" كما يلي 
Margin="10,5,10,5"‏ 
وللتحكمات ×0 ٦e×†8‏ و Calendar‏ و Button‏ كما يلي 
Margin="0,5,0,5"‏ 
وأضف الخاصية مك۴05 لكتلة النصوص ععهءءم" كما يلي 
FontSize="20"‏ 


احفظ المشروع واختبره ويجب أن يكون لديك كود ام × الكامل كما يلي 


<USEFCOMNEEOL MINS :BDASTLES=S"EILE= 
namespace: System.Windows.Controls;assembly=System.Windows.Controls" 
x:Class="HelloSilverlight. Page" 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
MLAS {ES PREEDE7/SCROMES MIC FOSOE E. GOM WARE 20U06 7EM 3 
<Grid x:Name="LayoutRoot" Background="LightGreen" ShowGridLines="True"> 
<Grid. RowDefinitions> 
<RowDefinition Height="auto"/> 
<RowDefinition Height="*" MinHeight="240"/> 
<RowDefinition Height="auto"/> 
</Grid.RowDefinitions> 
XGELA.COLUMADEEINLELORSS 
<ColumnDefinition Width="Auto" /> 
<ColumnDefinition Width="*"/> 
</Grid.ColumnDefinitions> 
<TextBlock Text="Name:" Grid.Row="0" Grid.Column="0" 
Marois" lU, LO; STS SJTESEBLOERE 
<TextBlock Text="Date:" Grid.Row="1" Grid.Column="0" 
Margin="10;5;10;5 "SK TexEBLOCKES 
Text="Message" Grid.Row="2" Grid.Column="0" Grid.ColumnSpan="2" 
x:Name="Messagel" Margin="10,5,10,5" FontSize="20"></TextBlock> 
<TextBox Text="Your Name" Grid.Row="0" Grid.Column="1" Margin="0,5,0,5" 
Width="150" HorizontalAlignment="Left" x:Name="name1l"></TextBox> 
<StackPanel Grid.Column="1" Grid.Row="1" Orientation="Vertical" > 
<basics:Calendar SelectionMode="SingleDate" Margin="0, 5,0,5" 
HorizontalAlignment="Left" x:Name="Cal1"></basics:Calendar> 
<Button Width="75" Height="25" HorizontalAlignment="Left" 
CORNEENE="OK™ KINamé="SKBUEEOR" CLILEK="SKBUEtEoN Cllcok™ 
MargGini="0; 5y O; 5" 2SZBUtEtONS 
</StackPanel> 
XK FGELOIS 


<TextBlock 


J USEEFCORNEFOLS 
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Silverlight and WPF رصاlنall أدوات التحكم بترتيب‎ 


توفر لنا ٤۸عااع۷ااك‏ و ۴مس نظام مرن لترتيب العناصر يمكن المطورون والمصممون من تحديد موقع العناصر بسهولة على واجهة 
المستخدم بحيث يدعم التموضع الثابت والتموضع بواسطة المحددات كما يدعم التموضع الديناميكي الذي يحدد حجم وموضع التحكمات عندما 
يتغير حجم المستعرض وهنا لدينا ثلاث أدوات تفيدنا في هذا الخصوص هي Canvas‏ و StackPanel‏ و Grid‏ 


Canvas Panel 
ال اعمم۴a utمرهL الأساسي الذي يدعم تموضع التحكمات المحتواة فيه باستخدام محددات صريحة ونحن نقوم‎ Canvas ۴aممعا يعتبر ال‎ 
بتحديد موضع التحكمات فيه باستخدام الخصائص المرتبطة التي تمكنك من تحديد موقعها بالنسبة للتحكم ۷ه الأب المباشر لها وهذه‎ 
الخصائص المرتبطة مفيدة لأنها تمكن اللوح الأب من توسيع الخصائص المضبطة للتحكم الذي بداخله فبتحديد الخصائص المرتبطة متلا‎ 
مها و اه1 الأساسيتين يضيف إمكانية لتحديد ارتباط م٠1 و ۴1| للزر أو أي عنصر آخر ضمن الواجهة بدون الحاجة لإضافة هذه‎ 
الخاصية لفئة الزر أو تعديل فئة الزر بأي شكل فيمكننا إضافة زرين ل ءه۷"ة) وضبط موضعهما بمسافة 50 بكسل من اليسار و 50 و‎ 
بكسل من الأعلى باستخدام |" ه× كما في الكود‎ 0 

<Canvas Background="Aquamarine" > 


<BÛtEEON CoMNtEeNESTBUEEORN 1" Width=™100"™" HelghE=s" 50" 
Canvass. LefE="50™ Canvas. TOp="BO" SE BULEORS 


Bitton Content="BUtEorn #4" WIidth="100" Height="™50™ 
Canvas.Left="50" Canvas. Top="150"></Button> 


</Canvas> 


وبينما يكون ال وة۷" ه٤‏ مفيدا في الحالات التي لن يتحرك فيها عناصر الواجهة ولكنك لن تجده بتلك المرونة عندما نضيف تحكمات للواجهة 
وتعالج أوضاع تحتاج فيها إلى تغيير حجم أو مكان بعض تحكمات الواجهة ففي هذه الحالات سيتوجب عليك كتابة كود النقل أو إعادة التحجيم 
بنفسك لتحريك الأشياء بداخل ال sة۷"ة‏ ويكمن الحل الأفضل لهذه المشكلة هو باستخدام عنصر ترتيب مختلف للواجهة مثل إع ة٣‏ )عه†S؟‏ 
و Grid‏ 


StackPanel 
هو عبارة عن تحكم بسيط لترتيب الواجهة يدعم تموضع التحكمات التي بداخله إما بشكل أفقي أو رأسي وهو يستخدم عادة لترتيب جزء‎ 
صغير من واجهتك ففي المثال التالي نستخدمه لترتيب ثلانة أزرار بشكل شاقولي كما في الكود‎ 


£StEaAcKPanél BağkéEEound=™BISgUê™ > 
<BUEEoORN Content=T"BUEton 1" WidtEh="100™ Heilght="50™" Margiln=T"10™"/> 
<Button Content="Button 2" Width="100" Height="50" Margin="10"/> 
*BUTEEOR CoRnEeRE="BuETtoR 3" WidtEA="™100" RHélght="50" MêFGIR=E"10"/S 
</StackPanel> 


أو يمكننا ضبط الخاصية ۸ 0ااه١‏ ع0 له إلى اهام مه٠‏ لضبط الترتيب بشكل أفقي كما في الكود 


<StackPanel Background="Bisque" Orientation="Horizontal" > 
<Button Content="Button 1" Width="100" Height="50" Margin="10"/> 
«Button Content="Bütton 2" Width="100" Height="50" Margin=T"I10"/> 
4BUttOon ConteRnt="BUEton 3" WidEh=TI00™ HelghE="50" MargGin="10" 7/5 
</StackPanel> 


Grid Panel 
يعتبر هذا التحكم هو الأكثر مرونة بين الثلاث تحكمات الخاصة بترتيب الواجهة بما انه يدعم ترتيب التحكمات بعدة أسطر وعدة أعمدة وهنا‎ 
اللتان یتم تعریفھما‎ rid .column Definitions و‎ Grid .RowDefinition¬s عليك فقط تحديد الأسطر والأعمدة باستخدام الخاصيتين‎ 
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باشرة تحت التحكم <لأمG>‏ ويمكنك استخدام الخصائص المرتبطة Attached Property‏ التحكمات المحتواة ضمن ال لزا لتحديد ين 
يقع التحكم في أي سطر أو عمود فمثلا يمكننا تعريف 4ا۲ بثلاثة اسطر و ثلاثة أعمدة ووضع أربع أزرار بداخلها كما في الكود 


<Grid Background="BlueViolet™ 

<Grid.RowDefinitions> 
<RowDefinition Height="60"/> 
<RowDefinition Height="60"/> 
<RowDefinition Height="60"/> 

</Grid.RowDefinitions> 

KGELG:COLUMNDEEINLELONSS 
<ColumnDefinition Width="110"/> 
RCOLUMNDEELALELON WIQEHSN ITO 
COLUMN DEELILELORN WIQEREN ITO 


</Grid.ColumnDefinitions> 

XBUEEORN CORNEENE="TBUEEOR 1" WIOEN="I00" Heigoht="S0™ 
GE1d.Column="I1” GE1d .Row=T(OTs 

GS BUCE 

<BUETONn CORNtERNESTBUEEOR 2" WIQERNS"100™ Helolfta" 50" 
GELA COLOMH=TO" GEFILQd: ROW=STI> 

CIBUEEORS 

4BUTEEORN ContEeRE=TBUtEON 3" Width="I100" RHelight="s50™ 
GEIQ.Colami=™3™ GELA. ROWS 

dJ BUECORS 

BUTTON CORNESNE="BUTIEOR 4" Widlth=T™IQOO0™ RHelgGHt="50™ 
GELQ:COLUMA=ST"I™" GEIQ. ROWSE 

7Z BUtton> 


JOEL 


إضافة إلى دعم ال هأ تحديد الحجم بشكل قيمة ثابتة كما في مثالنا السابق فهي تدعم أيضا التحكم الآلي بالحجم ”٥ں‏ ”=۸ عiمH‏ كما 
تدعم تحديد حجم أدنى وحجم أقصى بحيث يحدد حجم الأسطر والأعمدة بناء على محتوياتها وحجم الصفحة المتواجدة فيها كما تدعم أن يتم 
وضع قياس الأسطر والأعمدة نسبة لبعضها ومع استخدامك المتكرر لهذا التحكم ستجد الكثير من المرونة فيه كما تستخدم * لجعل التقسيم 
بنسب معينة مثل *2 أو *3 كما في المثال 


<GEIQd BackgGrounid="BlueVvViolet"™> 

<Grid.RowDefinitions> 
<RowDefinition Height="auto"/> 
<RowDefinition Height="auto"/> 
<RowDefinition Height="auto"/> 

</Grid.RowDefinitions> 

GELO: COLUNRNDEEINLELORNSS 
4Co1LumnDefLALELOonN WIQERHENaG EOS 
RCOLEUMADEEFLATE Lo WIQAS anys 
ACOLUMRDEEINTELOR Width amg 


IGE COLUMNDEEINLELONSS 

SBUETEORN CORNEERE=TBUTEOR 1" WiQdtEh=TIO0™ Heiloht="S0™ 
GELIQA:CoLlüamhi="™1" GEI1Q .RoWS™ ON 

*/BUtEtEoR> 

XBUEEON COMEERNE="BUEEON 2" WIGER=™IO0U" RHEélGNE=" S0" 
GELA: COLUMH="O" GEIQ: ROWS IT 

&7BüÛtÈon> 

BUTEEON CONEERNESTBUEEORN 3" WIdthNSTIO00™ HertohE=™ 50" 
Grid.Column="3" Grid. Row="1"> 

#ZBUEEORS 

*BUEEON CORtEENE="TBUTEOR 4" WIQEN="10U™" Heioht=" S50" 
GELd.CoOLUM=TI" GE1d Rowan 

BUCE 


EEA È 
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إنشاء ساعة تماثلية باستخدام تقنية ع1ا مر[؟ باستخدام الكود فقط 


لكي نستطيع العمل سنحتاج إلى 2008 Mic rosoگt Silver Light Tools For Visual Studio‏ والذي یمکن تحمیله من الرابط 
http://go.microsoft.com/fwlink/?Linkld=94863‏ 


افتح فیجول ستودیو ومن قائمة ما۴ اختر اcعزہ٣٣‏ wعN‏ ثم اختر لغة البرمجة عایئھ8B‏ اھںءا۷ ثم اختر اطعااامvااS‏ ثم آنشئ 
Silverlight Application‏ جدید وقم بتسمیته kعcەا٣†ighاverاSi‏ ومن صندوق الحوار الذي يظھر |i‏ |ختر Automatically jÎJ!‏ 
Generate a test page to host silverlight at build time‏ ثم اضغط ok‏ 


اجعل الكود في قسم | ه× مماثلا للكود التالي وذلك لنقوم برسم دائرة رمادية تشكل ظل الساعة حيث استخدمنا وماع لرسم دائرة وملئها 
بلون معین 


CUSEFCONEEOL XS:CLIaAGSS=STLVErFLIGRECIoGk. Page" 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
Width="640" Height="480"> 


<Grid x:Name="LayoutRoot"> 


<! ==. Shadow ELLIp Sê ==> 
SE1ILIpGê. MaEGiIN=-"T65, OT, 149,03" FiILILNFEFOOOU0OO™ WidtEhS™330™ 
Height="330" Opacity="0.3"/> 
GELO 
GJUSEFCORNEEOLS 


أضف الكود التالي في قسم ا"ه× وقبل <هذإ6/> مباشرة وذلك من أجل رسم الإطار الخارجي للساعة حيث 
استخدمنا us1إinearGradientBrا‏ من أجل رسم التدرج اللوني للإطار 


<!-- Outer Rim =--> 
<Ellipse Height="330" Margin="156,58,154,92" Width="330" Stroke="#FF000000"> 
SELLIBSE.EFILLS 
IELRETAEGEAQALEDEBEGSh ENAPOLHEETO. FAO 0T7" SEAFEEBPOLIRNE=NO TOO. T2 9> 
<GradientStop Color="#FFE4ESF4"/> 
<GradientStop Color="#FFCOCOCO" Offset="0.254"/> 
</LinearGradientBrush> 
AJEBLLIpSEEILLS 
</Ellipse> 


أضف الكود التالي بعد الكود السابق في قسم اص ج× وذلك من أجل رسم حواف إطار الساعة حيث تمت عملية الرسم بنفس الطريقة السابقة 


<] == Beyel ==> 
<Ellipse Height="290" Margin="156,58,154,92" Width="290" Stroke="#FF000000"> 
ELIIpESESELILLS 
CLULHEZAECGEAQALEDEBEUSD. ENOPOLREETO.SA,O07™" SEAEEPOLNE=NO. TOA OCIS 
<GradientStop Color="#FF2F2F32"/> 
<GradientStop Color="#FFE4E5F4" Offset="0.987"/> 
</LinearGradientBrush> 
<JBLIIpSE.FLLLS 
ZELLIpSe> 


سنستخدم عء مااع مرة أخرى من أجل رسم وجه الساعة- أدخل الكود التالي بعد الكود السابق في قسم | ×a‏ 


<!== Clock Facê ==> 
&ELILIpGSês HelGhRESN2 7O0" MaFoih=TTo, TOLA LIS" WIGEhENI TOT 
Stroke EFFOUOOOO™ FILINFFFOOOOOONS 


أدخل الكود التالي في قسم ا ه»× بعد الكود السابق حيث سنستخدم بعضا من أدوات الرسم من أجل عملية رسم العقارب ودائرة المنتصف 
الخاصة بالساعة 
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<]== CeREFEAaL Clock ClIEcle == 
<Ellipse Margin="306,208,304,0" VerticalAlignment="Top" Fill="#FFFO000000" 
Stroke="#FF008000" StrokeThickness="8" Height="30"/> 


== SECON HANA ==> 
Rectangle RHeloRHE="S8U" MaErGin=ETILS. 297; LL1.197,316. S20" VEEEICALALILGNNMERE= "Top" 
Fill="FEFFFFOOOO" Stroke="FfFFF000000" Width="5"™ 
RéRNJeFTEANSTOFMOEFLOLN=™UO.D, L312" > 
<Rectangle.RenderTransform> 
<RotateTransform x:Name="secondHandTransform"/> 
</Rectangle.RenderTransform> 
</Rectangle> 


<l== MInute Haid ==> 
Rectangle. X:Name="nminuteHand”™" RelghHE="§8U0" Marféin=T3l16. 5,1179731," 
VerticalAlignment="Top" Fill="#FFFO008000" Stroke="F#FFF008000" Width="8" 
RENGE FTEANSTOEMOFIGFIRSROL BD, LS SLA™ > 
<Rectangle.RenderTransform> 
<RotateTransform x:Name="minuteHandTransform"/> 
</Rectangle.RenderTransform> 
</Rectangle> 


== BoE. Hand ==> 
«Rectangle X:Namée="TouUEHand" RélGRE="59" MarGiN=" 315. TS,L138. 75,314.29, 0" 
VerticalAlignment="Top" Fill="#FFO008000" Stroke="#FFF008000" 
WidthETI1 U™ 
RendeFTEaAMNSEOEFMOFIGFINS"O. 2S 1.420 "> 
<Rectangle.RenderTransform> 
<RotateTransform x:Name="hourHandTransform"/> 
</Rectangle.RenderTransform> 
</Rectangle> 
سنضيف الآن حركة الساعة‎ 


في قسم | ۾× بعد تعريف |ها†" ه٤ user‏ وقبل <†ayou†R00ا"=x×:Name‏ هiاG">‏ أدخل الكود التالي الذي سيقوم بتكوين الحركة 
لظاهرة للساعة 


<UserControl.Resources> 
«KSEOEVDOAEAd XKNaMe="EIlIOCRKSEOEYBOaAEQA™ > 


<== THIS animation targets the hour hand transform =—=3 
<DoubleAnimation x:Name="hourAnimation" 

Storyboard. TargetName="hourHandTransform™" 

Storyboard. TargetProperty="Angle™ 

Duration="12:0:0" RepeatBehavior="Forever" To="360" /> 


<== TRIS ANIMaELON targets: thé MiNUtEêéê hand tEanNSÊoOEM ==> 
<DoubleAnimation x:Name="minuteAnimation" 

Storyboard. TargetName="minuteHandTransform"™ 

Storyboard. TargetProperty="Angle™ 

Duration="1:0:0" RepeatBehavior="Forever" To="360" /> 


&I== TRIES ANIMAELORN ‘EargoetSs- He: Sécond Hard EEFAaNSÊOEM 3s 
<DoubleAnimation x:Name="secondAnimation" 
Storyboard. TargetName="secondHandTransform™" 
Storyboard. TargetProperty="Angle™ 
Duration="0:1:0" RepeatBehavior="Forever" To="360" /> 
AJ SEOEFYVDOAEGAS 
</UserControl.Resources> 


فlالکود‏ يجدد StoryBoard‏ يحتوي على الرسوم المتحركة التي ستظهر حركة الساعة ولبدء 
تنفيذه سنستخدم الحدث 4عل0adا1‏ لاستدعاء الدالة Be91"‏ ل 4اy8BoaعإoاSt‏ وسنضيف هذا الحدث 


لتعريف لذاإك بجيث يصبح كما يلي 
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<GrFid x:Name="LayoutRoot" Loaded="SetAndStartClock"> 


وبذلك يكون كود ا1"هة× الكامل 


KUSéECOREEOL KFCLaS5=TS1 IVEFETGBECLOGKRE. PaGE™ 
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
RMIRST RS"REtD? 7 /SChEMaAS:MLCFOSOEE. CON/WIRER/ 20067 xam" 
Width="640" Height="480"> 


<UserControl.Resources> 
<Storyboard x:Name="clockStoryboard"> 


<I == TRIS AMIMACLOR EaFGeES, thE HOUFE Rand. EEaNnSEOEN ==> 
<DoubleAnimation x:Name="hourAnimation" 

Storyboard. TargetName="hourHandTransform"™ 

Storyboard. TargetProperty="Angle"™ 

Duration="12:0:0" RepeatBehavior="Forever" To="360" /> 


<!-- This animation targets the minute hand transform --> 
<DoubleAnimation x:Name="minuteAnimation" 

Storyboard. TargetName="minuteHandTransform" 

Storyboard. TargetProperty="Angle" 

Duration="1:0:0" RepeatBehavior="Forever" To="360" /> 


<!== This animation targets the second hand tfansform ==> 
<DoubleAnimation x:Name="secondAnimation" 
Storyboard. TargetName="secondHandTransform" 
Storyboard. TargetProperty="Angle" 
Duration="0:1:0" RepeatBehavior="Forever" To="360" /> 
#/StEOEYBbOoarQd* 
</UserControl. Resources> 


<Grid x:Name="LayoutRoot" Loaded="SetAndStartClock"> 


<== Shadow ElLLpSe >5 
<Ellipse Margin="165,67,145,83" Fill="#FFO000000" Width="330" 
Height="330" Opacity="0.3"/> 


<== OEE Ri ==> 
<Ellipse Height="330" Margin="156, 58,154,92" Width="330" Stroke="#FF000000"> 
XEILIBDSE.ELLLS 
<ILineafGEadLefltBEFüsh EnQPGSIRE="0.94,0.87" StaFEPOINE="O.164,0. 129"> 
<GradientStop Color="#FFE4E5SF4"/> 
<GradientStop Color="#FFCOCOCO" Offset="0.254"/> 
</LinearGradientBrush> 
RJELLIPSEOEILLS 
</Ellipse> 


<!-- Bevel --> 
<Ellipse Height="290" Margin="156,58,154,92" Width="290" Stroke="#FF000000"> 
RELLIBSE.EILLS 
<LinéaEGradientBrush EndaPoint="™0.84,0:.87" SEaEEPOIRNE="O0, 164,0:129"> 
<GradientStop Color="#FF2F2F32"/> 
<GradientStop Color="#FFE4E5SF4" Offset="0.987"/> 
</LinearGradientBrush> 
XJELLiIpSe.FILIL> 
</Ellipse> 


<!== CLOCK EFacê ==> 
Ellipse Heilght="270" Margin="l76, TS,LTA;LL2™ WIdth=T2 TO" 
Stroke="#FF000000" Fill="#FFO00000"/> 


== CEREEAL CIGOGKE CiIFELE. ==> 
<Ellipse Margin="306,208,304,0" VerticalAlignment="Top" Fill="#FFO000000" 
Stroke="#FF008000" StrokeThickness="8" Height="30"/> 
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<!-- Second Hand --> 
<Rectangle Height="80" Margin="318.25,117.75,316.75,0" VerticalAlignment="Top" 
Fill="#FFFFOOO0O0" Stroke="#FF000000" Width="5" 
REéEnNdEETESRS FOEMOFIGIN=" O. SL. SLA" > 
<Rectangle.RenderTransform> 
<RotateTransform x:Name="secondHandTransform"/> 
</Rectangle.RenderTransform> 
</Rectangle> 


<== Minüitê Had ==> 
<Rectangle x:Name="minuteHand" Height="80" Margin="316.75,117.75,315.25,0" 
VerticalAlignment="Top" Fill="#FF008000" Stroke="#FF008000" Width="8" 
RenderTranSfOEmMOEIGIN="™VO2. 5S; 1.312" > 
<Rectangle.RenderTransform> 
<RotateTransform x:Name="minuteHandTransform"/> 
</Rectangle.RenderTransform> 
</Rectangle> 


<3 HOE Hand ay 
<Rectangle x?Namé="höoürHand”™ Héiğht="59" Marféin="315.75,138.75,314.25,0™ 
VerticalAlignment="Top" Fill="#FF008000" Stroke="F#FF008000" Width="10" 
RenderTransformOrigin="0.525,1.428"> 
<Rectangle.RenderTransform> 
<RotateTransform x:Name="hourHandTransform"/> 
</Rectangle.RenderTransform> 
</Rectangle> 


K/GELO# 
Z7UserCOREFOLS 


من Exp1oere‏ utionاSo1‏ وسع عقدة e.×xa"1وPa‏ ثم افتح الملف ط1.v۷"هةx×.عوم۲a‏ و أدخل فيه 
الكود التالي من أجل بدء عملية التحريك 


Private Sub SetAndStartClock (ByVal sender As Object, ByVal e As EventArgs) 


" Start thé SEOFVBOAEQM: 
clockStoryboard. Begin () 
ERA SU 


الآن ومع أن الساعة أصبحت تعمل بالشكل المطلوب إلا أنها لاتظهر الوقت الصحيح الأن 
استبدك الكوةد السابق .تالكود التالى 


Private Sub SetAndStartClock (ByVal sender As Object, ByVal e As EventArgs) 


' The current date and time. 
Dim currentDate As Date = DateTime.Now 


' Find the appropriate angle (in degrees) for the hour hand 

' based on the current time. 

Dim hourangle As Double = (( (CType (currentDate.Hour, Single) / 12) * 360) + 
(currentDate.Minute / 2)) 


' The same as for the minute angle. 
Dim minangle As Double = ( (CType (currentDate.Minute, Single) / 60) * 360) 


' The same for the second angle. 
Dim secangle As Double = ( (CType (currentDate.Second, Single) / 60) * 360) 


' Set the beginning of the animation (From property) to the angle 
' corresponging to the current time. 
hourAnimation.From = hourangle 


' Set the end of the animation (To property) to the angle 

' corresponding to the current time PLUS 360 degrees. Thus, the 

'"' animation will end after the clock hand moves around the clock 
' once. Note: The RepeatBehavior property of the animation is set 
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' to "Forever" so the animation will begin again as soon as it completes. 
hourAnimation.To = (hourangle + 360) 


'"' Same as with the hour animation. 
minuteAnimation.From = minangle 
minuteAnimation.To = (minangle + 360) 
' Same as with the hour animation. 
secondAnimation.From = secangle 


secondAnimation.To = (secangle + 360) 


'\ SEaEE. ERE  SEOEyYBOaEd: 
clockStoryboard. Begin () 


End Sub 


احفظ المشروع واعمل 14ا8 ثم جربه يجب أن تعمل الساعة الآن بشكل صحيح 
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الفروقات في معالج Silverlight jùıڊ xam]‏ و WPF‏ 


يستخدم اعا عاك تعريفا محددا لمعرب |" ه× وبما أن هذا المعرب هو جزء من مكتبات الزبون العائدة ل ۸۲عاا٣‏ عاك لهذا قد يختلف 
تصرف الإعراب بينها وبين ۷۲۴ والذي يمتلك أيضا تعريفا محددا وقد تكون الفروقات المذكورة هنا مفيدة عندما تقوم بتهجير كود |صه× 
مكتوب أصلا من أجJ silverlight J| WPF‏ 


Silverlight y WPF jıڊ‎ xal الفروقات في معالج‎ 


يدعم سيلفر لات e۸†/2007¡اn/c http ://schemas.microsoft.co‏ إضافة إلی 


http://schemas.microsoft.com/client/2006|/xam|/presentation‏ کمجال الأسماء الزبون 
يضع سيلفرلايت القيود التالية على قيم | ج× 
ه العنصر الجذري يجب دوما أن يحتوي على تعريف |" ه× الافتراضي 
0 أي تعريف افتراضي يجب أن يكون http://schemas.microsoft.com/client/2007‏ أو 
XPS ءlnسأ Jlجم gİ http://schemas.microsoft.com/client/2006/xaml/presentation‏ 
ه أي تعريف غير افتراضي لا يستخدم احد المجالين المذكورين سابقا غير مسموح به 
يقدم سيلفرلايت القيود التالية على تنظيم المجمعات ومجالات الأسماء من أجل قيم | 2× 
ه يجب على المجمع إما أن يكون طiاامعءص‏ أو أن يكون اسم المجمع في ملف مه× فلا يمكن أن يكون المجمع ملف اا0 
من تنصيب سيلفرلايت الأساسي ولا حتى مكتبة خارجية كلية 
ه لايمكن أن يتضمن اسم المكتبة في نهايتها |اال. 


الباني الوحيد المدعوم من سيلفرلايت هو ع ها:١ا×‏ 

البانيات :× المدعومة من قبل سيلفرلايت هي x:N ull‏ ۾ x:Class gy x:Key gs x:Name‏ 
بانيات :ءرء المدعومة هي sys:String g sys:Doub|e‏ و sys:int32‏ 

باني ٥:‏ الوحيد المدعوم هو mc:lgnorable‏ 


لغة اص هج الجوهرية 


هناك دعم محدود ل ء٣‏ oایExten Markup‏ في سیلفرلایت وال Markup Extensions‏ المدعومة هي eصمx:Ty‏ و x:Null‏ و 
StaticResource‏ ڪ Binding‏ ڃ TemplateBindin g‏ و ڍوجذد Markup Extensions‏ عام إلا فیما تعلق ب چ¬ˆ Bindi‏ 
مما يعني أنه لا یوجد 0ای ع†×٤ Markup‏ مخصصة 
فیما عدا عہالہ8i‏ تستخدم ال Markup Extensis‏ بصيغة الخصائص عا ںطا٣]]ج‏ فلا يوجد صيغة لعنصر الغرض هنا 
ومحددات البانيات لا يمكن تسميتها فمثلا {StaticResource aKey}‏ صحیحة ولکن {StaticResource‏ 
ResourceKey=aKey}‏ خاطئة 
لا تدعم سیلفرلایت إضافة ٥اوہ‏ عا×e‏ إلى نھاية اسم ٣0یہ‏ ع†×Ex Markup‏ کاستخدام بدیل فمثلا [ااںل:×) صحیح بینما 
Extension}‏ llاx:Nu{‏ خاطىj‏ 
في شروط تصرفات |" 2× هناك دعم محدود في سيلفرلايت لعناصر الأغراض التي ليست DependencyO bject‏ 

x:Name peî Y DependencyObject ٽسıلl ه عناصر الأغراض التي‎ 

ه الفئات التالية التي ليست اءعزطا0رءم ءل مم٥0‏ مدعومة كالفئات المعرفة في المجمع والتي تم تحميلها مع التطبيق 

FontFamily و‎ Color هي‎ sys: وفئات‎ 

الخاصية ٠۳هل‏ مدعومة من قبل جميع الفئات الفرعية في سيلفرلايت وتعامل متثل "٥‏ هل١:×‏ وفي الفئات الفرعية 
Framework Element‏ المعرب سيعدل قيمة الخاصية ٠۳ه‏ وحتى إن لم يكن لها رابط عام في الكود 
العناصر في Di٥ ٣2۲۷‏ مurcهءRe‏ في سيلفرلايت ربما يكون لها م" :× بدلا عن أو إضافة إلى رع):× وإن لم تكن رع):× 
محددة یستخدم N2۳6٥‏ :× بدلا عنها 
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٠‏ باستتناء )ه‌ا8†×٥۲‏ و R١‏ عناصر الأغراض في سيلفرلايت لايمكن أن تحتوي على عقد نص "× كطريقة لتعريف نص 
المحتویات للغرض فمتلا World>/Bu†† ٥<‏ oااButton<He>‏ غير مسموح به 
التصرفات الأخرى 
ال ateاremp Framework‏ وفئاتها الفرعية تدعم الخاصية "٤‏ ع"هء حتى ولوم لم يكن لها الخاصية خ١‏ مCont‏ 


content.اUserContro‏ هي خاصية محمية على العكس من الخصائص العامة وكتصرف عام يمكن لمعرب سيلفرلايت أن 
يضبط هذه المحتويات طالما أن قيمة ءوها٤:×‏ تم تحديدها 
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کیف نسستخدم عناصر ع[رSt‏ للتحكم بمظهر التطبيق 


قمنا في موضوع سابق لي بتغيير شكل الزر بواسطة كود عارك في الملف ا ه×.مم۸ وكان الكود هو 


<Style x:Key="RoundButton" TargetType="Button"> 
<Setter Property="Template"> 
<Setter.Value> 
<ControlTemplate TargetType="Button"> 


GELA 
<Ellipse Width=" {TemplateBinding Width}" 
Height=" {TemplateBinding Height}"> 
<ELLIpSe.FILL>* 

*RadilalGFadientErüsh GFãdlLentOEIGEINST" 22, 2"> 
<GradientStop Offset=".2" Color="White"/> 
<GradientStop Offset="1" Color="Blue" /> 

</RadialGradientBrush> 

ZJELLIPSeFLILLS 
</Ellipse> 
<ContentPresenter Content=" {TemplateBinding Content}" 
HorizontalAlignment="Center" 
VerticalAlignment="Center" /> 
XJ GELQA> 
</ControlTemplate> 
</Setter.Value> 
</Setter> 


</Style> 
وقمنا بربطه بالزر حتى أخذ الشكل الجديد بواسطة الكود‎ 


<BUEEON Width="200" Height="200"™ Content="Hél lé YE" 
SEylé="{ STaAtICREeSsöoUECe RouUndBUttOnF™" FONESIZE=" 159"2 


7 BUETORS 


حیث تزودنا ٤۸عاام‌۷اا؟‏ و W۷۲۴‏ بآلية دعم للأشكال تمكننا من تغليف خصائص التحكم واستخدامها كمصادر قابلة لإعادة الاستخدام مما 

يمكننا من تخزين هذه المصادر في ملفات منفصلة عن صفحتنا وإعادة استخدامها عبر العديد من التحكمات والصفحات في التطبيق وإضافة 
إلى إمكانية تحديد الخصائص الأساسية يمكن لهذه الأشكال ءارك أن تعيد استخدام قوالب الأشكال الخاصة بالتحكمات مما يمكننا من إعادة 
تشكيل كامل مظهر هذه التحكمات بالشكل الذي نريده 


فان کان لدینا تحکمان مه8 و ٦٥×8)‏ تم تعریفهما کما يلي 


<Border Grid.Column="0" Grid.Row="0" CornerRadius="30" Background="Blue" 
Margin="10" Height="50"> 
<TextBlock Text="Test" Foreground="Yellow" Margin="3" FontSize="20" 
HorizontalAlignment="Center" VerticalAlignment="Center" ></TextBlock> 
</Border> 


فیمکننا إنشاء شكل Style‏ ضمن الملف app.xaml‏ ليغلف إعدادات كلا التحكمين كما يلي 


<Style x:Key="MyBorder" TargetType="Border"> 
<Setter Property="CornerRadius" Value="30"/> 
<Setter Property="Background" Value="Blue"/> 
<Setter Property="Margin" Value="10"/> 
<Setter Property="Height" Valüe="50"/> 
</Style> 


<Style x:Key="MyTextBlock" TargetType="TextBlock"> 
<Setter Property="Foreground" Value="Yellow"/> 
<Setter Property="FontSize" Value="20"/> 
Setter PEopeFty="Margin" Valüies™3™/% 
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<Setter Property="HorizontalAlignment" Value="Center"/> 
<Setter Property="VerticalAlignment" Value="Center"/> 
</Style> 


حيث أصبح الآن بإمكاننا إعادة استخدام هذه الأشكال مع أكثر من تحكم كما يلي 


<Border Grid.Column="0" Grid.Row="O0" Style="{StaticResoüurce MyBorder}"> 
<TextBlock Text="Test" Style="{StaticResource MyTextBlock}"></TextBlock> 
</Border> 
كما يمكننا استخدام عار للتحكم بمظهر العديد من التحكمات الأخرى الشبكة مثلا‎ 


<Style x:Key="TopGrid" TargetType="Grid"> 
<Setter Property="Background" Value="#FF5C7590" /> 
</Style> 


StackPanel و‎ 


<Style x:Key="DiggPanel" TargetType="StackPanel"> 
<Setter Property="Margin" Value="10"/> 
<Setter Property="Width" Value="55"/> 
<Setter Property="Height" Value="55"/> 
<Setter Property="Background"> 
<Setter.Value> 
RLINEAEGEAILENEBEUSR ERGPOIRESTO SL" SCEAELEPOLRTC=TO UT" 
<GradientStop Color="#FFFFFO0O98"/> 
<GradientStop Color="#FFFFF9D4" Offset="1"/> 
</LinearGradientBrush> 
</Setter.Value> 
</Setter> 
</Style> 


أو الزر 


<Style x:Key="CloseButton" TargetType="Button"> 
<Setter Property="HorizontalAlignment" Value="Right"/> 
<Settéêr Propérty="Widath" Valüe=" 50"/> 
<Setter Property="Height" Value="25"/> 
<Setter Property="Template"> 
<Setter.Value> 
<ControlTemplate> 
<Border x:Name="brd1" Width="22" Height="22" CornerRadius="15"> 
<TextBlock x:Name="txt1" Foreground="#222" TextAlignment="center" 
Text="r" FontSize="11" VerticalAlignment="center" FontFamily="Webdings"/> 
*BOEdIEeE .BACKGEOURIZ 
«*RadialGradientBrFush GFadientOoOrFIğgin="™. 3; 3"> 
<GradientStop Color="#FFF" Offset=".15"/> 
<GradientStop Color="#777" Offset="1"/> 
</RadialGradientBrush> 
</Border.Background> 


</Border> 
</ControlTemplate> 
</Setter.Value> 
</Setter> 
</Style> 


HyperLinkButton ڪ‎ 


<Style x:Key="TitleLlLink" TargetType="HyperlinkButton"> 
<! --<Setter Property="TextWrapping" Value="Wrap"/>--> 
<Setter Property="HorizontalAlignment" Value="Left"/> 
<Setter Property="FontSize" Value="16"/> 
<Setter Property="Foreground" Value="White"/> 
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<Setter Property="Width" Value="500"/> 

<Setter Property="Grid.Row" Value="0"/> 
<Setter Property="Grid.Column" Value="1"/> 
<Setter Property="Grid.ColumnSpan" Value="2"/> 


وبنفس الأسلوب يمكننا تخصيص مظهر أي تحكم نريده 


سوال 
أين نضع الاستيل في نفس الملف أم في ملف ResourceDictionary‏ ؟ 


الجواب 


RY SEVLES 


يتم وضع الاستايل في الملف |xam.صApp‏ ,وذ ڊaد >/Application.Resources> Jıã gy <Application. Resources>‏ متال 


<Application xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 


xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 


x:Class="SilverlightApplication5. App" 


<Application.Resources> 


<Style x:Key="MyBorder" TargetType="Border"> 


rty="CornerRadius" Value="30"/> 
rty="Background" Value="Blue"/> 
rty=" Margin" Value="10"/> 
rty="Height" Value="50"/> 


Prop 
Prop 
Prop 
Prop 


E 


E 


ت 


5 


<Sett 
<Sett 
<Sett 
<Sett 
</Style> 


<Style x:Key="MyTextBlock" TargetType="TextBlock"> 


<Setter Property="Foreground" Value="Yellow"/> 
<Setter Property="FontSize" Value="20"/> 
<Setter Property="Margin" Value="3"/> 
<Setter Property="HorizontalAlignment" Value="Center"/> 
<Setter Property="VerticalAlignment" Value="Center"/> 
</Style> 
</Application. Resources> 
</Application> 
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Silverlight & WPF تlaكحتll تخصيڍص مظھر‎ 


إحدى أكثر الميزات قوة في SLiverlight‏ و WPF‏ هي الإمكانية الكاملة لتخصيص مظهر التحكمات التي نستخدمها مما يمكن المطورون 
والمصممون لنحت واجهة التحكمات بالشكل الذي يريدونه مما يوفر لهم مرونة كبيرة لتحقيق الواجهة التي يرغبون بها حيٿث سنقوم 
باستعراض هذه الامكانية في مقالتنا هذه حول تحكم الزر ١٥ا†ں8‏ من أجل استعراض بعض ما يمكننا فعله مع أن كثيرا من التحكمات 
الأخرى يمكن أن يتم تعديل مظهرها بطريقة مشابهة لما سنقوم به هنا 


لنفرض أنه لدينا في أحد التطبيقات زر تم تعريفه في قسم ۸1× كما يلي 


<BUEEON X:Namée="btnTest™" COoNnterft="Push ME!" Width="100" RHeight="50™ 
CLICRETBEATENE CIOs 


RZBUTDEORS 


أحد الأشياء التي تفيدنا هو أن الخاصية ٤ع"‏ عه لا يجب أن تكون نصية دوما بل يمكنها أن تكون أية سلسلة من الأشكال والتحكمات التي 
نرغب باستخدامها فقد نر غب بجعلها تتضمن |" ٤)٥2‏ ه†؟ يتضمن ع2" | و )۲×۲8 بداخله كما في المثال 


<Button x:Name="þtnTest" Width="200" Height="100" 
CliGR-TSEATESE Click 
BUELOME COR EEE 
<StackPanel Orientation="Horizontal" HorizontalAlignment="Center" 
VerticalAlignment="Center"> 
<Image Source="Samer.jpg" Height="75"></Image> 
<TextBlock Text="Samer" FontSize="20" VerticalAlignment="Center"™ 
Maréin=#"15, LO; 1IO;10"™ =C7TeExtBLGEKS 
</StackPanel> 
</Button.Content> 


£/BUEEONS 
أو يمكننا استخدام تحكمات الأشكال لرسم الأشكال الخاصة بنا مثل تحكم عوم]ا |۴ مثلا كما في الكود‎ 


<Button x:Name="þtnTest" Width="200" Height="100" 
CILER-TSENTESE Click" 
ABULEORACOREEONES 
<StackPanel Orientation="Horizontal" HorizontalAlignment="Center™ 
VerticalAlignment="Center"> 
<Ellipse Margin="10" Width="50" Height="50"> 
XELLIIBSE.EILL> 
XRAQLaALGEAQLENEBEUSTH GEFaQLENEOEFIGIRETO A; O 
<GradientStop Offset="0.2" Color="White" /> 
<GradientStop Offset="1" Color="Blue" /> 
</RadialGradientBrush> 
RZELIIGSE ELIT 
</Ellipse> 
<TextBlock Text="Samer" FontSize="20" VerticalAlignment="Center" 
MaroIlnS TIS, IO IU; IOT SE /TeSEBLOECKS 


</StackPanel> 
ZBUEEOR.CORNEEREZ 


RY BULEORS 
كما يمكننا تضمين تحكمات متثل ءاه۲٤"ه٤ ۲هل ماج٣ ضمن الزر حيث يمكن للمستخدم التنقل ضمن تحكم التقويم وتحديد التاريخ الذي‎ 
يرغب به ثم القيام بضغط الزر الذي يحتويه كما في الكود‎ 


<Button x:Name="bþtnTest" Width="400" Height="200" 
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CIleRETGENTESE CITEk™S 
BUTE EOR: COREENES 
<StackPanel Orientation="Horizontal" HorizontalAlignment="Center"™ 
VerticalAlignment="Center"> 
<basics:Calendar></basics:Calendar> 
<TextBlock Text="Samer" FontSize="20" VerticalAlignment="Center" 
Marl, LOLOLO SI TexEBLocks 
</StackPanel> 
KZBULEON.CONEEREZ 


RYBULCEORS 


كما تمكننا الامكانيات البرمجية في اعا »ااك و ۴مس من القيام بأشياء أكثر من مجرد تعديل المحتويات الداخلية للتحكم حيث لدينا 
الإمكانية هنا لاستبدال كامل مظهر التحكم بأي شئ نرغبه بدون أن نؤثر على التصرف الطبيعي للتحكم فعلى سبيل المثال نريد من أزار 
برنامجنا أن تأخذ شكلا مستديرا عوضا عن الشكل المستطيل التقليدي فهنا يمكننا عمل ذلك بإنشاء عار†؟ یدعی d8 u ††٥۸‏ مuهR‏ سنستخدمه 
لنتجاوز الخاصية مادام "ه۲ للأزار وتقديم ع1هام ٣٠"‏ أخرى تستبدل الشكل المستطيل التقليدي بتحكم هم۴ یحتوي بداخله 
TextBlock‏ 


في مشروع Sliverlight‏ لديك افتح الملف App.xaml‏ وأضف الكود التالي الذي ينشئ الشكل الذي نرید استخدامه مع الأزار لدينا وذلك 
ضمن القسم <یعc nı .R eso ur‏ icatioاApp>‏ تم اعمل dااں‌8‏ للمشروع 


<Style x:Key="RoundButton" TargetType="Button"> 
<Setter Property="Template"™"> 
<Setter.Value> 
<ControlTemplate TargetType="Button"> 
EELS 
<Ellipse Width="200" Height="200"> 


KELLIDSE.EILLS 
&RadialGEadlLenEBEUush. GEadTEREOEFLOIET A2 
<GradientStop Offset=".2" Color="White"/> 
<GradientStop Offset="1" Color="Blue" /> 
</RadialGradientBrush> 
ZELLIBSESEILTS 
GJELLIBSES 
<TextBlock Text="Push Me!" 
FontSize="28"™ 
HorizontalAlignment="Center" 
VerticalAlignment="Center" /> 


</GEİQ> 
</ControlTemplate> 
47Setter: Value> 
AF SEES 
</Style> 


الآن أضف الخاصية مار للزر الذي نرغب بتغيير شكله وذلك بالقيمة ر0 †† Rou "dB u‏ ticResourceهSt)‏ كما في المثال 
CBUtEON Width="200"™" Helght=™200" SEyLe="{StalIcCResoüurcée: RoUndBuUttonF™">‏ 


XZBUEEORS 


نلاحظ هنا أن النص المعروض في الزر دوما هو Push Me!‏ وللتغلب على هذه المشكلة وجعل كل زر يعرض النص الذي نرغب به 
نستخدم الخاصية ع” لہا8 مهام ٠٠‏ لربط خصائص التحكم مع الشكل الذي قمنا بإنشائه حيث سنقوم بتعديل الشكل السابق كما يلي 


<Style x:Key="RoundButton" TargetType="Button"> 
<Setter Property="Template"> 
<Setter.Value> 
<ControlTemplate TargetType="Button"> 
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GELI 


<Ellipse Width=" {TemplateBinding Width}" 
Height=" {TemplateBinding Height}"> 
<Ellipse.Fill> 
REGIA LEEAILENCEBEUST GEAULEREOEIGIRET Aga 
<GradientStop Offset=".2" Color="White"/> 
<GradientStop Offset="1" Color="Blue" /> 
</RadialGradientBrush> 
RJELLIBSELEILIS 
</Ellipse> 
<ContentPresenter Content=" {TemplateBinding Content}" 
HorizontalAlignment="Center"™ 
VerticalAlignment="Center" /> 


RJGEIOS 
</ControlTemplate> 
Sette Vallêz 
4/SetteE> 
</Style> 


اعمل 4اط للمشروع بعد تعديل الشكل ثم قم بضبط الخصائص المرغوبة من تحكم الزر كما في الكود 


X*BUTtONn WIidER="200" Heigit="Z200" Coftent="Relléo VB" 
Style="{StaticResource RoundButton}" FontSize="15"> 


SY BUEEOoORS 


يمكنك الملاحظة من الكود السابق للشكل أننا قمنا باستبدال )عماe×†8٦‏ ب ContenetPresenter‏ وذلك من أجل أن نتمكن من عرض أي 
شكل نريده داخل الزر وليس النصوص فقط وإن أردنا المزيد من التحكم بمظهر الزر يمكننا أن نطوره ليعالج حالات الزر المختلفة متثل 
hover‏ أو focus‏ أو dمPush‏ مما يمكننا من تشكيل الأشكل التي نريدها تماما 
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القسم الرابع - النظام والملفات 


ويضم المواضيع التالية: 


مثال على عملية إنشاء عviمS s‏ سم ٣ا۷‏ إنشاء برنامج تشفير تلقائي 
للملفات 

كيف يمكننا التأكد من تحرير موارد النظام التي يستخدمها كودنا 
كيفية إضافة بنود إلى قائمة النظام برمجيا 

كيف يمكننا البحث عن ملف بمحتوى معين ضمن شجرة مجلدات 
كيف نقوم بالبحث في سجل النظام 

تعالوا نعمل معا 6٣‏ عة" Na‏ )وه بسيط وبسرعة 

تعقب إضافة وإزالة الأقراص المرتبطة عبر منفذ اول 

تشغيل برنامج من ضمن كود فيجول بايزيك دوت نیت 

الأصوات في امم.۷8 

إدخال وإخراج الأقراص القابلة للنزع برمجيا 

مراقبة نظام الملفات - llتحكم FileSystem Watcher‏ 
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مثال على عملية إنشاء مicاام؟S‏ sسwمdمW1‏ - إنشاء برنامج تشفير تلقائي للملفات 


فكر ة المد - بناء خدمة ويندوز تقوم بتشفير أى ملف تلقائيا عند نسخه إلى مجلد معين وسنستخدم هنا إجر ائية تشفير قابلة بحیث 
و کڪ ویندور دفوم بدسهفیر اي ل 1 جلد معین و م إجرانيه تشهير فاب بحب 
أن عملية إعادة نسخ الملف لذلك المجلد تقوم بفك تشفيره 


أنشئ مشروعا جديدا من نوع Windows Service‏ وقم بتسميتە AutoFileEncrypt0r‏ وغیر تسمیة Service1.760‏ إلى 
AutoFileEncryptor.ْْb‏ ووافق على الرسالة التي تطلب منك إعادة تسمية الفئة ثم افتح محرر التصميم ل g AutoFileEncryptor‏ 
اسحب العنصر ۲ع اعغWa‏ ص مtءرSكeا۴‏ على سطع النافذة ثم افتح محرر الكود الخاص ڊ AutoFileEncryptor‏ 


أضف التعريف التالي في القسم العام ldفiة AutoFileEncryptor‏ 


Private WatcPath = "d:\AutoFileEncryptor" 


عدل إجراء الحدثين ٣2ا05‏ و مهاكم ليبدوا كما في الكود التالي وذلك لتعيين الخصائص الابتدائية لفعنصر FileSyste mn Watcher‏ 


Public Class AutoFrileEncryptor 
Private WatcPath = "d:\AutoFileEncryptor"™ 


Protected Overrides Sub OnStart (ByVal args() As String) 
' Add code here to start your service. This method should set things 
" iF MOELON 8©: YOUE SEEVICE Cal do 1ES WOEK: 
Me.FileSystemWatcher1.Path = WatcPath 
Me.FileSystemWatcher1.EnableRaisingEvents = True 

End Sub 


Protected Overrides Sub OnStop () 
'"' Add code here to perform any tear-down necessary to stop your service. 
Me.FileSystemWatcher1.EnableRaisingEvents = False 

ENQA Sub 


End Class 
لكتابة إجرائية التشفير سنحتاج أولا لإضافة التعريفات العامة التالية في فئتنا‎ 


" This 1S the Ginary password. 

Dim pwBytes() As Byte = {123, 234, 12, 9, 78, 89, 212} 
' This is the extension used for temporary files. 

Dim tempExt As SEEING = SST 


وأيضا أضف الاستيراد التالي في بداية الملف 


TMpBGEES Systema lO0 
ضمن الفئة اكتب الكود التالي الذي يمثل إجرائية التشفير‎ 


' This is the encryption/decryption routine. 
Private Sub EncryptFile (ByVal Filename As String, ByVal pwBytes() As Byte) 
'" ‘TALS 1S. ERE. SI26 Of aC IRPUE Block. 
' (Files must be decrypted using the same block size.) 
Const BLOCKSIZE = 8192 
' Determine the name of the temporary file. 
Dim tempFile As String = Filename & tempExt 
' Open the source file as a binary input stream. 
Dim inStream As New FileStream (Filename, IO.FileMode. Open) 
' Open the temporary output file as a binary input stream. 
Dim outStream As New FileStream (tempFile, I0.FileMode.Create) 
' Determine the number of bytes to read. 
Dim bytesLeft As Long = inStream.Length 
' Prepare an input buffer. 
Dim buffer (BLOCKSIZE - 1) As Byte 
' Loop until there are bytes to read. 
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Do While bytesLeft > 0 
' Read max 8 KB at a time. 
Dim bytesToRead As Long = Math.Min (BLOCKSIZE, bytesLeft) 
" Read into the inpüt buffer: 
inStream. Read (buffer, 0, bytesToRead) 
" ENEFYOE ERIS ‘DUfEEeE. 
EncryptArray (buffer, pwBytes) 
' Output to the temporary file. 
outStream.Write (buffer, 0, bytesToRead) 
' We have fewer bytes to read now. 
bytesLeft -= bytesToRead 
LOGE 
' Close the two streams. 
inStream.Close () 
outStream.Close () 
' Delete the source file. 
File.Delete (Filename) 
' Rename the temporary file as the original file. 
File.Move (tempFile, Filename) 
SUG 


THILS. EOQELIRE eRNETYOES ah AEFay Of Bytes: 


EncryptArray (ByVal buffer () As Byte, ByVal pwBytes() As Byte) 
' This index points to the password aãrfay: 
Dim i As Integer 
' The max value for i 
Dim maxval As Integer = pwBytes.Length 
For index As Integer = 0 To buffer.LlLength - 1 
' XOR each element with the corresponding element in the password. 


buffer (index) = buffer (index) Xor pwBytes (i) 
' Ensure that the index is always in the valid range. 
1 = (i + 1) Mod maxval 

Next 

SUG 


أضف إجراء معالجة للحدث مةه الخاص بالعنصر ۲عطءاة ٠W‏ مtءركء|ان۴‏ وعدله ليصبح كما في الكود التالي 


ale 


Sub 


PEIvVatê SUB FileSsystemWatcherl Created(ByVal sender AS Object, 


ByVal e As System.1O.FileSystemEventArgs) 

Handles FileSystemWatcher1.Created 
' Ignore temporary files created by the encryption process. 
If System.IO.Path.GetExtension (e.FullPath) = tempExt Then Exit Sub 
' Encrypt the file being created. 
EncryptFile (e.FullPath, pwBytes) 
SU 


أضف الكود التالي للإجراء 0۸5٤2۲۲‏ كي نتأكد عند بداية الخدمة أن المجلد موجود فعلا 


If Not Directory.Exists (WatcPath) Then 
Directory.CreateDirectory (WatcPath) 


فیصبح الإجراء كاملا 


EA TÊ 


Protected Overrides Sub OnStart (ByVal args() As String) 


' Add code here to start your service. This method should set things 


Lf MOELORN So yOUE service cal do 1ES WOEK: 
If Not Directory.Exists (WatcPath) Then 
Directory.CreateDirectory (WatcPath) 


Ed JÊ 
Me.FileSystemWatcher1.Path = WatcPath 
Me.FileSystemWatcher1.EnableRaisingEvents = True 
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EN SU 


انتقل إلى سطح llتصpıo‏ ن Auto File gl! AutoFileEncryptor  ServiceName ةيصlخll طbıضl, AutoFileEncryptor‏ 
yptorاEnc‏ واضغط زر الفأرة اليميني واختر الأمر ١ءااهایما‏ هل۸ من قائمة السیاق ومن خصائص ٥۲1‏ |اھ†ءہاعع ا۷٥5‏ اضبط کلتا 
الخاصيتين Display Name‏ ڍو Auto File Encryptor ılإ ServiceName‏ ثم انتقل لخصائص e۴۲1|ااھ†کہاsوعroc٥Service‏ واضبط 

الخاصیية †ہ Accu‏ إلى Service‏ اL0ca‏ ثم اختر الأمر ا۸ م۷جS‏ من قائمة مان۴ 


قم بعمل 4 |اں8B‏ للمشروع 
أنشئ مجلدا مؤقتا باسم م٠٠‏ على السواقة 0 وانسخ الملف التنفيذي للمشروع إليه 
ثم اُنشئ فيه ملفا نصیا باسم خط.|اھیم| بحیث تکون محتویاته 
INSTALLUTIL AutoFileEncryptor.exe‏ 
وأیضا ملف نصي آخر باسم 2.||ھیہ ہل بحیث تکون محتویاته 
INSTALLUTIL /U AutoFileEncryptor.exe‏ 


انتقل إلى مجلد مالں†؟ امںء¡۷ في قائمة ابداً و شغل الأمر Studio 2008 Command P٥ pt‏ اVisua‏ وتأکد من أنك شغاتھ باستخدام 
الخيار Run as Administrator‏ عندما تعمل على ويندوز فيستا ثم من نافذة الكونسول اكتب الأوامر التالية تباعا مع الضغط على ع۸٤‏ 
بعد کل سطر 


D: 
CD\temp 
Install 
فيتم تنصيب الخدمة في ويندوز‎ 


اترك نافذة الكونسول مفتوحة وانتقل الآن إلى بيئة التطوير وانتقل إلى نافذة ۲ع۲هام×٤‏ مم5 ووسع الشجرة حتى ترى العقدة كعأ۷مS‏ 
انقر على العقدة وعء اه6 بزر الفأرة اليميني و اختار !لمر launch Services Manager‏ ابحث ضمن llقlئaة Auto File j‏ 
Encryp tor‏ ثم قم ببدء تشغیل الخدمة 


لتجربة الخدمة انسخ أي ملف نصي إلى المجلد ۲٥ا‏ مرا" ٤ء‏ |ان۴هAut]:‏ وحاول قراءة محتويته ستراها بالصيغة المشفرة ولفك تشفير 
الملف انقله إلى أي مجلد آخر ثم انسخه للمجلد ۲٥م‏ راہ ٤ء‏ |۴ Auto‏ ]: مرة ثانية ليتم فك تشفيره تلقائيا 


لإزالة الخدمة عد إلى برنامج ٣م‏ عة٣ةN‏ ءءء ا۷م؟ وقم بإيقاف الخدمة ثم عد إلى نافذة الكونسول ونفذ الأمر اهم iہ U‏ 
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كيف يمكننا التأكد من تحرير موارد النظام التي يستخدمها كودنا 


يمكنك أن تستخدم بلوك عاو من أجل التأكد من أن كودك قد تخلص تماما من مصادر النظام التي يستخدمها وخصوصا عندما تستخدم 
أوامر تتطلب استخدام قدرا كبيرا من الذاكرة وذلك بغض النظر عن الطريقة التي استخدمتھا للخروج من بلوك عہاوں حتى لو أطلق الكود 
استثناء غير معالج . فمتلا كي نتأكد من أننا قمنا بالتخلص من كامل كمية الذاكرة التي يستهلكها الاتصال بقاعدة البيانات يمكننا تضمينه ضمن 
بلوك ع اوں ونكتب الكود الذي يتعامل مع قاعدة البيانات داخل بلوك عون كما في المثال 


Imports System.Data.SqlClient 
Public Class Forml 
Public Sub AccessSql (ByVal s As String) 


Using sqc As New System.Data.SqlClient.SqLIConnection (s) 
MsgBox ("Connected with string """ & sqc.ConnectionString & """") 


End Using 
End Suüib 


End Class 


مع ملاحظة أن المتغير الذي تم تعريفه عند التصريح عن بلوك ع”أوں مثل المتغير وء في مثالنا هنا لا يمكن الوصول إليه من خارج بلوك 
عون لأندك التظهن نه ترو الخر رج من اارك كما كك متكا ذا الل ر ك من أحل الخ من مضار اللظام مل قح منك شادلى 
أو الكتابة إلى ملف وبشكل عام أنت تستخدم هذا البلوك عندما تريد أن تتأكد أن المصدر الذي تستخدمه يجب أن يكون متاحا فور الانتهاء منه 
. مع العلم أن المتغير الذي يعرف باستخدام عأول يجب أن يضمن الواجهة عااهو0مء0i|‏ 
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كيفية إضافة بنود إلى قائمة النظام برمجيا 


Form 


Mowe 
Size 
_ Minimize 
O Maximize 
¥# Close AIKEF4 1 
أولا - في قسم الإعلانات العامة نضيف التعريفات التالية:‎ 
Ney Item 


New Itemid 


Prirate Declare Function GEtSyYsLEmMHeEnu Lib "user32" (Eyal hwnd As Integer, 
ByYal pbRevTErt As Boolean] As Integer 


Private Declare Function AppendANenu Lip "user32" Alias "AppenANenuA" | 
{Eyal hMenu As Integer, EyYal vFlags As Integer, EyVal vIlNevItem As Integer | 
, ByVal l1lpHevwItem As String] As Integer 


Private Declare Function RemoveEHenu Lib "user32" EyVal hHenu As Long, 
ByYal nPoszition As Long, ByvYal wFlags As Long] As5 Long 


Loanat HF_EYPUSBITION = ¢H4004 

Lonat HF_FEMOUVE = £HIUOOUE# 

Lonat HF _ SEPARATOR = £HSODOE 

Lonzt UMN STSLOMMAND As Integer = sHllz 


ثانيا - في حدث التحميل للنموذج نقوم بالحصول على مقبض نافذة النظام بواسطة الأمر ۷6u‏ "ء65 ثم نقوم بإضافة البنود التي 
نريدها لقائمة النظام بواس¡¦طة Append Menu‏ 


Private Sub Forml Load[ByVal sender As System.Upject, ByVal 
Dim hSysHenu As [rteqger 
hSysHenu = GeEtSystemHenu | He. Handle. ToInt32, False} 
'appends nev menu items 
AppendHenu (ho yaHenu, HF_ SEPARATOR, 1000D, ""} 
AppenAMenulhSyaNenu, U, lUULl, "New Iteml"} 
AppenAMNenu I hSFa2Nenu, U, IUUME, "Nev Item"; 

End Sub 


ثالثا - في ال #ل ز۲٠0۷‏ ل ۷0۴٣٥١‏ نستخدم كود شبيه بالتالي لمعرفة أي بند من القائمة تم نقره 


Protected frmrerrides Sub WUndAProc [BFYREf m As Message) 
HyEasze. YWnAPFPrEoc (mj 
IF m.H3g = UMN SYSCOMNMHAND Then 
SEeleZLE Lasse m. VParam. ToInt3 3 
Lasse 1UU1 
UsgEBox{["LlIicked: Nev Itemil"} 
Lasse 1DUDUd 
HsgHBox{("LLIickEA: Nev Item") 
End Select 
End If 
End Sub 


كيف يمكننا البحث عن ملف بمحتوى معين ضمن شجرة مجلدات 


أنشئ مشرو عا جديدا مj‏ illوع Windows Forms Application‏ وضع 7ext80x öذفlill ıl‏ عدد 2 ڪ ListBox gy 2 ددe Button‏ 
عدد 1 وإن أحببت المتابعة بتسمياتي قم بتسمية التحكمات السابقة كما يلي txtContents g txtPath‏ ڪ gy btnSelectFolder‏ 
IstResults sy btnSearch‏ 


الآن أنشئ معالج لحدث النقر على كلا الزرين واجعل كود زر اختيار المجلد كما يلي 


Private Sub btnSelectFolder Click() Handles btnSelectFolder.Click 
٣ IESE SE 

Dim sf As New FolderBrowserDialog 

If sf.ShowDialog = Windows.Forms.DialogResult.OK Then 
Me.txtPath.Text = sf.SelectedPath 

ERG TE 

ERG: SUD 


من أجل الاستعلام عن الملفات المطلوبة سنحتاج إلى وظيفة تعيد لنا قائمة بالملفات الموجودة في شجرة مجلدات معينة حيث سنقوم بتمرير 
مسار المجلد الذي سنبدأً منه كمحدد وحيد لها وسيكون كودها على الشكل التالي حيث استخدمنا استعلام لينك يعيد لنا مجموعة من النوع 
٥‏ |اe|ا۴‏ لقائمة الملفات الموجودة في شجرة المجلدات الممررة مستخدما الدالة وءم[¡۲۴٥6‏ للحصول على قائمة الملفات المطلوبة 


۶ فة كد ات اشجرة ضهن فعا فاك اة اة‎ 
FURCELOR GetELles (BYVAL FOOE. A& SEEING) AS _ 
System.Collections.Generic.IEnumerable (Of System.IO.FilelInfo) 


Return From file In My.Computer.FileSystem.GetFiles _| 
(root, FileIO.SearchOption.SearchAllSubDirectories, "*.*") 
Select New System.I1IO.Filelnfo(file) 


ERQ. FUREETION 


وسنحتاج وظيفة أخرى تعيد لنا محتويات الملف الذي نقرأه عند الاستعلام حيث نمرر لها مسار ذلك الملف وسيكون كود هذه الوظيفة على 
الشكل التالي حيث استخدمنا الدالة »٥٠ا4۸‏ هءR‏ لقراءة كافة محتويات الملف وإعادتها 

املك فجتوحات. قر اة ' 

Function GetFileText (ByVal FileName As String) As String 
" اكا تا ١آ فة ىا امترات اة وة الاك كان ن‎ 
If System.IO.File.Exists (FileName) Then 
Return System. IO.File.ReadAl1lText (FileName) 

Else 


Return String. Empty 
ERG 1F 
ERQ: FUNEELON 


وسيكون كود زر البحث كالتالي 


PELVEES SUM bBERSeaEERCLLER() HANI. BENSEAEER:CLLGKE 
' المكاتعة قبل الخحفة وشرطظ المسان من الاك‎ 
TE Me:txXTtPath. Text <» SEEING. EMBEY _ 
And Directory.Exists (Me.txtPath.Text) _ 
And Me.txtContents.Text <> String.Empty Then 
1 االملقات فقاشمة وای االجصتوك‎ 
Dim filelList = GetFiles (Me.txtPath. Text) 


العخك. شرط طاق الى بالملقات قاشمة على للحصول لحشتاف استعلام استخدام 1 
Dim queryMatchingFiles = From file In filelist _‏ 
Where fLLE.EXEERSLOD = WREMT‏ 
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Let fileText = GetFileText (file.FullName) 


where 
fileText.ToUpper.Contains (Me.txtContents. Text. ToUpper) 
Select file.FullName 


الانة صفدةن ي اتات اها "` 
Me.lstResults.Items.Clear ()‏ 
Me.lstResults.Items.AddRange (queryMatchingFiles.ToArray)‏ 


ERG. TE 


MsgBox ("Done.") 
ERA SUB 


حيث استخدمنا في البداية عبارة ۴| للتحقق من نص البحث والمسار المطلوب قبل تنفيذ عملية البحث تم قمنا بالحصول على قائمة الملفات 
ووضعها في المتغير †ءأاع|ا۴f‏ ثم استخدمنا استعلام لينك يستعلم من fileList‏ وفي قسم Where‏ حددنا اننا نريد البحث في الملفات التي تمتلك 
اللاحقة صم ثم أضفنا شرطا آخر لقسم ۷٠۲١‏ بأننا نريد الحصول على الملفات التي تحتوي نصا معينا فقط وقمنا باستخدام الدالة 
ممل" مع كلا النصين من أجل تجاهل حالة النص (حروف كبيرة أو صغيرة) ثم قمنا بإظهار نتائج الاستعلام في صندوق القائمة 


فكرة لتطوير المشروع ولكن لن أنفذها أنا وأنتظر من أحد متابعي موضوعي تنفيذها وهي أنه إذا كانت شجرة المجلدات المبحوث فيها كبيرة 
فالبحث سيأخذ وقتا طويلا لذا يجب نقل تنفيذ الاستعلام إلى مسار آخر Another rhread‏ وإظھار مؤشر بتقدم العملية باستخدام 


ProgressBar‏ أسفل النافذة كما يمكن إضافة صندوق نصوص آخر على النافذة لجعل مستخدم تطبيقنا يحدد لاحقة الملفات التي يريد البحث 
فیها 
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كيف نقوم بالبحث في سجل النظام 


نحتاج أحيانا للبحث في سجل النظام عن مفتاح يحتوي على قيمة أو محتويات محددة ولهذا الغرض نستخدم الفئة 
Microsoft. Win32.Registry‏ للحصول على الكائن Microsoft. W1n32.Registry Key‏ الذي يمثل المفتاح الجذري للعش 
الذي نود البحث فيه في سجل النظام مستخدمين عناصر الكائن RegistryKey‏ للتنقل عبر شجرية مفتاح السجل وتعداد عناصره 
وقراءة أسماء وقيم المفاتيح المحتواة في ذلك المفتاح. 


وهنا يجب علينا أولا الحصول على كائن رع رع)ءزعهR‏ يمثل المستوى الأساسي للتنقل عبر عناصر شجرية الكائن 
Registry Key‏ حيث تقدم لنا الفنة رإ)وزعه ۸R‏ مجموعة مؤلفة من سبعة خاصيات مشتركة تمثل المستوى الأساسي لمفاتيح سجل 


النظام وهي 
HKEY_CLASSES_ROOT ClassesRoot ®‏ 
HKEY_CURRENT_CONFIG CurrentConflig ®‏ 
HKEY_CURRENT_USER CurrentUser ®‏ 
HKEY_DYN DATA DynData‏ 
HKEY_LOCAL_ MACHINE LocalMachine‏ 
HKEY_PERFORMANCE_DATA PerformanceData‏ 
HKEY_USERS Users ®‏ 


الخصائص الموجودة في الفنُة رإ)1sعW1¬,32.Re Microsoft.‏ وبعد حصولك على الكائن رع ۲y)ءاعء 8R‏ الجذري يمكنك التنقل 
عبر مفاتيحه الفرعية ولدعم هذا التنقل تمكنك الفة رع,ا)ءعءR‏ من استخدام الطريقة وعدصةNN‏ ,ع طSu{ءG‏ للحصول على 
مصفوفة نصية تحتوي على أسماء جميع المفاتيح الفر عية ثم استخدام الطريقة ره )طاu؟مءم0‏ للحصول على مرجع للمفتاح 
الفرعي وهي متوفرة بشكلان محملان الأول يفتح ذلك المفتاح للقراءة فقط والثاني يستقبل قيمة منطقية إن كانت عنإ1 فهي تفتح 
ذلك المفتاح مع قابلية الكتابة أيضا. 


وحالما تحصل على الكائن رم ٤,,اوعه‏ 8 يمكنك عندها إنشاء أو قراءة أو تحديث أو حتى حذف المفاتيح والقيم الفرعية باستخدام 
الطرائق التالية مع ملاحظة أنه عند استخدام الطرائق التي تقوم بالتعديلات على محتويات المفتاح يجب أن تكون قد حصلت على 
کائن ره ر۲)ءعه#R‏ قابل للكتابة حتى تستطيع القيام بالتغييرات المطلوبة 


Create Sub Key‏ تنشئ مفتاح فرعي باسم معین وتعید کائن رعار,)ءعه8 قابل للكتابة فإن كان ذلك المفتاح موجودا 
فهي تعيد مرجعا له 

ey‏ eteSub&Kاeط‏ تقوم بحذف مفتاح باسم محدد حيث يجب أن لا يحتوي ذلك المفتاح على أية مفاتيح فرعية ويمكن ان 
يحتوي على قيم وفي حالة فشله فهو یطلق wlتڈliء System.InvalidOperation Exception‏ 

ree‏ آeteSubKeyاeط‏ يقوم بحذف المفتاح مع جميع المفاتيح الفرعية والقيم ضمنه 

ه 211e‏ )اع( يقوم يحذف قيمة باسم محدد في المفتاح الحالي 

ع [u‏ ۷ء يعيد قيمة باسم محدد في المفتاح الحالي وتكون القيمة المعادة من النوع )1ء زط0 ثم يجب استخدام دوال 
تحويل الأنواع لتحويلها إلى نوع البيانات المطلوب وهي تعيد عمذطاه إن لم يتم إيجاد القيمة وهي تمتلك طريقة محملة 
تمكنك من تحديد القيمة الافتراضية المعادة بدلا عن Nothing‏ 

jet ValueKind‏ تعيد نوع البيانات الذي تحمله قيمة محددة في المفتاح الحالي وتكون القيمة المعادة من نوع التعداد 
Microsoft. Win32.RegistryValueKind‏ 

ei ValueNam es‏ وهي تعيد مصفوفة نصية تحتوي على أسماء جميع القيم المحتواة في المفتاح الحالي وإن كان 
المفتاح يحتوي على قيمة افتراضية ممثلة بسلسلة نصية فار غة فيتم إعادة هذه السلسلة النصية الفار غة كعنصر ضمن 
المصفوفة المعادة 
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ه »1۷21ء تقوم بإنشاء أو تعديل قيمة باسم محدد وهي تزودنا بطريقة محملة تمكننا من تحديد نوع البيانات المخزنة في 
تلك القيمة حيث تأخذ قيمة التعداد RegistryValueKind‏ کمحدد أخير لتحديد نوع تلك القيمة وإن لم نقم بتحديد نوع 
هذه القيمة فيتم الاستدلال علی نوعھا آلیا اعتمادا على نوع الكائن الممرر لضبط تلك القيمة 


كما أن الفُة رم ٤ر,)ءزعهR‏ تحقق الواجهة ع[طهوممء101] لهذا عليك استدعاء الطريقة موممء¡5.ء1طهaءمء¡([‏ لتحرير مصادر 
النظام عندما تنتهي من استخدام اJكlئj .RegistryKey‏ 


والمثال التالي يأخذ محدد سطر أوامر وحيد يقوم بالبحث عنه في العش ۲٥ء‏ ل۲٣٥۲إں‏ باحتا عن المفاتيح التي يطابق اسمها 
المحدد الممرر وعندما يجد مفاتيحا مطابقة يقوم بإظهار جميع القيم النصية المحتواة فيه على شاشة الكونسول 


Imports System 
Imports Microsoft.Win32 
Namespace Apress.VisualBasicRecipes.Chapter15 


Public Class Recipe15_05 


Public Shared Sub SearchSubKeys(ByVal root As RegistryKey, > 
ByVal searchKey As String) 
' Loop through all subkeys contained in the current key. 
For Each keyName As String In root.GetSubKeyNames 
Try 
Using key As RegistryKey = root.OpenSubKey(keyName) 
If keyName = searchKey Then PrintKeyValues(key) 
SearchSubKeys(key, searchKey) 
End Using 
Catch ex As Security.Security Exception 
' lgnore SecurityException for the purpose of this example. 
' Some subkeys of HKEY_CURRENT_USER are secured and will 
' throw a SecurityException when opened. 
End Try 
Next 
End Sub 


Public Shared Sub PrintKeyValues(ByVal key As RegistryKey) 
' Display the name of the matching subkey and the number of 
' values it contains. 


Console.WriteLine("Registry key found : {0} contains {1} values", » 


key.Name, key.ValueCount) 

' Loop through the values and display. 

For Each valueName As String In key.Get'ValueNames 
If TypeOf key.GetValue(valueName) Is String Then 


Console.WriteLine(" Value : {0} = {1}", valueName, > 


key.GetValue(valueName)) 
End If 
Next 
End Sub 


Public Shared Sub Main(ByVal args As String()) 
If args.Length > O0 Then 

' Open the CurrentUser base key. 

Using root As RegistryKey = Registry.CurrentUser 
' Search recursively through the registry for any keys 
' with the specified name. 
SearchSubKeys(root, args(0)) 

End Using 
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End If 
' Wait to continue. 
Console.WriteLine(Environment.NewLine) 
Console.WriteLine("Main method complete. Press Enter.") 
Console.ReadLine() 

End Sub 


End Class 
End Namespace 


و بتشغيل المثال السابق واستخدام Environment‏ کمحدد سطر آوامر فسوف يظهر لنا خرجا شبيها بالتالي إن كنا نعمل على 
جهاز یشغل ویندوز فیستا 


Registry key found : HKEY_ CURRENT_USER\Environment contains 3 values 
Value : TEMP = C:\Users\ Todd \AppData\Loca\ Temp 
Value : TMP = C:\Users\Todd\AppData\Local\ Temp 


Main method complete. Press Enter. 
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تعالوا نعمل معا إمءع ةرج[ اوه بسيط وبسرعة 


- أي نسخة من فيجول ستوديو 2008 ستعمل معنا حتى ال Exp rss‏ 
- يعتبر هذا البرنامج مثالا عملیا على Linq ٥٣ Object‏ حیث نستخدم استعلامات ٣اا‏ للحصول على المعلومات المطلوبة 


- أنشئ مشروعا جديدا وسمه ما تشاء ثم ضع على النموذج سع 4۷i‏ 6ه وأبق على الاسم الافتراضي ۲1١۷i ٠W1‏ 6ه إذا أحببت 
المتابعة بتسمياتي ثم ضع زرين أسفل ال سع۷iلا6ه†ه0‏ وأعط لأحدهما اسما ۴٣ط‏ واجعل الخاصية ٣٠×‏ مساوية ل |إآ۴ و الآخر 
سمه ||)" اط واجعل الخاصية ٤×ع]‏ مساوية ل |إن» 

- افتح خصائص اء عزه M۷۴۲‏ و من الصفحة ٥۸‏ ااiاممA‏ اضغط زر كع نامء ٤۸ل‏ سع ا۷ وفي محرر الكود الذي يظهر لك استبدل 
اأشظر 


<requestedExecutionLevel level="asInvoker" uiAccess="false" /> 


ا 


<requestedExecutionLevel level="requireAdministrator" uiAccess="false" /> 


في محرر الكود للنموذج ۴٠۲1‏ أدخل الكود التالي الذي سيكون هو الكود الكامل لبرنامجنا 
Public Class Forml‏ 


Private Bs As New BindingSource 
Private Sub btnFill Click() Handles btnFill.Click 
Me.DataGridViewl.DataSource = Bs 
Dim pr = From a In Process.GetProcesses _| 
Order By a.ProcessName _ 
Select a.Id, a.ProcessName, a.MainWindowTitle, _ 
HandlesCount = a.HandleCount, ThreadsCount = a.Threads.Count 


Me.Bs.DataSource = pr 
End Sub 


Private Sub btnKill Click() Handles btnKill.Click 
Dim pra = Bs.Current 
Dim prk = From a In Process.GetProcesses _ 
Where a.Id = pra.Id _ 
And a.MainWindowTitle = pra.MainWindowTitle 
Select a 


For Each p In prk 
p.Kil1l () 
Next 


btnFill Click() 
End Sub 


End Class 


في البداية عرفنا متغيرا ء8 من النوع معا uمك5ع”‏ ه٠8‏ الذي سنستخدمه لربط نتيجة الاستعلام مع سعi‏ 6|4۷ هاه ثم في كود الزر اا۴ 
قمنا بربط 8s‏ مع Wع4۷i|اعه†ه‏ ثم كتبنا استعلام ها ليجلب لنا الحقول التي نريدها من ناتج الطريقة ومووعع0٣۴†ع6.ءءهعه۴r‏ وقمنا 
بالترتيب حسب ع4۳ ١ءوءعع‏ ه۴۲ ثم اخترنا الحقول التي نرغب بإظهارها في شبكة البيانات ثم قمنا بضبط قيمة الخاصية مء uںهم5ه†ه‏ إلى 
استعلامنا ۴ مما سيسبب إظهار نتيجة الاستعلام في شبكة البيانات 


وفي كود الزر ||¡× جلبنا أولا قيمة السطر الذي يقف عنده المؤشر في شبكة البيانات بالحصول على قيمة الخاصية ٤۸٥٣ا Cu‏ ل 8s‏ ثم کتبنا 
استعلاما شبيها بالسابق يجلب لنا العمليات التي توافق شرطنا بحیث يكون | و e|ا† Nain Window r‏ مطابقان ثم قمنا بالدوران خلال نتائج 
الاستعلام عبر حلقة اطع هع ... ۴۴ واستخدمنا الطريقة |ا¡) لإنهاء العمليات التي يعيدها الاستعلام 
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إذا أردنا إضافة زر إخفاء وإظهار للنافذة الرئيسية للبرنامج - العملية - أضف زرين للنموذج باسم علi‏ ۸ظ و W٥ط؟ماط‏ تم في قسم 
التصريحات العامة ضمن الفئة ۴٠۲٠1‏ أضف التصريحات التالية 


Public Declare Auto Function ShowWindow Lib "user32" _| 
(ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer 


ublic Const SW HIDE = 0 

ublic Const SW SHOW = 5 

ublic Const SW _ SHOWNA = 8 
ublic Const SW_SHOWNORMAL = 1 


E TY Gr 


ويكون كود زري الإظهار والإخفاء 


Private Sub btnHide Click() Handles btnHide.Click 
Dim pra = Bs.Current 
Dim prk = From a In Process.GetProcesses 
Where a.Id = pra.Id _ 
And a.MainWindowTitle = pra.MainWindowTitle _ 
Select a 


For Each p In prk 
ShowWindow (p.MainWindowHandle, SW HID! 
Next 


4 
س 


btnFill Click () 
End Sub 


Private Sub btnShow Click() Handles btnShow.Click 
Dim pra = Bs.Current 
Dim prk = From a In Process.GetProcesses _ 
WEEE ALIS SESSILIS 
And a.MainWindowTitle = pra.MainWindowTitle 
Select a 


For Each p In prk 
ShowWindow (p.MainWindowHandle, SW _ SHOW) 
Next 


btnFill Click() 
End Sub 


ومن أجل نقل التركيز لتطبيق معين نحتاج إلى التعريفات التالية 


Public Declare Auto Function SetForegroundWindow Lib "user32" _ 
(ByVal hwnd As Integer) As Boolean 


ونضیف زر باسم 5۴٥٥s‏ یکون کوده كما يلي 


Private Sub btnSetfocus_ Click() Handles btnSetfocus.Click 
Dim pra = Bs.Current 
Dim prk = From a In Process.GetProcesses _ 
Where a.Id = pra.Id _ 
And a.MainWindowTitle = pra.MainWindowTitle _ 
Select a 


For Each p In prk 
SetForegroundWindow (p.MainWindowHandlLe) 
Next 


btnFill Click () 
End Sub 
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تعقب إضافة وإزالة الأقراص المرتبطة عبر منفذ طاول 


فكرة العمل: بناء فئة يوووا للتعامل مع الأقراص القابلة للإزالة والتي يتم توصيلها إلى الحاسب عبر منفذ 58ل 
الفوائد: مثال على البرمجة غرضية التوجه»ء بناء الفئات» إضافة الخصائص» إطلاق الأحداث 


سنقوم أولا بتعريف فئة ووه ا٣‏ لتضم عملنا وعندما ننتهي منها يجب أن تضم العديد من الخصائص والإجراءات المفيدة 


Public Class UsbDriveDetect 


End Class 


سنحتاج لإضافة مرجع ل Management Event Watcher‏ حتى نستطيع مراقبة ما يحدث داخل الجهاز والذي يقوم بمراقبة الأحداث 
المنطلقة بناء على استعلام معين و سنستخدم الكلمة وا" ع۷٤۷۸‏ في التعريف حتى نستطیع تعقب الأحداث الصادرة عنه 


Private WithEvents m MediaConnectWatcher As ManagementEventWatcher 


ولكي يعمل بشكل صحيح سنحتاج لإضافة مرجع ل System.Managemen†i‏ الآن قم بإضافة system .Management‏ من قائمة 
Project‏ بند Ad Reference‏ تم استخدم الاستيراد التالي قبل كل شئ في الملف وحتى قبل تعريف الفئة أيضا 


Imports System.Management 
سنحتاج أيضا لبناء مشيد الفئة سع طك الذي سيضبط التهيئة الأساسية لفئتنا والذي سنقوم من خلاله بضبط خصائص‎ 


NanagementEventWatcher‏ الذي يقوم بالعمل لأجلنا 


Sub New () 
Dim Query2 As New WqlEventQuery ("SELECT * FROM _ InstanceOperationEvent WITHIN 1 " _ 
& "WHERE TargetInstance ISA 'Win32 DiskDrive'") 


Me.m MediaConnectWatcher = New ManagementEventWatcher 
Me.m MediaConnectWatcher.Query = Query2 
End Sub 


سنقوم الآن بوضع إجراءات لبدء وإيقاف تعقب وضع وإزالة أقراص 58ل 


Public Sub StartDetection () 
Me.m MediaConnectWatcher. Start () 


End Sub 


Public Sub StopDetection () 
Me.m MediaConnectWatcher. Stop () 


End Sub 


نريد الآن إعلام مستخدم فئتنا عن طريق إطلاق حدث خاص عندما يتم وضع أو إزالة قرص عن طريق منفذ 58ل في الجهاز سنقوم بإنشاء 
فئة مشتقة من ءع۲ ۸٤۸A‏ ٥۷."عtءرك‏ و ذلك كفئة فرعية ضمن فئتنا الأساسية ععع( عi۷ا0طءل‏ حتى نستخدمها لإطلاق حدثنا ولكن 
سنحتاج أولا للتعريف التالي لإعادة حالة القرص هل تم وضعه أو إزالته ضع التعريف التالي بعد بداية تعريف الفئة 


Public Enum EnUsbArrivedRemoved 
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Arrived 
Removed 


End Enum 
وفيما يلي نص الفئة الخاصة بالحدث‎ 


Public Class UsbDriveEeventArgs 
Inherits System.EventArgs 


Private m DeviceName As String 
Private m Driveletter As String 


Private m ArrivedRemoved As EnUsbArrivedRemoved 


Sub New (ByVal DeviceName As String, ByVal DriveLletter As String, 


ByVal ArrivedRemoved As EnUsbArrivedRemoved) 


Me.m DeviceName = DeviceNam 

Me.m DriveLletter = DriveLletter 

Me.m ArrivedRemoved = ArrivedRemoved 
End Sub 


Public ReadOnly Property DeviceName () As String 
Get 
Return Me.m DeviceNam 

End Get 

End Property 


Public ReadOnly Property DriveLletter() As String 
Get 
Return Me.m DriveLletter 

End Get 

End Property 


Public ReadOnly Property ArrivedRemoved() As EnUsbArrivedRemoved 
Get 
Return Me.m ArrivedRemoved 

End Get 

End Property 


End Class 
و أيضا بعد بداية تعريف الفئة ضع السطر التالي الذي سيعرف الحدث الذي سنقوم بإطلاقه‎ 


Public Event UsbDeviceArrivedRemoved (ByVal sender As Object, 
ByVal e As UsbDriveEeventArgs) 


قبل استخدام الحدث ع Usb Device Ave 4۸ e0۷‏ لإعلام المستخدم بوضع أو إزالة قرص 58ل يجب الحصول على حرف ذلك القرص 


Private Function GetDriveLlLetterFromDisk (ByVal Name As String) As String 
Dim oq part, oq disk As ObjectQuery 
Dim mos_ part, mos_disk As ManagementObjectSearcher 
Dim obj_ part, obj_disk As ManagementObject 
Dim ans As String = "™" 


'"' WMI queries use the "\" as an escape charcter 
Name = Replace (Name, "\", "\\") 
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First we map the Win32 DiskDrive instance with the association called 
Win32 DiskDriveToDiskPartition. Then we map the Win23_DiskPartion 
instance with the assocation called Win32 LogicalDiskToPartition 


oq _ part = New ObjectQuery ("ASSOCIATORS OF {Win32 DiskDrive.DevicelD="™"" | 
& Name & """} WHERE AssocClass = | 
Win32 DiskDriveToDiskPartition”") 


mos_part = New ManagementObjectSearcher (oq part) 
For Each obj_part In mos part.Get () 


oq disk = New ObjectQuery ("ASSOCIATORS OF " | 
& "{Win32 DiskPartition.DevicelD=""" & obj_part ("DevicelD") 
& """} WHERE AssocClass = Win32 LogicalDiskToPartition™") 


mos_disk = New ManagementObjectSearcher (oq disk) 
For Each obj_disk In mos_disk.Get () 
ans &= obj_disk ("Name") & "," 


۴ 


Next 
Next 


Return ans.Trim(","c) 
End Function 


حيث نمرر له اسم الجهاز الذي تم الكشف عن إضافته وهو يعيد لنا حرف السواقة المرتبطة به وذلك باستخد ام 
ectSearcherزManagementObj‏ للحصول عليه حيث ستلاحظ أن طريقة الاستعلام هنا مشابهة لاستعلامات قواعد البيانات ولكنها هنا 
على فئات |۷ بدلا من جداول قاعدة البيانات 


Private Function GetDriveLletterFromDisk (ByVal Name As String) As String 
Dim oq part, oq disk As ObjectQuery 
Dim mos_ part, mos_disk As ManagementObjectSearcher 
Dim obj_ part, obj_disk As ManagementObject 
Dim ans As String = "™" 
' WMI queries use the "\" as an escape charcter 
Name = Replace (Name, "\", "\\") 


First we map the Win32 DiskDrive instance with the association called 
Win32_ DiskDriveToDiskPartition. Then we map the Win23_DiskPartion 
instance with the assocation called Win32 LogicalDiskToPartition 


oq_ part = New ObjectQuery ("ASSOCIATORS OF {Win32 DiskDrive.DevicelD=""" | 
& Name & """} WHERE AssocClass = | 
Win32 DiskDriveToDiskPartition™") 


mos_part = New ManagementObjectSearcher (oq part) 
For Each obj_part In mos part.Get () 


oq disk = New ObjectQuery ("ASSOCIATORS OF _ 
{Win32_ DiskPartition.DevicelD=""" & obj_part ("DevicelID") 
& """} WHERE AssocClass = Win32 LogicalDiskToPartition™) 


mos_disk = New ManagementObjectSearcher (oq disk) 
For Each obj_ disk In mos_disk.Get () 
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ans &= obj_disk ("Name") 


Next 
Next 


Return ans.Trim(","c) 


End Function 


والآن سنتتبع الحدث Eve n†A ٣v e4‏ الخاص ب Management Event Watcher‏ حتى نعرف متى تم وضع أو إزالة قرص 58ل وذلك 


كي نستطيع إطلاق حدثنا المناسب وفقا للحدث المستقبل 


EventArrived (ByVal sender As Object, 


HventArrivedEventArgs) Handles _ 


HventArrived 


ob] As ManagementBaseObject 
the first thing we have to do is figure out if this is 
a creation or deletion event 


mvent, ManagementBaseObject) 


ither created or deleted 
ManagementBaseObject) 


next we need a copy of the instance that was 
CType (mbo ("TargetInstance"), 


Private Sub m MediaConnectWatcher _ 


ByVal e As System.Management. 
m_ MediaConnectWatcher. 


Dim mbo, 
۲ 


.New 


mbo = CType ( 


obj 


If obj ("InterfaceType") = "USB" Then 
Select Case mbo.ClassPath.ClassName 

Case "  _InstanceCreationEvent" 
Dim Ee As New UsbDriveEeventArgs (obj ("Caption"), 

GetDriveLletterFromDisk (obj ("Name") ), EnUsbArrivedRemoved.Arrived) 
RaiseEvent UsbDeviceArrivedRemoved (Me, Ee) 

Case "  _InstanceDeletionEvent" 
Dim Ee As New UsbDriveEeventArgs (obj ("Caption"), "" 


Removed) 


1 


سوف أقوم بإضافة متغير يعيد بعض المعلومات عن ذلك القرص ولذلك سنحتاج | 


Dim DriveLletter As String 

Dim Description As String 

Dim FileSystem As String 

Dim Size As UlInt64 

Dim FreeSpace As UlInt64 

Dim DriveType As DriveTypeEnum 

Dim VolumeName As String 

Dim VolumeSerialNumber As String 
End. STEUCEUEe 


وأیضا إلی تعداد ہںمع ليعيد نوع القرص 
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EnUsbArrivedRemoved. 


vent UsbDeviceArrivedRemoved (Me, 


Rai sel 
End Select 
End If 


End Sub 


لی تعریف ترکیب r٥‏ ںا ں٣‏ لیعید تلك المعلومات 


PUBDELG  SEEUGTUEEe: DELVELNEOSEE 


Pûblic 
Unknown 


Enum DriveTypeEnum 
0 


NoRootDirectory 


1 


RemovableDisk 


LocalDisk = 3 
NetworkDrive = 4 
CompactDisc = 5 
RAMDisk = 6 

mnd Enum 


وسنضیف ذلك إلی ع۸۲۸۲ ٥۷٥۴ع 9i۷‏ طءل حتی تعيد القيمة 


UsbDriveEeventArgs — lض¦يİ‎ Sub New Jدziwy‎ 


Private m DrivelnfoS As DrivelnfoStr 


Public ReadOnly Property DrivelIlnformation() As DrivelnfoStr 
Get 
Return m DrivelnfoS 

End Get 

End Property 


Sub New (ByVal DeviceName As String, ByVal DriveLletter As String, 
ByVal ArrivedRemoved As EnUsbArrivedRemoved _ 
, ByVal Drivelnformations As DrivelnfoStr) 


Me.m DeviceName = DeviceNam 

Me.m DriveLletter = DriveLletter 

Me.m ArrivedRemoved = ArrivedRemoved 
Me.m DrivelnfoS = Drivelnformations 
End Sub 


وفيما يلي إجراء الحصول على المعلومات 


Private Function GetDrivelnformation (ByVal DriveLletter As String) As 


DriveInfoStr 


Dim Query As String = "Select * from Win32 LogicalDisk WHERE DevicelD 


& DriveLletter & "'" 


Dim colDisks As New ManagementObjectSearcher (Query) 

For Each objDisk As ManagementObject In colDisks.Get 

Dim DrIn As DrivelnfoStr 

With DrIn 
.DriveLetter = objDisk ("DevicelD") 
.FileSystem = objDisk ("Filesystem") 


.Size = objDisk ("Size") 
.FreeSpace = objDisk ("FreeSpace"™) 
.Description = objDisk ("Description") 


.DriveType = objDisk ("DriveType") 

.VolumeName = objDisk ("VolumeName"™) 
.VolumeSerialNumber = objDisk ("VolumeSerialNumber"™") 
End With 

Return DrIn 


Next 
Return Nothing 
End Function 


شئ أخير سنقوم بتغييره وهو كود إطلاق الحدث ليتوافق مع الإضافات الجديدة 


Dim DrlL As String = GetDriveLletterFromDisk (obj ("Name") ) 
Dim Ee As New UsbDriveEeventArgs (obj ("Caption"), DrL, 
EnUsbArrivedRemoved.Arrived, GetDrivelnformation (DrL) ) 


91 


وفيما يلي نص الفئة الكامل 


As 


VERE _ 


Private WithEvents m MediaConnectWatcher As ManagementEventWatcher 


Public Event UsbDeviceArrivedRemoved (ByVal sender As Object, ByVal e 


ELECT * FROM _ InstanceOperation 


HERE TargetInstance ISA 'Win32 DiskDrive'") 


Lcher = New ManagementEventWatcher 


Query2 


1 


Public Enum EnUsbArrivedRemoved 


Public Structure DrivelInfoStr 
Dim DriveLletter As String 
Dim Description As String 
Dim FileSystem As String 


Dim FreeSpace As UlInt64 


Dim DriveType As DriveTypeEnum 
Dim VolumeName As String 
Dim VolumeSerialNumber As String 


Public Enum DriveTypeEnum 


mventQuery ("S 


RaiseEvent UsbDeviceArrivedRemoved (Me, 


Public Class UsbDriveDetect 


Arrived 
Removed 


End Enum 


UsbDriveEeventArgs) 


Dim Size As UInt64 


End Structure 


Unknown = 0 
NoRoOtDirectory = 1 
RemovableDisk = 2 
LocalDisk = 3 
NetworkDrive = 4 


CompactDisc = 5 
RAMDisk = 6 
End Enum 


Sub New () 
Dim Query2 As New Wqli 
& " WITHIN 1 W 


Me.m MediaConnectWa 


tcher.Query = 


Public Sub StartDetection () 
Me.m MediaConnectWatcher. Start () 


Public Sub StopDetection () 
Me.m MediaConnectWatcher. Stop () 


Public Class UsbDriveEeventArgs 


Me.m MediaConnectWa 
End Sub 


End Sub 


End Sub 


Inherits System.EventArgs 
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Private m DeviceName As String 
Private m Driveletter As String 


Private m ArrivedRemoved As EnUsbArrivedRemoved 
Private m DrivelnfoS As DrivelnfoStr 


Sub New (ByVal DeviceName As String, ByVal DriveLletter As String, 
ByVal ArrivedRemoved As EnUsbArrivedRemoved _ 


, ByVal Drivelnformations As DrivelnfoStr) 
Me.m DeviceName = DeviceNam 
Me.m DriveLletter = DriveLletter 
Me.m ArrivedRemoved = ArrivedRemoved 
Me.m DrivelIlnfoS = Drivelnformations 
End Sub 


Public ReadOnly Property Drivelnformation() As DrivelnfoStr 
Get 
Return m DrivelnfoS 

End Get 

End Property 


Public ReadOnly Property DeviceName () As String 
Get 
Return Me.m DeviceNam 

End Get 

End Property 


Public ReadOnly Property DriveLletter() As String 
Get 
Return Me.m DriveLletter 

End Get 

End Property 


Public ReadOnly Property ArrivedRemoved() As EnUsbArrivedRemoved 
Get 
Return Me.m ArrivedRemoved 

End Get 

End Property 


End Class 


Private Sub m MediaConnectWatcher EventArrived (ByVal sender As Object, 
ByVal e As System.Management.EventArrivedEventArgs) Handles _ 
m_ MediaConnectWatcher.EventArrived 


Dim mbo, obj As ManagementBaseObject 


' the first thing we have to do is figure out if this is 


' a creation or deletion event 


mbo = CType (e.NewEvent, ManagementBaseObject) 

' next we need a copy of the instance that was either created or deleted 
ob] = CType (mbo ("TargetInstance"), ManagementBaseOobject) 

If obj ("InterfaceType") = "USB" Then 


Select Case mbo.ClassPath.ClassName 


Case "  _InstanceCreationEvent" 
Dim Drl As String = GetDriveLetterFromDisk (obj ("Name") ) 
Dim Ee As New UsbDriveEeventArgs (obj ("Caption"), 
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DrL, EnUsbArrivedRemoved.Arrived, GetDriveInformation (DrL) ) 


RaiseEvent UsbDeviceArrivedRemoved (Me, Ee) 
Case "  _InstanceDeletionEvent" 


Dim Ee As New UsbDriveEeventArgs (obj ("Caption"), Nothing, 
EnUsbArrivedRemoved. Removed, Nothing) 


RaiseEvent UsbDeviceArrivedRemoved (Me, Ee) 
End Select 
End If 
End Sub 


Private Function GetDriveLlLetterFromDisk (ByVal Name As String) As String 
Dim oq part, oq disk As ObjectQuery 
Dim mos_ part, mos_disk As ManagementObjectSearcher 
Dim obj_ part, obj_disk As ManagementObject 
Dim ans As String = "™" 
' WMI queries use the "\" as an escape charcter 
Name = Replace (Name, "\", "\\") 


First we map the Win32 DiskDrive instance with the association called 
Win32_ DiskDriveToDiskPartition. Then we map the Win23_DiskPartion 
instance with the assocation called Win32 LogicalDiskToPartition 


oq part = New ObjectQuery ("ASSOCIATORS OF {Win32 DiskDrive.DevicelD=""" | 
& Name & """} WHERE AssocClass = Win32 DiskDriveToDiskPartition") 


mos_part = New ManagementObjectSearcher (oq part) 
For Each obj_part In mos part.Get () 


oq disk = New ObjectQuery ("ASSOCIATORS OF " & _ 
{Win32_ DiskPartition.DevicelD=""" & obj_ part ("DevicelD") _| 
& """} WHERE AssocClass = Win32 LogicalDiskToPartition™) 


mos_disk = New ManagementObjectSearcher (oq disk) 
For Each obj_ disk In mos_disk.Get () 
ans &= obj_disk ("Name") & "," 
Next 
Next 


Return ans.Trim(","c) 


End Function 


Private Function GetDrivelnformation (ByVal DriveLletter As String) 
As DrivelnfoStr 


Dim Query As String = "Select * from Win32 LogicalDisk WHERE " & 
DevicelD = '" & DriveLletter & "™"'" 


Dim colDisks As New ManagementObjectSearcher (Query) 
For Each objDisk As ManagementObject In colDisks.Get 
Dim DrIn As DrivelnfoStr 

With DrIn 
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.DriveLlLetter = objDisk ("DevicelD") 
.FileSystem = objDisk ("Filesystem") 


.Size = objDisk ("Size") 

.FreeSpace = objDisk ("FreeSpace"™) 

.Description = objDisk ("Description") 

.DriveType = ob]jDisk ("DriveType") 

.VolumeName = objDisk ("VolumeName"™) 

.VolumeSerialNumber = objDisk ("VolumeSerialNumber") 
End With 


Return DrIn 
Next 
Return Nothing 


End Function 


End Class 


وفيما يلي مثال عن الاستخدام - عرف متغيرا عاما يشير إلى فئتنا ضمن فئة النموذج 


Private WithEvents UsbMonitor As New UsbDriveDetect 


أضف زري أوامر لبدء وإيقاف التعقب 


Private Sub Buttonl Click (ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button1.Click 


Me.UsbMonitor.StartDetection () 
End Sub 


Private Sub Button2 Click (ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) Handles Button2.Click 


Me.UsbMonitor.StopDetection ()‏ 
End Sub‏ 
عالج الحدث الصادر عن فئتنا إظهار رسالة مثلا 


Private Sub UsbMonitor UsbDeviceArrivedRemoved (ByVal sender As Object, 
ByVal e As UsbDriveDetect.UsbDriveEeventArgs) Handles 


UsbMonitor.UsbDeviceArrivedRemoved 

MsgBox (e .DeviceName & ControlChars.CrLf & e.DriveLletter _ 
& ControlChars.CrLf & e.ArrivedRemoved.ToString) 

End Sub 
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تشغيل برنامج خارجي من ضمن كود فيجول بايزيك دوت نیت 


C0 


مقدمه 
كنا أيام ۷86 نستخدم الأمر |ام لتشغيل برنامج خارجي فمتلا لتشغيل الآلة الحاسبة كنا نستخدم الكود 


Shell ("calc.exe") 


ولكن مع تطور لغة البايزك ومع قدوم الدوت نيت تم تقديم طريقة جديدة لتشغيل برنامج خارجي عن طريق ا١۲ه†؟.55ع ۴٣٥٤‏ حيث يمكننا 
تفل الال الحاسية بامتخده الوظيفة الجديدة ويكرد مكافي للكر د السابق 


Process.Start ("calc.exe") 


إضافة إلى أن الأمر |امط؟ك موجود ضمن مجال الأسماء ع أءجua|8ءا۴†.۷هءهrاMic‏ الموجود بغرض التوافقية المرجعية مع ۷86 
ولاينصح باستخدام الأوامر الموجودة في مجال الأسماء المذكور وذلك لتوفر بدائل أفضل وأكثر قوة عن تلك الموجودة فيه إضافة إلى أننا 
لانضمن متى تقوم مايكروسوفت بإلغاء دعم التوافقية مع ۷86 


ولكن ماذا لو احتجنا لتنفيذ سطر أوامر طويل أو معقد بالطبع ستقولون لي بأنه من الصعب تنفيذه باستخدام أي من الكودين السابقين لهذا أتت 
الوظيفة 52.ءءع ع٠٣‏ بعدة أشكال وذلك لتلبية متطلبات المبرمج المختلفة وفيما يلي بعض الأمثلة عن الوظيفة ٤2۲†؟‏ 


' Start Internet Explorer. Defaults to the home page. 
Process.Start ("IExplore.exe"™) 


' Start a Web page using a browser associated with .html and .asp files. 
Process.Start ("IExplore.exe", "C:\myPath\myFile.htm") 


' Open web site using IE 
Process.Start ("IExplore.exe", "www.aya.sy") 


"` OpPEAWNIEERSESELINEO() 
Dim startInfo As New ProcessStartInfo ("IExplore.exe") 


startInfo.WindowStyle = ProcessWindowStyle.Minimized 
Process.Start (startInfo) 
startInfo.Arguments = "www.northwindtraders.com" 


Process.Start (startInfo) 


نلاحظ من المثال الأول أننا قمنا بتمرير اسم البرنامج فقط للوظيفة حتى يتم تشغيله وفي المثال الثاني نريد تمرير ملف للمتصفح ليفتحه فقمنا 
بتمرير اسم الملف التنفيذي لمتصفح الانترنت في المحدد الأول للوظيفة وفي المحدد الثاني نضع محددات سطر الأوامر الخاصة بالبرنامج 
الذي نريد تشغيله - متصفح الانترنت - وفي مثالنا هنا اسم الملف الذي نريد فتحه مع مساره الكامل وقد نريد فتح موقع انترنت محدد فعندها 
نضبط قمية المحدد الثاني إلى عنوان ذلك الموقع كما في المثال الثالث وفي المثال الأخير قمنا بتمرير متغير من النوع ProcessStart|۸f٥‏ 
للوظيفة ۲ج5 كمحدد وحيد وذلك بعد ضبط الخصائص المناسبة فقد تم تمرير اسم البرنامج كمحدد للباني تم تم تحديد قيمة الخاصية 
eاWindowSty‏ إلى Minimized‏ وذلك يودي إلى تشغيل البرنامج بنافذة مصغرة وتم تحديد قيمة الخاصية كاعم" نع۸ التي تستخدم 
لتمرير محددات سطر الأوامر إلى التطبيق المراد تشغيله إلى عنوان الموقع الذي نريد فتحه 


lأفأ ProcessStartInfo‏ 
تستخدم هذه الفئة لتحديد خصائص العملية التي نريد تشغيلها وهي تمتلك العديد من الخصائص المفيدة التي تساعدنا على القيام بالمهام المختلفة 
التي يتطلبها تشغيل عملية - برنامج - ما وفيما يلي استعراض لأهم خصائص هذه الفئة 

ProcessStartlnfo() 


ProcessStartlnfo(String) 
ProcessStartlnfo(String, String) 
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فالصيغة الأولى تستخدم لإنشاء متغير من النوع "f0‏ !†ة†5ءومع ه٣۴‏ دون أن يتم تمرير أي قيمة لها والثانية يتم تمرير قيمة نصية وحيدة لها 
هي عبارة عن اسم العملية أو الملف التنفيذي للتطبيق المراد تشغيله والصيغة الأخيرة يتم تمرير محددين نصيين لها الأول عبارة عن اسم 
العملية أو الملف التنفيذي للتطبيق والمحدد الثاني عبارة عن محددات سطر الأوامر الخاصة بالتطبيق المراد تشغيله. وفيما يلي سرد لأهم 
خصائص الځ ProcessStart| nfo‏ 


كاumenعAr‏ تحمل قيمة نصية تمثل محددات سطر الأوامر للتطبيق الذي نريد تشغيله 
Create N0Wİnd0oW‏ هي قيمة منطقية تشير إلى هل يجب أن يتم تشغيل التطبيق في نافذة جديدة وتكون قيمتها الافتراضية 
False‏ 
Eri‏ وهي عبارة عن قيمة منطقية تحدد وجوب إظهار رسالة خطاً في حالة عدم التمكن من تشغيل العملية 
ه Nm‏ |۴ وهي قيمة نصية تحدد اسم ملف البرنامج أو الوثيقة التي سيتم تشغيلها 
serProfi|eلadها‏ وهي قيمة منطقية تحدد فيما إذا كان يجب أن يتم تحميل التشكيل الجانبي للمستخدم من سجل النظام 
ه لا swoءهP‏ وهي سلسلة نصية تحوي على كلمة السر المستخدمة لبدء العملية 
serNameل‏ وهي قيمة نصية تحوي اسم المستخدم المستخدم لبدء العملية 
Execute‏ |ااheكseلJ‏ وهي قيمة منطقية تحدد فيما إذا كان سيتم استخدام قشرة النظام اامطك Systm‏ لبدء العملية وقيمتها 
الافتراضیة مں٣آ‏ 
۷۲M ٠‏ وهي قيمة نصية تحدد العمل الذي سيتم تنفيذه عند بدء العملية والقيمة الافتراضية سلسلة نصية فارغة وفي حالة كونها 
فارغة يتم تنفيذ العمل الافتراضي المرتبط بذلك الملف 
٠‏ كطاVe‏ وهي عبارة عن مصفوفة قيم نصية تشكل قائمة بالأعمال المرتبطة مع الملف المحدد في الخاصية عه ما۴ 
leاWindowSty‏ وهي تحمل قيمة e‏ |ا5†y‏ س0ل WİinءءeعهPr‏ تحدد كيف سيتم إظهار النافذة ويكون لها إحدى القيم ا٣۲٠"‏ أو 
Maximized yÎ Minimized ڃİ Hidden‏ 
WorkingDirectory‏ وهي سلسلة نصية تتضمن مسار مجلد العمل الخاص بالتطبيق الذي سيتم تشغيله 
ويمكنك الإطلاع على باقي خصائص الفئة ۴0" |†5†2۲ءوععهإP‏ من مكتبة 55١‏ المرفقة مع فيجول ستوديو أو من موقع 505١‏ الخاص 
بمایکروسوفت 


wlتخدlم Process.Start ga ProcessStartInfo‏ عمليا 
لطباعة مستند نصي مثلا إلى الطابعة يمكننا استخدام الكود التالي الذي نحدد فيه الخاصية ع۳ ه١١‏ ء|ا۴ إلى اسم ملف نصي متواجد في مكان 
ما على القرص ونحدد الخاصية طإه۷ إلى القيمة زم" ثم نستدعي ٣‏ ه†ss.SهعPro‏ 


Dim Psi As New ProcessStartInfo 


With Psi 
.FileName = "D:\Temp\UNTITLED. TXT" 
.Verb = "print" 

End With 


Process.Start (Psi) 

ولإظهار الأعمال المرتبطة بهذا الملف 
For Each ve In Psi.Verbs‏ 
MsgBox (ve.ToString)‏ 


Next 
كما‎ 06٤6١ ولفتح الملف عوضا عن طباعته نغير قيمة الخاصية ط١إع۷ في الكود السابق إلى‎ 
پلي‎ 
Dim Psi As New ProcessStartInfo 
WIEh PSi 
.FileName = "D:\Temp\UNTITLED. TXT" 
.verb = "open" 
ERQ WIER 


Process.Start (Psi) 


ولفتح ملق نصي باستخدام المفكرة وجعل تافذة المقكزة في وضع التكبير تستخدم الكود 


التتالي 
Dim Psi As New ProcessStartInfo‏ 
With Psi‏ 
.FileName = "Notepad.exe"‏ 
.Arguments = "D:\Temp\UNTITLED. TXT"‏ 
.WindowStyle = ProcessWindowStyle.Maximized‏ 
ERG Wit‏ 
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Process.Start (Psi) 

حيث حددنا اسم الملف التنفيذي للتطبيق - المفكرة هنا - في الخاصية 8٣٠‏ ١١ء|ز۴‏ وحددنا اسم الملف الذي نريد فتحه في الخاصية 
ئ٤enصuعAr‏ الخاصة بمحددات سطر الأوامر للتطبيق المذكور اسمه في الخاصية ع2١١‏ ء|۴ ثم حددنا أن المفكرة يجب أن يتم تشغيلها في 
وضع تكبير النافذة للحد الأقصى وذلك بضبط الخاصية عارك س Wi‏ إلى القيمة Maximized‏ .leاProcessWindowSty‏ ثم قمنا ببدء 
التطبيق - المفكرة - وذلك باستدعاء الوظيفة ا2†؟5.ءءعع ۴٣١‏ ممررا لها محددا وحيدا هو وم الذي عرفناه من النوع ProcessStartlnfo‏ 


رفا لى مقال آخر فد يبر قا فاد ولكن يمكن شرخه سهرتة باستكا المططو مات الوا رند ها فة دار بتي ومين أحه الإأكرة قاش حرل 
بناء الملف التنفيذي للمشروع دون الاعتماد على بيئة التطوير وكان الحل هو باستخدام الأمر ل|اأ 058 الذي يأتي مع الفريموورك وهذا 
الأمر له العديد من محددات بدء التشغيل ونريد أن نقوم بالتنفيذ بشكل مخفي ثم نقوم بإظهار ملف نتيجة عملية البناء بعد إنتهائها وهذا هو 
لكود مدعما ببعض التعليقات باللغة العربية 


' جلب مجلد الويندوز‎ 
Dim windir = System.Environment.ExpandEnvironmentVariables ("SSYSTEMROOTS") 


تخديك فمخغير سمغلومات ابكة قشي االخهااة .' 

Dim pri As New ProcessStartInfo 

With pri 
"' تخدنة جلك العمل‎ 
.WorkingDirectory = "D:\Temp\DisksArchive" 
"` تخدد. الام الت توف تتف‎ 
.FileName = windir & "\Microsoft.NET\Framework\v3. 5\MSBuild. exe" 
' تحديد محدد ات سطر الأوام من إنشاء ملف بالنتيجة وتحديد اسم المشروع الذي ستتم ترجمته‎ 
.Arguments = "/1:FileLogger,Microsoft.Build.Engine;logfile=ActivityLog.txt DisksArchive.sln" 
"° تعدية. أن خافدة االتشكيل استكون مفية كي لأيزى االمستخدةم فافاة الكوفسول‎ 
.WindowStyle = ProcessWindowStyle.Hidden 

End With 


' العملية‎ EEE 

Dim pr = Process.Start (pri) 

فقظااز االتعمكة حى امكتمل تاها ورج " 

pr.WaitForExit () 

' االنطفخكدد اق كي قظهر ملف االتنانج‎ EEE 

WIE BEL 

تخدذيك أن اتجرفامج الكىن سيتفة هو االمفكرة ' 
.FileName = Environment .SystemDirectory & "\notepad.exe"‏ 
تحديد اسم االغلكف اللاي اتون اكك ' 


.Arguments = "ActivityLog.txt" 
' تحديد أن النافذة يجب أن تظهر بالوضع الطبيعي‎ 
.WindowStyle = ProcessWindowStyle.Normal 

End With 


"٠: بدء تشغ اة‎ 
Process.Start (pri) 


النقطة الوحيدة في هذا الكود الغير مشروحة هنا هو أن الوظيفة ا٣ها؟.ءوعع‏ ه٣"‏ عند نجاحها في بدء تشغيل العملية تعيد قيمة من النوع 
Syst em.Diagnostics. Process‏ حيث نضع هذه القيمة في متغير يمكننا من الاستفادة من خصائص الفئة ووعع هم٣۴‏ المعادة وهنا استخدمنا 
الوظيفة ٠۲×‏ ۴ج۷ التي توقف تنفيذ الكود حتى تنتهي العملية من التنفيذ وتخرج وبعدها يتم معاودة تنفيذ باقي أسطر الكود كما يمكننا 
الاستفادة من العديد من الخصائص الأخرى للفئة وومع ه۴ متل مل ه٤†|×ع‏ التي تعيد القيمة المعادة من العملية عند انتهائها 


إذا أردنا فتح موقع على الويب باستخدام المتصفح الافتراضي 
باستخدام 2٣٤‏ اء.ءوععه۴۲ يمكننا عمل ذلك مباشرة 
Process.Start ("www.aya.sy")‏ 


وبطريڌة ProcessStartlnfo‏ 
Process.Start (New ProcessStartInfo ("www.aya.sy") )‏ 
والسبب في ذلك أن الوظيفة ٤5†2.ءوعع‏ ه٣۴‏ ذكية بحيث يمكنها تشغيل أي ملف - وثيقة وورد متلا أو عنوان موقع انترنت باستخدام البرنامج 


الافتراضي المرتبط به مباشرة فلكي نقوم بفتح ملف »عه مثلا باستخدام البرنامج الافتراضي المرتبطة به وهو في هذه الحالة 2007 إW0۴‏ 
يكفي أن نمرر اسم الملف مع المسار الكامل له 


Process.Start ("C:\Users\SamerSelo\Documents\ ةcgiiمn‎ قاlبıطÎ‎ .docx") 
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إذا أردنا إرسال بريد الكتروني لبريد ما مثلا إئ.ةره@ "۴٠١‏ يمكننا عمل ذلك أيضا باستخدام ١5†2۲.ءءعء ٥٣٠‏ الذي يفتح لنا محرر البريد 
الالكتروني الافتراضي عند تمرير عنوان البريد الالكتروني لتلك الوظيفة مثال 


Process.Start ("mailto:info@aya.sy") 
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الأصوات في مہ. ۷8 


قبل فيجول ستوديو 2005 كانت عملية إضافة أبسط الأصوات إلى برنامجك تعتبر تحديا نوعا ما ولكن تمت إضافة مجموعة هائلة من الفئات 
ومجالات الأسماء في الفريموورك 2 وبعضها سيساعدك في عمل ذلك وسوف أقوم بنظرة على المجال Syst". ed¡a‏ في هذا الموضوع 
لإطلاق صوت الصافرة معط سنحتاج لاستخدام الفئة ds‏ ٬ںم؟"م†ءر؟‏ والتي لھا خمس خصائص nleة Asterisk, Beep,‏ 


Exclamation, Hand, Question‏ کل من ھذہ الخصائص یقوم بعرض غرض ٤٥٤۲‏ عزطہ یعود إلی لہ ں‌ہ؟٣عاءر؟‏ ويعرض إجرائية 
وجا٣لجعل‏ الكمبيوتر يصدر ذلك الصوت ولتشغيل صوت م٥٥ط‏ الخاص بالنظام نستخدم 


System.Media.SystemSounds. Beep.Play 


والشئ الجميل في ولم uاه؟5‏ "ع ءرك هو أنه عندما يقوم مستخدم النظام بتغيير أصوات النظام فهذا سينعكس على برنامجك فورا فعلى سبيل 
المتال عندما تريد عرض صندوق الرسائل MessageBox‏ يمكنك تشغیل صوت النظام المناسب ليصاحبه وذلك حتى تلفت انتباه مستخدم 
تطبيقك لمحتويات الرسالة 


System.Media.SystemSounds.Exclamation.Play () 
MessageBox.Show ("Visual Basic!", "Advanced Basics", 


MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 


تشغيل الأصوات يبدو مفيدا ولكن هناك المزيد فعندما تريد عرض أصوات معقدة أكثر ففي هألع .١٠ع‏ اءر؟ ستجد الفئة SoundP|layer‏ 

التي تقوم بتشغيل ملف ۷۸۷ وذلك من أماكن مختلفة كملف على القرص الصلب أو موقع إنترنت أو حتى مصادر مضمنة ضمن م×ع 

البرنامج. وأول خطوة تقوم بها هي تحميل الملف فإذا كنت تقوم بتشغيله من ملف أو من موقع انترنت يجب عليك القيام بتحميله أولا أما عندما 
تريد تشغيله من مصادر مضمنة فإجرائية التشغيل ستقوم بتحميله بالنيابة عنك إن لم تقم بتحميله أولا وبهذا يكون لديك مجال كبير من المرونة 
للتشغيل المتزامن أو غير المتزامن 
فعندما تريد تشغيل ملف ۷جس بوقت قريب لوقت التشغيل ولا تستطيع ضمان اكتمال التحميل بوقت تشغيل الإجراء رجام عندها يجب عليك 
اختيار التشغيل المتزامن وسيئته هو أنك سوف تمنع استكمال تنفيذ التطبيق في ذلك المسار 4ه٠۸۲ع‏ حتى انتهاء التحميل والتشغيل غير 
التر امن قغال, خاسة عا قرم اسيل من ضكر يئ ثل عذر ان انت رفك اد والملف كير رعا ما ها يجب غلك انكام لتحيل 
الغير متزامن الذي سيسمح لبرنامجك باستكمال التنفيذ بنفس الوقت الذي يقوم فيه بتحميل الملف وسوف يتم إعلامك بانتهاء التحميل بإطلاق 
الحدث لعاءام" ه٤4‏ هم1 وذلك في حالة رغبتك بإجراء معالجة إضافية أو إجراء أي عمل آخر بالإضافة إلى ذلك يمكنك استخدام الخاصية 
etedاc0omp a4‏ اءافي أي وقت للتحقق من حالة التحميل ويمكن أن يبدو كودك في حالة التحميل الغير متزامن كالكود التالي 


Dim Player As New SoundPlayer 
Player.SoundLocation = "C:\Program Files\Messenger\newemail.Wav" 
Player.LoadAsync () 


الآن أنت جاهز لتشغيل ملف ۷جس وهنا أيضا لديك الخيار بالتشغيل المتزامن أو الغير متزامن تماما كالتحميل. فالتشغيل المتزامن يجبر 
مستخدم تطبيقك على الاستماع للملف كاملا قبل أن يكمل التطبيق مسار تنفيذه ولن تضطر للقلق عبر أي تدخل لكود أو مستخدم في ذلك الوقت 
فعندما يكون طول ملفك ثانية أو اثنتين لن يشكل ذلك مشكلة ولكن أي زمن أطول من ذلك سيسبب اختناقا للتطبيق وسوف يشكك المستخدم في 
جدوى التطبيق وفي الواقع الإجراء رها۲.۴عرها۵۲۴" ده سيقوم بتشغيل الملف بشكل غير متزامن حتى لا يعيق تنفيذ برنامجك 
Dim Player As New SoundPlayer‏ 


Player.SoundLocation = "C:\Program Files\Messenger\newemail.Wav" 
Player.LoadAsync () 


If Player.IsLoadCompleted Then Player.Play() 


وإذا رغبت في التشغيل المتزامن ستضطر لاستدعاء الاجراء ٤‏ ر؟رها۲.۴عرها٣لمuه؟‏ ولكن هذا سيبطئ تنفيذ برنامج بشكل كبير أثثاء 
تشغيل الملف وإذا رغبت في أن يستمر تشغيل الملف حتى يقوم المستخدم بضغط زر ما أو حتى تنتهي من عملية برمجية معينة عندها 
ستستدعي الإجرائية ع" امهم ]رهام فستقوم الفريموورك بتشغيل الملف بشكل مستمر بشكل غير متزامن حتى تقوم باستدعاء الإجرائية 
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Sound Player .Stop‏ !ذا قمنا بإلقاء نظرة على المجال My‏ في الفريموورك سنجد أن جمیع ما تمت مناقشته حتى الآن موجود ضمر 
puter. Audio‏ Ny.comفلتشغیل‏ ملف یمکنك استخدام 


My.Computer.Audio.Play ("C:\Program Files\Messenger\newemail.Wav") 


ولا حاجة للقلق حول إنشاء غرض اء e‌زطاه‏ ل ayerاundPهك‏ أو التحميل من مسار إنترنت أو ملف ... الخ 
إذا لماذا قمنا بكتابة كود أكثر بهذا الشكل؟ بالإضافة إلى تعلم كيفية إجراء ذلك ضمن الفريموورك سوف تحتاج للعمل مع الفئة 
Sound Player‏ !ذا کنت ستحتاج للتعامل مع أي من الأحداث الثلاثة التي تطلقها تلك الفئة 


أولا الحدث لع†عام "ه٤4‏ هه] الذي ذكرناه سابقا سوف يطلق في نهاية التحميل الغير متزامن للملف فإذا كنت تحمل من عنوان انترنت أو 
ملف ستجد انه هذا الحدث هام جدا لالتقاطه وسوف تتحقق من محددات الحدت للتحقق من اكتمال التحميل بنجاح 


Private Sub Player LoadCompleted (ByVal sender As Object, _ 
ByVal e As ComponentModel.AsyncCompletedEventArgs) 


Handles Player.LoadCompleted 
If e.Error IsNot Nothing Then 

' Handle error 

islLoaded = False 


Else 


isLoaded = True 
End If 
End Sub 


و الحدث Sound اocatio ¬2 ged‏ سوف یتم إطلاقه عندما یتم ربط مصدر صوتي جدید ل e۲‏ yھا‏ ٣4ہ‏ ںه؟ عندها کي تقوم بما ترغب 
كتحميل الملف الجديد بشكل غير متزامن أو إيقاف تشغيل الملف الحالي أو القيام بأي عمل آخر يحتاجه تطبيقك والحدث الأخير الهام هو 
Changed‏ streamو‏ هو مشابه للحدث السابق ولكنه مفيد بشكل خاص عندما تقوم بتحميل الملف من الذاكرة أو ملف على القرص 

or FileStream‏ MemoryStreamو!إذا‏ رغبت في القيام بأكثر من تشغيل ملف ۷جس عندها ستضطر للخروج خارج الفريموورك وأحد 
الخيارات هو اللجوء إلى rعP|ay Windows Media‏ وبتحمیل Windows Media Player SD)‏ مجانا من موقع مایکروسوفت یمکنك 
عندها تشغيل تقريبا أي صيغة ملف وببنية بسرهيلة مشابهة للمجال iaلع‏ ۸.۷ ءاءرS‏ ستجد أن التعامJ Windows Media Player ga‏ 
سهلا للغاية فمثلا يمكنك استخدام كود شبيه بالتالي لتشغيل أي ملف يمكن تشغيله بواسطة rءعرها۴ Nedi‏ sس‏ لہا۷ وذلك بعد تنصيیب 
المكتة المذكرز ةر (ضافة المزحح المناست لها في برتامجك 


Dim WMP As New WMPLib.WindowsMediaPlayer 
WMP.URL = "C:\My Music\Funky Cold Medina.wma" 
WMP.controls.play () 


أصبح لديك الآن ثلاثة طرق لإضافة الأصوات إلى برنامجك الأولى باستخدام مجال الأسماء الجديد هالم۷."ءع†ءرك من أو استخدام 


المجال 1۷ الجديد الخاص بفيجول بايزيك من أجل تشغیل ملفات ۸۷“ أو استخدام Windows Media P| ayer‏ لدعم جمیع انواع صیغ 
الملفات 
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إدخال وإخراج الأقراص القابلة lأjiع‏ برaجlı Eject/Load Removable Media‏ 


يمكن ذلك باستخدام الكود التالي 


File Lib "kernel32" Alias "CreateFileA" | 
ByVal dwDesiredAccess As Integer, _ 

ByRef lpSecurityAttributes As Long, _ 
ByVal dwFlagsAndAttributes _ 
le As Integer) As Integer 
"kernel32" (ByVal hDevice As _ 
ByRef l1lpInBuffer As Object, 


IoControl Lib 
e As Integer, 


r, ByRef lpOutBuffer As Object, ByVal _ 
Ref lpBytesReturned As Integer, ByRef _ 
teger 

andle Lib "kernel32" (ByVal hObject _ 
LUE As Short = -1 

Short = 3 

ON_ CLOSE As Integer = 67108864 

nteger = &H80000000 

Integer = &H40000000 

CT MEDIA As Integer = 2967560 

D_ MEDIA As Integer = 2967564 

D_MEDIA2Z As Integer = 2951180 

OCTL As Short = 1 


letter to the sub 
EjectDrive As String) 


pass the driv 


tes As Integer 


String 

interpretation 

(Left (EjectDrive & ":", 2)) 

& DriveLletterAndColon, GENERIC READ Or _ 
__WRITE, 0, O0, OPEN_EXISTING, 0; 0) 

ı_ VALUE Then 

rive, IOCTL_ STORAGE _ EJECT MEDIA, 0, 0, O, 


DummyReturnedBytes, 0) 


) 


"Clean up after ourselves 


Letter to the sub 
EjectDrive As String) 


pass the driv 


Les As Integer 


102 


Public Module EjectLlLoadRemovable 

Private Declare Function Create 
(ByVal l1lpFileName As String, 
ByVal dwShareMode As Integer, 


ByVal dwCreationDisposition As Integer, 


As Integer, ByVal hTemplateFri 
Private Declare Function Device 
ByVal dwloControlCod 
ByVal nInBufferSize As Intege 
nOutBufferSize As Integer, By 
As In 


Integer, 


1lpOverlapped As Object) 


Private Declare Function CloseH 


As Integer) As Integer 


Private Const INVALID HANDLE _VA 
Private Const OPEN EXISTING As 

Private Const FILE _ FLAG DELETE | 
Private Const GENERIC _ READ As 1I 
Private Const GENERIC _ WRITE As 

Private Const IOCTL STORAGE _EJE 
Private Const IOCTL STORAGE _LOA 
Private Const IOCTL STORAGE _LOA 
Private Const VWIN3Z2_DIOC DOS_I 
' To Eject Removable media just 
Public Sub EjectRemovable (ByVal 


Dim hDrive, DummyReturnedBy 


Dim DriveLlLetterAndColon As 
"Make it all caps for easy 
DriveLlLetterAndColon = UCas 
hDrive = CreateFile ("\\.\" 
GENERIC 
If hDrive <> INVALID HANDLE 
"Eject media! 
Call DeviceloControl (hD 


0, 


Call CloseHandle (hDrive 
End If 


End Sub 


' To Load Removable media just 


Public Sub LoadRemovable (ByVal 
DummyReturnedBy 


Dim hDrive, 


Dim DriveLletterAndColon As String 


"Make it all caps for easy interpretation 

DriveLletterAndColon = UCase (Left (EjectDrive & ":", 2)) 

hDrive = CreateFile("\\.\" & DriveletterAndColon, GENERIC READ Or _ 
GENERIC WRITE, 0, 0, OPEN EXISTING, 0, 0) 


If hDrive <> INVALID HANDLE VALUE Then 

"Eject media! 

Call DeviceloControl (hDrive, IOCTL STORAGE _ LOAD MEDIA, 0, 0, 0, 
0, DummyReturnedBytes, 0) 


3 


Call CloseHandle (hDrive) 'Clean up after ourselves 
End If 
End Sub 


End Module 


وهذا مثال عن الاستخدام 
EjectRemovable ("h:\")‏ 


LoadRemovable ("h:\") 


وهذه طريقة أخر٦ی‏ بlستخدlم mciSendStri1g‏ 


Module EjectLlLoadUsingMCI 


<DllImport ("winmm", EntryPoint:="mciSendStringA")> _ 
Private Sub mciSendString (ByVal lpszCommand As String, _ 
ByVal lpszReturnString As String, ByVal cchReturnLength As Integer, 
ByVal hwndCallback As Integer) 


End Sub 


Public Sub OpenCDDoor (ByVal Drive As String) 


mciSendString ("open cdaudio!" & Drive, "", 0, 0) 
mciSendString ("Set " & Drive & " door open wait", "", 0, 0) 
End Sub 


Public Sub CloseCDDoor (ByVal drive As String) 


mciSendString ("open cdaudio!" & drive, "", 0, 0) 
mciSendString ("Set " & drive & " door closed wait", "", 0, 0) 
End Sub 


End Module 


ولكن تتميز الطريقة الأولى عن الثانية بأنها صالحة لجميع أنواع الأقراص القابلة للنزع ماج ۷ه #٠‏ بينما الطريقة الثانية صالحة للأقراص 
من النوع C0۸٥‏ فقط كما أنه عند استخدام الطريقة الثانية لا يعود بإمكانك برمجيا فتح وإغلاق باب السواقة إلا باستخدام نفس الطريقة 
حتى تعيد إقلاع الجهاز 
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مراقبة نظام الملفات - تكم FileSystem Watcher‏ 


توفر لك الأداة عط اةW‏ "ع اءركه ا۴ إمكانية مراقبة مجلد أو شجرة مجلدات بحيث تحصل على تنبيهات عندما يحصل أي شئ بداخلها 
فمثلا عندما يتم إنشاء أو حذف أو إعادة تسمية مجلد أو ملف أو عندما تتغير خصائص مجلد ما حيث تعتبر هذه الأداة ذات فائدة في العديد من 
الظروف فإذا كنت تقوم بعمل برنامج يقوم بتشفير الملفات آليا عندما يتم تخزينها في مجلد معين فبدون هذه الأداة سيتوجب عليك استطلاع 
ذلك المجلد على فترات زمنية محددة - عادة باستخدام ال ٣|"‏ - ولكن هذه الأداة تسهل عليك هذا الأمر. وممكن أن تكون هذه الأداة مفيدة 
عندما تقوم بتخزين ملف بيانات في الذاكرة لتسهيل الوصول إليه بسرعة ولكنك تحتاج لإعادة تحميله في الذاكرة إذا قام برنامج آخر بتغيير 
محتویاته. 


تعريف FileSystem Watcher pill‏ 
يمكنك إنشاء التحكم W٣٥۲‏ ”مء tءرe5ا۴i‏ بإحدى طريقتين إما عن طريق الكود أو بسحبها من شريط الأدوات إلى النموذج من 
خلال مصمم النماذج ولا يوجد أي اختلاف في الأداء بينهما فيمكنك استخدام أي طريقة تفضلها وإنشاؤه عن طريق الكود يتم بسهولة 


' Use WithEvents to be able to trap events from this object: 
Dim WithEvents fsw As New FileSystemWatcher () 


قبل استخدامك لهذا العنصر عليك أولا تعريف اlخصlئص Pah‏ ,و NotifyFilter s Filter s IncludeSubdirectories‏ 
فالخاصية 1غه" تحدد مسار المجلد الذي ترغب بمراقبته لاحظ أنه سيتم إعلامك بالتغييرات داخل المجلد وليس بالتغييرات على خصائصه 


والخاصية sعنudeSubdirec†0rاcم!‏ یجب ضبطھا إلی ٥ءاھ۴‏ إذا كنت ترغب بإعلامك بالتغییرات داخل ذلك المجلد فقط أو إلى مں٣]‏ إذا 
كنت ترغب بمراقبة كامل لشجرة المجلد بحيث يكون جذرها هو المجلد المحدد بالخاصية ااج" 


والخاصية ۴|٥٣‏ تمكنك من تحديد ما هي الملفات التي تهمك فاستخدام *.* يجعلك تراقب جمیع الملفات بینما استخدام ×.* يجعلك تراقب 
الملفات التي تملك اللاحقة »× فقط والقيمة الافتراضية لهذه الخاصية هي اال وهي تطابق *.* 

والخاصية ١ع†|اİ۴۷۴اهN‏ مرمزة على مستوى البت ل4عله٥ء-أط‏ بحيث يمكنك تحديد تشكيلة من واحد أو أكثر من قيم مرقمة 
Attributes = enumerated‏ ڪ CreationTime‏ ۾ DirectoryName‏ ڪ LastAccess gy FileName‏ ۾ g LastWrite‏ 


Security‏ و Size‏ و القيمة الافتراضية لها هي rite Or FileName Or Directory Name‏ stWهL‏ ففي هذه الحالة لن تتلقی تنبيهات 
عندما غير الخضائضن 


وإليك مثال عن كيفية تعريف تحكم عطعاWa‏ صم tءركeا۴i‏ من أجل التغييرات في شجرة المجلد sس0لمWiİ|:٥C‏ 


Dim WithEvents fsw As New FileSystemWatcher () 


fSwW.Path. = "e:\windows"™ 


fsw.IncludeSubdirectories = Tru ' Watch subdirectories. 
fsw.Filter = "*.dll" " Watch ONLY DEL files: 


' Add attribute changes to the list of changes that can fire events. 
fsw.NotifyFilter = fsw.NotifyFilter Or NotifyFilters.Attributes 

' Enable event notification. 

fsw.EnableRaisingEvents = True 


الحصول على التنبيهات 
بعد أن تكون قد عرفت هذا العنصر بصورة صحيحة ستحصل على التنبيها ت فور حدوث أي شئ حيث يمكذك تفعيل ذلك بمعالجة 
الأحداث أو باستخدام الطريقة WaitForChange‏ 
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وأبسط طريقة للحصول على التنبيهات من ١عطعاةW ٠‏ عاءركء|ن۴ هي بكتابة معالجات للأحداث الخاصة بهذا العنصر ولكن هذه الأحداث 
لن تنطلق حتى تقوم بضبط الخاصية Enable Raising Events‏ إلى عمruا‏ و تستقبل الرأحدlاث Deleted şı Created‏ و hanged‏ المحدد 
EventArgs‏ e5ystemا۴‏ الذي يعرض خاصيتان هامتان "٠‏ ه١‏ اسم الملف الذي وقع عليه الحدث و ۴a1‏ ||ں۴ مسار ذلك الملف الكامل 


PEFIivatêe Sub fSw Created (BYVAL sender As Object, _ 

ByVal e As FileSystemEventArgs) Handles fsw.Created 
Console.WriteLine ("Fi1 created: {0}", e.FullPath) 
EHd. SUB 


Private Sub fsw Deleted (ByVal sender As Object, _ 

ByVal e As FileSystemEventArgs) Handles fsw.Deleted 
Console.WriteLlLine ("File deleted: {0}", e.FullPath) 

EHA SU 


Private Sub fsw Changed (ByVal sender As Object, _ 

ByVal e As FileSystemEventArgs) Handles fsw.Changed 
Console.WriteLine ("Fi1 changed: {0}", e.FullPath) 

ENA Sub 


المحدد وع em ٤۷e nA‏ ystكeا۴i‏ يعرض أيضا خاصية عمرآعع٣ة۸‏ وهي خاصية مرقمة لdعاة۲‏ مع حيث تخبرك بالحدث الذي 
وقع على الملف بحيث يمكنك استخدامها لعمل إجراء معالجة وحيد للأحداث الثلاثة السابقة 


Private SUB. fsw A11 (ByVal sender As Object, ByVal e As FileSsystemEventArgs) 
Handles fsw.Changed, fsw.Created, fsw.Deleted 


Console.WritelLine ("File changed: {0} ({1})", e.FullPath, e.ChangeType) 
BAQA Sib 
يستقبل المحدد‎ Renamed الحدث 4عع هطع لا يستقبل أية معلومات حول نوع التغيير الذي أطلق الحدث والحدث‎ 


amed EventArgs‏ مم الذي یعرض خاصیتان إضافیتان هما ٥‏ ھ 0|۹ الاسم القدیم و ۸ھ ٥اا‏ ں۴ ا0 المسار الکامل القدیم 


Private Sub fsw_ Renamed (ByVal sender As Object, ByVal As RenamedEventArgs) 
Handles fsw.Renamed 
Console.WriteLine ("Fi1 renamed: {0} => {1}", e.OldFullPath, e.FullPath) 
ENQA SUB 


ويمكن أن يكون لديك أكثر من ١٥۸ء†ةW‏ "ع اءر؟5ء|أ۴ واحد يمكنك معالجة أحداثهم جميعا بنفس إجراء معالجة حدث واحد وعند ذلك 
يمكنك استخدام المحدد الأول ٣عملمءء‏ لمعرفة أي ٣عطع†Wa‏ ”م tءركمان۴‏ أطلق الحدث. 


يطلق ۲٥طc Wa‏ eystemا۴i‏ حدث مستقل لكل حدث يقع على ملف ما فعلى سبيل المثال إذا حذفت 10 ملفات ستتلقى 10 أحداث بحيث 
يكون لكل ملف الحدث الخاص به وكذلك إن قمت بنقل 10 ملفات من مجلد لآخر ستتلقى 10 أحداث حذف و 10 أحداث إنشاء 


WaitForChanged قيرطİلا‎ 

إذا كان برنامجك لا يقوم بعمل أي شئ سوى انتظار التغييرات في مجلد معين أو أنك تقوم بمراقبة تغييرات الملفات من مسار 
ثانوي dary ۲1rd‏ 0ءء يمكنك كتابة كود أبسط وأكثر فاعلية باستخدام الطريقة WaitForChanged‏ وهي ialjîaة synchronous‏ 
أي أنها لا تعود حتى يحدث تغيير ما أو ينتهي الوقت المحدد انمع وعندما تعود هذه الطريقة يستقبل البرنامج النتيجة عبر التركيب 
Wait ForChangedResult Structure‏ الذي تمكنك خصائصه من تحديد فيما إذا انتهت المدة أو أن حدث ما قد وقع واسم الملف المتعلق 
بالحدث 
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' Create a *new* FileSystemWatcher component with values from 

' Eh EREBAN. ad EXÎFLITEEE EOREEOLS:. 

Dim tmpFsw As New FileSystemWatcher (txtPath.Text, txtFilter.Text) 

' Wait max 10 seconds for any file event. 

Dim res As WaitForChangedResult = tmpFsw.WaitForChanged (WatcherChangeTypes.All, 10000) 


' Check whether the operation timed out. 
If res.TimedOut Then 

Console.WritelLine ("10 seconds have elapsed without an event") 
Else 


Console.WritelLine ("Event: {0} ({1}), res.Name, res.ChangeType.ToString () ) 
a En 


الطريقة ١ع‏ ع" ۸٣۴۲اج‏ تراقب فقط التغييرات في المجلد المشار إليه وتتجاهل الخاصية كءع اما 0i‏ udeSubاncا‏ ولھذا السبب 
فالتر كيب WaitForChanged Result Structure‏ يعيد حقل ٠ه"‏ فقط ولا يعيد الحقل ۸ه ۴|اں۴ والمحدد الأول الذي تقوم بتمريره إلى 
الطريقة كع ع۸٣‏ 0۲ ۴ة يمكنك من تحديد نوع العملية التي تريد اعتراضها 


' Pause the application until the c:\temp\temp.dat file is deleted. 
tmpFsw = New FileSystemWatcher ("c:\temp", "temp.dat") 
tmpFsw.WaitForChanged (WatcherChangeTypes. Deleted) 


Buffer Overflows 

يجب عليك إدراك المشاكل المحتملة نتيجة انطلاق العديد من الأحداث خلال فترة قصيرة فالعنصر ۴ileSystem Watcher‏ يستخدم 
٣ط‏ داخلي ليتتبع أفعال نظام الملفات حتى لو كان البرنامج لا يستطيع تخديم تلك الأحداث بالسرعة الكافية وبالوضع الافتراضي يكون 
حجم ال ٣ffeںط‏ هو 8۸8 ويمكنه تخزين حتى 160 حدث فكل حدث يأخذ 16 بايت إضافة ل 2 بايت لكل محرف في اسم الملف وإن كنت 
تتوقع نشاطا أكثر فعليك زيادة حجم ال f٣‏ ںط بضبط الخاصية ع52٠۴۴‏ 8|ه٣٣عام|‏ إلى قيمة أكبر والحجم يجب أن يكون عددا صحيحا 
٣اصععtم|‏ مضروبا بحجم صفحة النظام ( 4۸8 في حالة ويندوز 2000 وما تلاه ) كما يمكنك استخدام الخاصية ١۴۷۴هل‏ لتحديد عدد 
عمليات التغيير التي تطلق الحدث لعع" هطع أو ضبط الخاصية ءعاإم†cمubdirكeهudاcما‏ إلى عءاج۴ إن كنت لا تحتاج لمراقبة شجرة 
المجلد كاملة ) يمكنك استخدام عدةö‏ عناص FileSystem Watcher‏ لمراقبة عدد من المجلدات إن كنت لا تحتاج لمراقبة الشجرة كاملة تحت 
مسار مجلد معين ) ولا يمكنك استخدام الخاصية er‏ t|ن۴‏ لمنع Buffer Overflowing‏ لأنھا تقوم بتصفیتھا بعد أن یتم إضافتھا ل Buff‏ 
وعندما يحدث فيضان في ال ٥۴ط‏ سينطلق حدث خطاً 


Private Sub fsw_ Error (ByVal sender As Object, ByVal e As ErrorEventArgs) 

Handles fsw.Error 

Console.WriteLine ("FileSystemWatcher error: {0}", e.GetException () .Message) 
ER SUB 


فإن لاحظت أن برنامجك بتلقى هذا الحدث فيجب عليك تغيير إستراتيجية معالجة الأحداث لديك فمثلا يمكنك تخزين الأحدث فى صف 
بر : بك تغيير إستر اتيج ي : تخزین في 
مuعںو‏ تم تخدیمھم عبر مسار ۸٣٥۵۵‏ آخر 


معالجة المشاكل 

في الحالة الافتراضية فأحداث ۴ileystem Watcher‏ یتم تنفیذها علی مسار مأخوذ من برکة مسارات النظام ۵4٥إ† System‏ 
امم وبما أن تحكمات ء٣۲٥۴‏ sسهل Wİ‏ ليست أمنة للمسارات ءهء ل ه١٥۸۲‏ امم لذلك يجب أن لا تحاول الوصول إلى أي تحكم أو 
حتى النموذج نفسه من داخل أحداث التحكم ٣عطعاmWمtءركeان۴‏ وإن وجدت هذا التصرف غير مقبول فعليك تمریر تحکم Windows‏ 
Forms‏ للخاصية اbjec‏ 0 Synchronizing‏ كالمثال 


' Use the Form object as the synchronizing object. 
fsw.SynchronizingObject = Me 
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فالكود السابق يتأكد من أن جميع الأحداث يتم تنفيذها بنفس المسار الذي يخدم النموذج نفسه وفي 2005 0ألںا؟ اهاء۷ عندما تستخدم 
مصمم النماذج لإنشاء العنصر pûs FileSystem Watcher‏ ضبط هذه الخاصية تلقائيا للنموذج الذي يضم التحكم 
وفيما يلي بعض الأفكار المفيدة عند التعامل مع التحكم معطا W‏ صم tءركما۴‏ وبعض المشاكل التي قد تحتاج لحلها عندما تقوم باستخدامه 


- يقوم التحكم بالبدء بإطلاق الأحداث عندما تكون الخاصية جم غير فارغة والخاصية ٤v ets‏ leRaisingاnabع‏ مضبوطة إلى rue‏ كما 
يمكنك منعه من إطلاق الأحداث خلال طور التحميل للنموذج بتضمين أوامر التهيئة الخاصة بك بين العبارتينj BeginInit‏ و Endlnit‏ كما 
يفعل مصمم النماذج الخاص بفيجوال ستوديو 

- في بعض الحالات قد تستقبل عدة أحدث إنشاء للملف اعتمادا على الطريقة التي يتم إنشاء الملف بها فمثلا عندما تقوم بإنشاء ملف باستخدام 
المفكرة لجمع†هN‏ ستلاحظ سلسلة من الرأحداث Created s Deleted s Created‏ ڪ Changed‏ 

- التغيير في ملف يولد أيضا حدث إضافي في المجلد الأب أيضا لأن المجلد يحافظ على معلومات حول الملفات الموجودة داخله 


- إذا كان المجلد المحدد كقيمة للخاصية اج۴ تمت إعادة تسميته فإن التحكم ۲عطع†mWaمtءركeا۴i‏ يستمر بالعمل بصورة صحيحة ولكن 
في هذه الحالة يستمر التحكم بإعادة الاسم القديم للمجلد وبالتالي قد تحصل على خطأ عند استخدامه وهذا يحدث بسبب أن التحكم يتعامل مع 
مقبض المجلد الذي لا يتغير بتغيير اسم المجلد 


- إذا أنشأت مجلد ضمن المجلد الذي تتم مراقبته وكانت الخاصية ءعااہ†cمSubdirكمudاcم|‏ مضبوطة على عں٣]‏ فستتم مراقبة المجلد 
الجديد أيضا 


- عندما يتم إنشاء ملف كبير ضمن المجلد فقد لا تستطيع قراءة كامل الملف مباشرة لأنه يكون ما يزال مملوكا من قبل العملية ءوعع ه۴۲ التي 
قامت بكتابة البيانات إلى ذلك الملف ويجب عليك حماية الكتابة إلى الملف الأصلي باستخدام حلقة 1 فإن تم إطلاق خطأ يمكنك محاولة 
العملية بعد بضع ميلي ثانية أخرى 


- عندما يقوم المستخدم بحذف ملف في مجلد فإن ملفا جديدا سيتم إنشاؤه في مجلد سلة المحذوفات ١أ8ءاءرءعR‏ 
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القسم الخامس - الانترنت 


ويضم المواضيع التالية: 

ه إضافة وصلات ويب وبريد الكتروني لنافذتك 

٠‏ الاتصال بالانترنت برمجيا 

کیف نستخدم My. c0mputer.N ew ork)‏ لرفع وتحمیل ملفات في اھںوا۷ 
Basic 2005‏ 
منع تغيير الصفحة الافتراضية للاإنترنت إكسبلورر و تغييرها برمجيا 
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LinkLabel öادأJا‎ 


إضافة وصلات ویب وبرید الكتروني لنافذتك 


تمكنك هذه الأداة من إضافة وصلات ويب لمشروعك كما يمكنك تحديد وصلة أو أكثر ضمن النص الظاهر فيه 


ضع اع ط ها )ما على النافذة حتى نقوم بالتجريب 

اضبط الخاصية ۲٠×‏ ل امطةا)” ذا إلى أي عنوان موقع مثلا ص0ء.2000"ه٠1طهه.‏ سسس تم انتقل إلى محرر الكود وفي 
الخاصية ما٣‏ )نا للتحكم اعمطها)مi]ا‏ اكتب الكود التالي حيث استخدمنا اآه†ك.وومعممم بالصيغة 
)Str1"8(‏ cess.StartهPr‏ التي تقوم بتشغيل برنامج أو وثيقة حسب السلسلة النصية الممررة لها لفتح الموقع المراد 


Process.Start (Me.LinkLabel1.Text) 


ولتحديد وصلة لإرسال بريد الكتروني اضبط الخاصية »×16 إلى أي عنوان بريد الكتروني تريد مثلا 
someone @ yahoo.com‏ وعدل الکود السابق إلى 


Process.Start ("mailto:" & Me.LinkLabel1.Text) 


كما يمكن إضافة العديد من الوصلات في نفس التحكم وذلك بجعل القيمتان ۲جك و ۸†عمم] المرتبطتين بالخاصية ۵ع ۸ )١اا‏ 
إلى الصفر وإضافة الوصلات إلى الخاصية ء)م أا برمجيا حيث نستخدم الطريقة ۸4 للخاصية ء)ہ ذا للتحكم LinkLabe|‏ 
لإضافة الوصلات للتحكم حيث تملك الطريقة ١ه‏ ثلاث طرائق كعك ههام0۷ وهي 

ه إضافة وصلة من gi‏ ع LinkLabel.Link‏ 


LinkLabel.Links.Add (LinkLabel.Link )‏ 
ه إضافة وصلة بتحديد مجال محارف من النص الظاهر في التحكم 
LinkLabel.Links.Add (Int32, Int32)‏ 
ه إضافة وصلة بتحديد مجال محارف من النص الظاهر في التحكم كاسم للوصلة وتمرير عنوان الوصلة كمتغير زا0 
LinkLabel.Links.Add (Int32, Int32, Object)‏ 


اضبط الخاصية t×ع†‏ للتحكم Length y Start pall zض›ز ڪs Try at Yahoo or at Arab team or Email me Jl‏ 
المرتبطتين بالخاصية A۲٥٠۵‏ )ما كلاهما إلى الصفر ثم في الحدث جما للنموذج دص ضع الكود التالي حيث استخدمنا الصيغة 
الأخيرة للطريقة كك۸ 


With Me.LinkLabel1 

.Links.Add(7, 5, "wwuww.yahoo.com") 
.Links.Add(19, 9, "www.arabteam2000.com") 
.Links.Add(32, 8, "mailto:someone@dyahoo.com™) 
End With 


الآن لتشغیل کل وصلة عند النقر علیھا غير الکود الموجود ضمن الحدث 4ع )زا٣‏ )ہا للتحکم اعمط ھا)ہذا إلى 


Dim Url As String = CStr(e.Link.LinkData) 
Process.Start (Url) 


وهنا لم نعد نستخدم الخاصية ٠٥×‏ للتحكم كما فعلنا في المثال الأول بل نستخدم خصائص المحدد م الذي هو من النوع 
Clicked EventArgs‏ kinkااebeاinkا‏ للحصول على عنوان الموقع أو البريد الالكتروني الذي نريده وذلك من خلال الخاصية 
t2‏ ink.Linkا.e‏ التي هي من النوع اء عزط0 حيث نقوم بتحويلها إلى ع”آ٣)؟‏ قبل تمرير ها لوظيفة ٤ه†ء.ءوعع‏ ه٣۴‏ كقيمة نصية 
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الاتصال بالانترنت برمجيا 


تأسيس الاتصال بالانترنت 
لتأسیںس الاتصال بالانترنت نستخدم الدالة اهلها "۲٠٣١٥۲۸ u‏ | وذلك لتأسيس الاتصال باستخدام الاتصال الافتراضي للويندوز ويكون 
تعريفها كالتالي: 


PEivate Declare AûE0 FUDCELON: LIAEEENEEAUtEOIALAL, LAB "WIRINEEZOLL™ 
(ByVal dwFlags As Long, ByVal hwndParent As Integer) As Boolean 


حيث يمكن للمحدد عه ا۴س أن يحمل إحدى القيم التالية: 


Private Const INTERNET AUTODIAL FORCE_ONLINE = 1 
Private Const INTERNET AUTODIAL FORCE _ UNATTENDED = 2 
Private Const INTERNET AUTODIAL FAILIFSECURITYCHECK = 4 
Private Const INTERNET AUTODIAL OVERRIDE NET PRESENT = 8 
وهذا مثال عن استخدام الدالة“‎ 

If InternetAutodial (0, Me.Handle.ToInt32) Then 

MsgBox ("Internet is connected Now", MsgBoxStyle.Exclamation) 
Else 

MsgBox ("Internet is not connected Now", MsgBoxStyle.Critical) 
ENQA. TE 


قطع الاتصال بالانترنت 
لقطع الاتصال بالانترنت نستخدم إحدى الدالتين |nternetAutodia|H1angup(‏ و nternetHangupا)‏ حیث یکون تعریفهما کالتالي: 


PEiVaEê. Declare AQEG FUNCELON IAEEENEEAUEOALALHaANGUPD: Bb "WiBIREEQALL™ _ 
(ByVal dwReserved As Long) As Boolean 


EPEAVatê UéGLlartes AUG FUNStELOR IhternetHanNgUp LAB TMINIREE.QALL™T 
(ByVal dwConnection As Long, ByVal dwReserved As Long) As Boolean 


حيث يكون المحدد لع عء٥R‏ سه في كلتا الدالتين مساويا للصفر والبارمتر ١٥ا†ءم"‏ هسه في الدالة الثانية يحمل رقم الاتصال الذي 
نرید قطعه 


معرفة خصائص الاتصال 


يمكن معرفة العديد من خصائص الاتصال الحالي بالانترنت عن طريق الدالة ×ع 
يكون كالتالي: 


]nternetGetConnectedStat‏ وتعريفھا 


PFFIvVatê Deolğrêé FUnGEion InternetGetConnectéêdStateEx. Lib "wininetzdll™ 
(ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _ 
ByVal dwNameLlen As Integer, ByVal dwReserved As Long) As Boolean 


والمحدد lpdwFlags‏ يحمل قيمة معادة بواحدة أو أكثر من القيم التالية: 


Private Const INTERNET CONNECTION MODEM = &H1 
Private Const INTERNET CONNECTION_LAN = &H2 

Private Const INTERNET CONNECTION_ PROXY = &sH4 
PFivatê CORSE INTERNET CONNECTION MODEM BUSY = sH8 
Private Const INTERNET RAS INSTALLED = &H10 

Private Const INTERNET CONNECTION OFFLINE = &H20 
Private Const INTERNET CONNECTION CONFIGURED = sH40 
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و بافتراض أنه لديك نافذة عليها زر أوامر و ثلاثة صناديق نصوص وصندوق قائمة إليك سرد لحدت الضغط على الزر الذي سيقوم بإظهار 
معلومات الاتصال: 


PFivaté SUB Buttonl Click (ByVal sender As System. Objecty _ 
ByVal e As System.EventArgs) Handles Button1.Click 


ListBox1.Items.Clear () 


mn 


PY 


Dim sConnType As String = Space (256) 
Dim Ret As Long 


TextBox1.Text = InternetGetConnectedStateEx (Ret, sConnType, 
sConnType.Length, 0) 


If Ret And INTERNET CONNECTION MODEM THER 
ListBox1. Items. Add ("MODE 


If Ret And INTERNET CONNECTION_ LAN Then 
ListBox1. Items. Add ("LAN") 


tz 
Û 


If Ret And INTERNET CONNECTION _ CONFIGURI] "hen 


ListBox1. Items. Add ("CONFIGURED") 


If Ret And INTERNET CONNECTION MODEM BUSY Then 
ListBox1. Items. Add ("MODEM BUSY") 


If Ret And INTERNET CONNECTION OFFLINE Then 
ListBox1.Items.AQdd ("OFFLINE") 


If Ret And INTERNET CONNECTION PROXY Then 


ListBox1. Items. Add ("PROXY") 


If Ret And INTERNET RAS INSTALLED Then 
ListBox1.Items.AQdd ("RAS INSTALLED") 
ERI: TÊ 


TextBox2.Text = Hex (Ret) 
TextBox3.Text = sConnType 
Catch ex As Exception 
MsgBox (ex.Message) 
ERE TEY 
EA SUB 


طريقة أخرى لمعرفة هل يوجد اتصال أم لا 
يمكنك استخدام الاجرائية التالية: 


Public Function IsConnectionAvailable() As Boolean 
' Returns True if connection is available 
' Replace www.yoursite.com with a site that 
' is guaranteed to be online - perhaps your 
" COFDOEAEê SLCey, OF MLCEOSOfEE COM 
Dim objUrl As New System.Uri ("http://www.yoursite.com/") 
' Setup WebRequest 
Dim objWebReq As System.Net.WebRequest 
objWebReq = System.Net.WebRequest.Create (objUrl) 
Dim objResp As System.Net.WebRespons 
TEY 


' Attempt to get response and return True 
objResp = objWebReq.GetRespons 
objResp.Close () 

objWebReq = Nothing 
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REEUER TES 
Catch ex As Exception 
' Error, exit and return False 
objResp.Close () 
objWebReq = Nothing 
Return False 
End TEY 
ERG FURGE LON 


112 


کیف نستخدم My.c0mputer.Ne†w ork‏ لرفع وتحمیل ملفات في ھ8 [ھuء۷i‏ 


2005 
موجز 
تعلم كيفية استخدام Ny.c0mputer. Network‏ لرفع وتحميل الملفات ضمن شبكة في فيجول بايزيك 2005. وهذا المثال 


يحتوي علی مثال کود بالخطوات يريك کیف یقوم W 0٣k‏ .۲ع My.)٥0 put‏ بهذه المهمات 


ېه 


نشدیم 

هذا المقال يصف كيفية استخدام Ny.computer.Network‏ لرفع وتحمیل الملفات عبر شبکة باستخدام فیجول بایزیك 
5وباستخدامه يمكنك نقل الملفات من مصادر شبكة بعيدة للكمبيوتر المحلي ولعمل ذلك ستستخدم الطرائق التالية في تطبيق فيجول 
بايزيك: 


Ny. c0mputer.Network.Download File e‏ تحمل ملف محدد بعيد وتحفظه في المكان المحدد في الموقع المحدد على 
الكمبيوتر الحالي 
Ny.c0mputer. Network. Upload File e‏ ترسل ملف محدد من الكمبيوتر المحلي إلى عنوان مضيف محدد 


استخدام الطريقة My.computer.NNetwork. Download Fi |e‏ لتحمیل الملفات 


TEY 
'" WIEROUE PEOGESSS 
' My :COMPDUtEEEF :NEtWOEK. UBDLOAQEFLLe ("™<LOGalPath>"™, "<RoOStEPath>™) 
My.Computer.Network.UploadFile ("C:\Upload\test.txt", " \\Server\test.txt") 


"' WIR Progress 

" MY: COMPUEEE .NEEWOERKR.UpLOadF1 Lê ("<LOCaA1LPaãEN>"™"; "<ROStEPAthS™, 

1 WT, TH, ‘TEUEe; S00) 

My.Computer.Network.UploadFile ("C:\Upload\test.txt", " \\Server\test.txt", 
WT, WN, TES, 500) 


MessageBox. Show ("File uploaded.") 
Catch ex As Exception 

MessageBox. Show ("Access failed" & vbCrLf & ex.Message) 
End Try 


استخدIم My.c0mputer.NNetwork.UploadFi]e‏ لرفع الملفات 


TEY 
PF" WIEROUE: PEOGEESS 
" My. COMDUtEEE:NEEWOEK.DownloadFLle ("™<HOsStEBath>"™y "<LOocalPath>"™) 
My.Computer.Network.DownloadFile ("\\Server\test.txt", " 
C:\Download\test tx") 


'' With Progress 
' My: COMDUtEEE: NEEWOEK. DownloadF1le ("<HOStEPath>"™, "<LocalPath>™, 
1 WN. N, TEE, ‘SOO, TES) 
My.Computer.Network. DownloadFile ("\\Server\test.txt", " 
C:\DownloadN testi tsy, _ 
NE WT, TEE; S00; TEES) 


MessageBox.Show ("File downloaded.") 
Catch ex As Exception 
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MessageBox. Show ("Access failed" & vbCrLf & ex.Message) 
End TEY 


كيف نقوم بإظهار مؤشر تقدم لعملية التحميل؟ 
إذا كنت تقوم بتحميل عدة ملفات يمكنك وضع ×ه م للبروجرس بعدد الملفات وكلما تم تحميل ملف نقوم بتقديم المؤشر خطوة أما إذا كنت 
تريد إظهار مؤشر لعملية التقدم للملف ذات نفسه فمن أجل التحميل استبدل السطر 


My.Computer.Network. DownloadFile ("\\Server\test.txt", " C:\Download\test.txt") 


بالسطر 


My.Computer.Network. DownloadFile ("\\Server\test.txt", " C:\Download\test.txt", 


Wy, MF PEE, SOO; TEE) 


ومن أجل الرفع استبدل السطر 


My.Computer.Network.UploadFile ("C:\Upload\test.txt", " \\Server\test.txt") 


بالسطر 


My.Computer.Network.UploadFile ("C:\Upload\test.txt", " \\Server\test.txt", 


r, E, True, 500) 
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منع تغيير الصفحة الافتراضية للإنترنت إكسبلورر و تغييرها برمجيا 


نستخدم الإجراء التالي لتمكين/عدم تمكين المستخدم من تغيير الصفحة الافتراضية للمتصفح 


Private Sub EnableDisableIEHomePageChange (ByVal EnHpCh As Boolean) 
TEE 
Dim Key As String 
Key = "AKEY CURRENT USERNSoftware\Policies\MicrosofEN™ _ 
& "Internet Explorer\Control Panel" 


Dim Value As String = "HomePage" 
If EnHpCh = True Then 
1 6 تغيد ر‎ | 


My.Computer.Registry.SetValue (Key, Value, 0, _ 
Microsoft.Win32.RegistryValueKind. DWord) 


Else 
' التغيير لايمكن‎ 
My.Computer.Registry.SetValue (Key, Value, 1, _ 
Microsoft.Win32.RegistryValueKind. DWord) 
ERG TE 
Catch ex As Exception 
MsgBox (ex.Message) 
ENQA. TEY 
ERT SO 


وذلك بوضع قيمة الوسيطة ٣م۳1"‏ الممررة للإجراء إلى عءاه۴ لإيقاف إمكانية تغيير الصفحة الافتراضية و ں٣‏ لتفعيل إمكانية تغيير 
الصفحة الافتراضية كما في المثال 


لإيقاف إمكانية تغيير الصفحة الافتراضية 
EnableDisableIEHomePageChange (False)‏ 


ل عل ,اا كا نة ات نيزر الهففدة: اللا فر اة 
EnableDisableIEHomePageChange (True)‏ 


كما يمكن تغيير الصفحة الافتراضية للمستكشف برمجيا باستخدام الإجراء التالي 


Private Sub ChangelEHomePage (ByVal NewUrl As String) 


TEY 
Dim Key As String = "EKEY CURRENT USER\Software\MicrosoftN™ _ 
& "Internet Explorer\Main" 
DIN VAL AS SEEING = TSCEAFE Bagge" 


My.Computer.Registry.SetValue (Key, Val, NewUrl, _ 
Microsoft.Win32.RegistryValueKind.String) 
Catch ex As Exception 
MsgBox (ex.Message) 
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ERG. TEY 
ERQ Sub 


مثال: لجعل ياهو هو الصفحة الافتراضية للمتصفح 


ChangeIEHomePage ("www.yahoo.com") 
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القسم السادس - برمجة )0۸ الخاص بويندوز فيستا 


ويضم المواضيع التالية: 
UAC Security ®‏ 
تمكين برنامجك من استخدام صلاحیات مدیر على فیستا 
ه كيف نقوم بجعل أحد الأزرار في برنامجنا ينفذ أوامر تتطلب صلاحيات مدير في ويندوز 
فیستا 


٠ 
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UAC Security 


استعراض ٣0۸ا‏ 

بشكل عام لا يمكن للبرنامج تأدية أعمال تتطلب صلاحيات لا يمتلكها المستخدم فإن لم يمتلك ذلك المستخدم الصلاحيات الكافية 

لحذف ملفات في مجلد الويندوز فلا يمكن للبرنامج المشغل من قبله أن يحذف تلك الملفات أيضا ومع ذلك يمكن للمستخدم تنفيذ أعمال من 
المفترض أنه ممنوع منها. والمطورون يعلمون منذ مدة طويلة أن التطبيق يجب أن يمتلك بعض الصلاحيات لكي يتمكن من إتمام العمل فإن 
كان التطبيق يتطلب العديد من الصلاحيات فوحدهم المستخدمون الذين يمتلكون تلك الصلاحيات يمكنهم تشغيل ذلك البرنامج. ولسوء الحظ 
فإن العديد من التطبيقات التي تقوم بأعمال قوية تحتاج إلى إنشاء أو حذف ملفات في مجلد الويندوز أو الوصول إلى مناطق متعلقة بالنظام أو 
التعديل على متغيرات البيئة أو مسجل النظام فإن كان التطبيق يحتاج تلك الصلاحيات فعندها يجب أن يمتلك تلك الصلاحيات عند تشغيله مما 
يعني أنه على العديد من المستخدمين امتلاك صلاحيات مدير نظام حتى يستطيعوا تشغيل تلك البرامج. 


والتعامل مع صلاحيات بهذا المستوى يأتي مع أخطار إضافية فإن أساء التطبيق التصرف فقد يتسبب بانهيار النظام حتى لو كان 
التطبيق ذات نفسه يعمل بصورة طبيعية فقد يقوم المستخدم بعمل شئ كارتي عن طريق الخطأً عندما يكون قد دخل بصلاحيات مدير فقد يقوم 
بحذف ملفات هامة يصبح معها من المستحيل استعادة النظام ويكون الحل الأمثل في هذه الحالة هو السماح للتطبيق برفع مستوى الصلاحيات 
التي يستخدمها بشكل مؤقت أثناء تأديته لتلك الوظائف القوية فإن اخطأ التطبيق عند تشغيله لجزئية معينة من الكود فلن يكون لديه الصلاحيات 
الكافية لعمل ضرر كبير ولن يكون للمستخدم صلاحيات مدير بشكل دائم وبهذا نكون قد قللنا من احتمال الحوادث المدمرة في النظام. 


في نسخ الويندوز السابقة لفيستا عندما تقوم بالدخول كمستخدم يمتلك صلاحيات مدير عندها ستتمكن من القيام بعمل أي شئ تقرييا 
ولكن في ويندوز فيستا فأن ال ٥٤۸ل‏ يتصرف بطريقة مختلفة قليلا فعندما تدخل كمدير يكون دخولك عبارة عن شقين الأول عبارة عن 
مستخدم عادي ذو صلاحيات محدودة والثاني مدير نظام يمتلك كافة الصلاحيات ففي البداية يكون عملك كمستخدم عادي حيث يتم استخدام 
الشق الثاني عند الحاجة فقط فعندما تريد القيام بعملية تحتاج إلى صلاحيات إضافية فال ٥۸ل‏ يظهر لك صندوق حوار يسألك الموافقة فإن 
وافقت على تنفيذ ذلك العمل يتم رفع صلاحياتك بشكل مؤقت إلى مستوى مدير حتى ينتهي تنفيذ ذلك العمل وعندها تعود صلاحياتك إلى 
مستخدم عادي ثانية وإن كنت قد دخلت باسم مستخدم عادي لا يمتلك صلاحيات مدير فمازال بإمكانك تنفيذ أمر يتطلب تلك الصلاحيات 
المرتفعة حيث يظهر لك ال ٥٤۸ل‏ صندوق حوار تحذيري يمكنك من الدخول كمدير فإن قمت بالدخول كمدير بنجاح عندها يتم منحك 
صلاحيات مدير بشكل مؤقت حتى ينتهي تنفيذ ذلك العمل. ويكون الفرق بين الحالتين بسيطا فعندما تدخل كمدير فإن ال ٣۸ل‏ يسألك موافقتك 
على العمل بالصلاحيات المرتفعة وإن دخلت كمستخدم آخر فإن ال ٥۸ل‏ يطلب منك إدخال كلمة السر الخاصة بالمدير 


التصمیم من اجل ٣۸ا‏ 

لن يقوم ال ٤‏ برفع صلاحيات التطبيق بعد أن تم تشغيله فهو يقوم بإسناد الصلاحيات لذلك التطبيق عندما يبدأ ولن يقوم بعدها 
بتغيير تلك الصلاحيات فإن احتاج التطبيق للعمل بصلاحيات مرتفعة فعليه أن يحصل على تلك الصلاحيات عندما يبدا ولتجنب إعطاء 
التطبيق صلاحيات أكثر من اللازم يجب عليك تقسيم كودك إلى أجزاء بحسب احتياجه لتلك الصلاحيات فالبرنامج الرئيسي يجب أن يعمل 
بصلاحيات عادية ولاحقا يجب عليه تنفيذ تطبيقات أخرى تعمل بصلاحيات مرتفعة عند الحاجة. 


فمثلا إن كان لدينا تطبيق يقوم بحفظ البيانات في قاعدة بيانات er۴‏ ا فهو لا يحتاج لصلاحيات مدير ومع ذلك إن أراد إنشاء 
ملف بملخص العمليات في مجلد الويندوز - مجلد محمي - فسيحتاج عندها لصلاحيات مدير فيمكنك عندها تقسيم التطبيق إلى عدة أجزاء 
فالتطبيق الرئيسي يقوم بمعظم العمل وتطبيق آخر يقوم بكتابة معلومات الخلاصة إلى ذلك الملف عندها يمكن للاتطبيق الأول تشغيل الثاني من 
أجل كتابة المعلومات في ذلك الملف. 


وعندما يكون بالإمكان يفضل أن تعيد كتابة التطبيق لتجنب استخدام صلاحيات مرتفعة فالعديد من البرامج على سبيل المثال تكون 
منصبة في المجلد ١٥ا۴‏ ه۲ عه۲م وهذا من المجلدات المحمية وبهذا إن احتاج التطبيق إلى تخزين معلومات في ملف متواجد بنفس المجلد 
الذي يحتوي على الملف التنفيذي للتطبيق فسوف يحتاج إلى صلاحيات إضافية للقيام بتلك العملية ويمكنك تجاوز هذه المشكلة بجعل التطبيق 
كرك العف في اك الخامن بستكت الاي رالمات الأخرى الي قكاح لا جات رة اتخم ناك لى امات 
المحمية والتعامل بشكل مباشر مع العتاد وتعديل الأقسام المحمية في سجل النظام ڈJ -HKEY_LOCAL_MACHINE‏ 
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وتقسيم التطبيق إلى أقسام تتطلب صلاحيات مرتفعة وأخرى لا تتطلب تلك الصلاحيات لا يمكن التطبيق من استخدام أقل 
الصلاحيات الممكنة فحسب ولكنه يبسط القسم الأخطر في كودك ويجعله أسهل للتنقيح فمثلا يمكننا استخدام كود شبيه بالتالي لتنفيذ تطبيق 
ین يتطلب صلاحيات مرتفعة 


Private Sub btinRun_Click() Handles btinRun.Click 
Try 
‘ Start the process. 
Dim pro As System.Diagnostics.Process 
pro = System.Diagnostics.Process.Start( _ 
txtProgram.Text, txtArguments. Text) 
“Wait for the process to exit. 
pro.WaitForExit() 
‘ Display the process’s exit code. 
MessageBox.Show(“Exit code: “ & pro.ExitCode) 
Catch ex As System.ComponentModel.Win32Exception 
‘ This happens if the user fails to elevate to Administrator. 
MessageBox.Show(“Operation canceled”, _ 
“Canceled”, MessageBoxButtons.OK, _ 
MessageBoxlcon.Information) 
End Try 
End Sub 


الكود السابق يستخدم الوظيفة ا ه†؟.ءءعع۴r0.ءtem.Diagnosticءرك‏ لتشغيل التطبيق ممررا مسار التطبيق الذي نريد تنفيذه 
ومحددات سطر الأوامر الخاصة بها وهو يستخدم الدالة ۴٥۲۴×|†‏ اج۷ من الغرض المعاد التي تنتظر حتى الانتهاء من تنفيذ البرنامج تم يتم 
التأكد عبر الخاصية عمله)†|»×ع من القيمة المعادة من التطبيق المنفذ. 


ويمثل الكود التالي الإجراء "اهم في البرنامج المستدعى 


Function Main(ByVal cmdArgs() As String) As Integer 
Dim frm As New frmChoices 
‘ Display the arguments. 
For Each str As String In cmdArgs 
frm.IstArguments.ltems.Add(str) 
Next str 
‘ Select the first item. 
If frm.IstArguments.ltems.Count > O0 Then 
frm.lstArguments.Selectedlndex = 0 
End If 
‘ Return the index of the selected item. 
If frm.ShowDialog() = Dialog Result.Cancel Then 
Return -1 
Else 
Return frm.IstArguments.Selectedlndex 
End If 
End Function 


حيث يبدا التطبيق بإنشاء نموذج ءعءاه ۴٣٠٣‏ وإضافة محددات سطر الأوامر إلى صندوق القائمة وا٣٥"‏ ںع۲ ۲۸| ونختار 
العنصر الأول منه ثم نظهر النموذج فإن قام المستخدم بالضغط على الزر |عء" هة فالتطبيق يعيد القيمة - 1 وإن ضغط على الزر 0۸ فهو 
يعيد قيمة الخاصية ٥×‏ "| من صندوق القائمة والموافقة للعنصر الذي تم اختياره منها والكود المستدعي للتطبيق يستقبل تلك القيمة عبر 
الخاصية Exit C0‏ . 


وكجزء من خصائص المستخدم ل ٣۸ل‏ فأي عمل يتطلب صلاحيات مرتفعة يجب أن يتم تعليمه بواسطة الدرع القياسي ل ٤۸ل‏ 
حيث يجب إظهاره لتحذير المستخدم بأنه ينفذ تطبيق يتطلب صلاحيات مرتفعة. وفي الوقت الحالي لا توجد طريقة بسيطة لإظهار ذلك الدرع 
في فيجول بايزيك لذلك سنستخدم دالات ۸۴١‏ لجعل الزر يظهر ذلك الدرع كما هو ظاهر في قطعة الكود التالية 
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Imports System.Runtime.InteropServices 


Module UacStuff 
Declare Auto Function SendMessage Lib “user32.dll” _ 
(ByVal hWnd As HandleRef, ByVal msg As Int32, _ 
ByVal wParam As IntPtr, ByVal IParam As IntPtr) As Int32 


“ Make the button display the UAC shield. 

Public Sub AddShieldToButton(ByVal btn As Button) 
Const BCM_SETSHIELD As Int32 = & H160C 
btn.FlatStyle = Windows.Forms.FlatStyle.System 
SendMessage(New Handle Ref(btn, btin.Handle), _ 
BCM_SETSHIELD, IntPtr.Zero, CType(1, IntPtr)) 

End Sub 

End Module 


ففي البداية نقوم بتعريف الدالة معةءوعM‏ ۸4ء5 المتواجدة في المكتبة اال.۲32عءل حيث يقوم الإجرlاء AddshieldToButton‏ 
بضبط الخاصية عار†ك5†ه|۴ الخاصة بالزر إلى ٣عءرك‏ ثم يستخدم الدالة معss2م S4۷‏ لإرسال الرسالة BCM_SE H1٤0‏ إلى الزر 
ولا توفر لنا مايكروسوفت حاليا طريقة لإضافة الدرع لتحكمات أخرى غير زر الأوامر فإن أردت إضافته إلى تحكم أخر فستقوم بذلك 
لوحدك كما يمكنك عمل صورة للدرع ووضعها ببساطة على تحكماتك ولكن هذه الصورة لن تتغير إن تم تغيير صورة الدرع الخاصة بالنظام 


رفع صلاحيات البرامج 

يمكن للمستخدم رفع المستوى الذي يتم تنفيذ التطبيق ضمنه بواسطة اختيار الأمر ١٥اra Run As Administ‏ من القائمة التي 
تظهر لك عند الضغط بزر الفأرة اليميني على الملف التنفيذي للتطبيق فيقوم النظام بإظهار صندوق حوار ° الخاص وبعد أن يقوم 
المستخدم بإدخال كلمة سر المدير يتم تنفيذ البرنامج باستخدام الصلاحيات المرتفعة وهذه الطريقة بسيطة ولا تتطلب تدخلا منك كمبرمج 
ولكنها تتطلب من المستخدم القيام بخطوة إضافية ولهذا قد لا تكون هذه الفكرة هي الحل الأفضل دوما. 


ويمكننا جعل تطبيقنا يبدأ تطبيق معين باستخدام صلاحيات مرتفعة بطريقة تشابه تلك الطريقة التي يستخدمها المستخدم فهو يبدأ 
تشغيل التطبيق طالبا من النظام تشغيله بصلاحيات مدير حيث يمكن استخدام كود شبيه بالتالي لتشغيل تطبيق آخر بصلاحيات مرتفعة مع أن 
ذلك التطبيق بذاته لا يطلب تلك الصلاحيات عند بدء تشغيله 
Try‏ 
Use the runas verb to start the process.‏ “ 
Dim psi As New ProcessSitartlnfo‏ 
psi.Verb = “runas”‏ 
psi.UseShellExecute = True‏ 
psi.File Name = txtProgram. Text‏ 
psi.Arguments = txtArguments. Text‏ 
Dim pro As System.Diagnostics.Process‏ 
pro = System.Diagnostics.Process.Start(psi)‏ 
Wait for the process to exit.‏ “ 
pro.WaitForExit()‏ 
Display the process’s exit code.‏ ‘ 
MessageBox.Show(“Exit code: “ & pro.ExitCode)‏ 
Catch ex As System.ComponentModel.Win32Exception‏ 
This happens if the user fails to elevate to Administrator.‏ “‘ 
MessageBox.Show(“Operation canceled”, _‏ 
“Canceled”, MessageBoxButtons.OK, _‏ 
MessageBoxlcon.Information)‏ 
End Try‏ 
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حيث يبني الكود السابق الغرض ۴0١1٣٣ة†5ءءععءه٣۴‏ واصفا التطبيق الذي سيشغله الكود حيث يقوم بضبط الخاصية ط۲٠۷‏ إلى 
القيمة وهمم لكي يبين للنظام أن التطبيق يجب أن يتم تشغيله كمدير كما يضبط اسم البرنامج ومحددات بدء التشغيل الخاصة به. 


وإن كنت تعلم أن التطبيق يجب أن يتم تشغيله دوما باستخدام صلاحيات مرتفعة يمكنك جعل ذلك التطبيق يطلب رفع صلاحياته 
بنفسه وذلك باستخدام اءعfامجةم‏ مضمنة داخل الملف التنفيذي للتطبيق ولإنشائها انقر نقرا مزدوجا على Solution aû My Project‏ 
orerاpمEx‏ وفي صفحة ٥۸‏ »امم انقر على الزر كعا٤†مك U۸٤‏ سمVi‏ الذي يقوم بفتح الملف اءعfامجص.ممه‏ حيث يظهر الكود 
التالي المحتويات الابتدائية لذلك الملف 


<?xml version="1.0" encoding="utf-8"?> 
<asmvl1 :assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" 
XMInSaSmMvVIS"urn :SchemaSs=MicEFosoft=coOMiaSmM.YL"  KMIné:asmv¥2="urn: Schemas=MiIcrosoE t= 
com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> 
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/> 
SEFUSEINEO: XMLINS="UER:SGREMaASMLSEOSOE ESO? ASM. VA" > 


<security> 
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3"> 
<!-- UAC Manifest Options 


If you want to change the Windows User Account Control level replace th 
requestedExecutionLevel node with one of the following. 


<requestedExecutionLevel level="asInvoker" uiAccess="false" /> 
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" /> 
<requestedExecutionLevel level="highestAvailable" uiAccess="false" /> 


If you want to üûutilizêé File and Registry Virtüalization fof backward 
compatibility then delete the requestedExecutionLevel node. 
--< 
<requestedExecutionLevel level="asInvoker" uiAccess="false" /> 
</requestedPrivileges> 
/SECUEL EYE 
S/tEEUStEINES> 
</asmvl1:assembly> 


ولجعل التطبيق يطلب من ٣۸ل‏ رفع صلاحياته غير ëيnة‏ اul¡¦طر require Administrator gl! requestExecutionLevel‏ 
والآن عندما تقوم بعمل ءاام صت للتطبيق يقوم فيجول ستوديو بتعليم التطبيق بأنه بحاجة إلى صلاحيات مدير فعندما يقوم المستخدم أو أي 
برنامج آخر بتشغيله سيحاول النظام بصورة آلية رفع صلاحياته مظهرا صندوق الحوار الخاص ب 0٥۸ل‏ للمستخدم طالبا منه الموافقة على 
رفع تلك الصلاحيات 


» 


الخلاصه 

القواعد الأساسية لبرمجة ٥۸ل‏ تتطلب استخدام الحد الأدنى من الصلاحيات لتنفيذ العمل المراد ويجب على التطبيق استخدام 
صلاحيات مستخدم عادي عندما يكون ذلك ممكنا وإن كان عليه تنفيذ مهمة تتطلب صلاحيات أكبر فيجب عليه تنفيذ تطبيق آخر منفصل يمتلك 
تلك الصلاحيات المرتفعة. 


وقد ورد في هذه المقالة تثلاثة طرق لبدء البرنامج بصلاحيات مرتفعة: الأولى هي الطلب من المستخدم فعل ذلك وذلك من خلال 
النقر بزر الفأرة اليميني على التطبيق واختيار الأمر ٣0اه‏ †ءاماAdm Run As‏ وهذه ليست بالطريقة الملائمة بشكل عام ولكنها تبقى مقبولة 
إن كان المستخدم سيشغل ذلك التطبيق مرات نادرة والثانية هي جعل التطبيق يبدأ التطبيق الآخر بصلاحيات مرتفعة وهذه طريقة أفضل من 
الأولى ولكنه مازال بالإمكان تشغيل التطبيق بدون الصلاحيات التي يحتاجها والثالثة هي تضمين اءه۴أمة" ضمن التطبيق المستدعى لجعله 
يطلب صلاحيات مرتفعة في كل مرة يبدأ فيها تشغيله 
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تمکین برنامجك من استخدام صلاحیات مدير على فیستا 


لتمكين برنامجك من العمل بصلاحيات مدير شغل بيئة التطوير دوما بصلاحيات مدير - انقر بزر الفأرة اليميني على اختصار بيئة 
التطوير وIخةتر‏ l!لÎمرAdministrator Run As‏ - 
افتح خصائص ز٥۴۲ My‏ ثم انقر زر sعہا†tمS View 1۸C‏ من صفحة ۸٥ااهء‌اام‏ م۸ تم في نافذة خصائص ٩۸ل‏ التي 


تظهر لك استبدل السطر 


<requestedExecutionLevel level="asInvoker" uiAccess="false" /> 


بان 


<requestedExecutionLevel level="requireAdministrator" uiAccess="false" /> 


نفذ الأمر ںاہک dااںB‏ من قائمة dااںB‏ وبیئة التطویر مازالت تعمل ضمن مستوی ۲٥ھ‏ †ءاہ ہ۸4 كما تأكد بأنك تستخدم 
بيئة التطوير بصلاحيات مدير عندما تقوم بعمل برنامج ال مں م6 أيضا 
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كيف نقوم بجعل أحد الأزرار في برنامجنا ينفذ أوامر تتطلب صلاحيات مدير في ويندوز فيستا 


نحتاج في بعض الأحيان للقيام بأعمال تتطلب صلاحيات خاصة في ويندوز فيستا وهنا سنواجه منعا من قبل 


° الخاص 


بويندوز فيستا ولكي يتمكن برنامجنا من تنفيذ هذه المهمة يحب علينا تنفيذ ذلك الکود بمستوی صلاحیات مدیر ٣٥ھا†ءاہاہAdm‏ حیث سنقوم 
في البداية بتعريف فئة تتعامل مع نظام الأمان في ويندوز فيستا مستخدمين الفئة اا† ع لاsس‏ هللا۷ للتعرف على مستخدم ويندوز الذي 
نعمل عليه والفئة اaماء"‏ ۴ئ سهل Wİ"‏ للتعرف على المجموعات التي ينتسب إليها ذلك المستخدم تم نتحقق من أنه يعمل بصلاحيات مدير 


كما في الإجراء 


As Boolean 
= WindowsIdentity. GetCurrent () 
ipal = New WindowsPrincipal (id) 


Friend Shared Function IsAdmin () 
Dim id As WindowsIdentity 


Dim p As WindowsPrinc 


Return p.IsInRole (WindowsBuiltInRole.Administrator) 


فإن لم يكن المستخدم يعمل بصلاحيات مدير هنا نعيد بدء العملية ائllaلıة rt Current Process‏ 
إلى مستوى مدير كما في الإجراء 


End. FüUREEISE 


ع رافعين مستوى صلاحيات المستخدم 


Friend Shared Sub RestartElevated() 
Dim startInfo As ProcessStartInfo = New ProcessStartInfo () 
startInfo.UseShellExecute = Tru 
startInfo.WorkingDirectory = Environment.CurrentDirectory 
startInfo.FileName = Application. ExecutablePath 
startInfo.Verb = "runas" 
TEY 
Dim p As Process = Process.Start (startInfo) 
Catch ex As System.ComponentModel.Win32Exception 
Return 'If cancelled, do nothing 
ERG TEY 
Application.Exit () 
ENG SU 


بقي لدينا إضافة أيقونة الدرع الخاصة بالأزرار التي تستخدم صلاحيات مدير إلى زر الأوامر المطلوب حيت يتم ذلك باستخدام الدالة 
Send Message‏ الموجودة في المكتبة اا.۲32ءء التي تقوم بإرسال الرسالة 0ا1ع٤۲5۳1٤M_S]٤8B‏ إلى الزر المطلوب كما في الإجراء 


Friend Shared Sub AddShieldToButton (ByVal b As Button) 
b.FlatStyle = FlatStyle.System 
SendMessage (b.Handle, BCM SETSHIELD, 0, &HFFFFFFF) 
Ea. Sab 
وسيصبح الكود الكامل للفئة التي سنستخدمها لإجراء عملية تمكين الزر من تنفيذ أعمال تتطلب صلاحيات مدير كما يلي‎ 
ImMpOFES System 
Imports System.Collections.Generic 
IMOGOE CES SYSEEM. TERE 
Imports System. Runtime. InteropServices 
Imports System.Diagnostics 
Imports System.Windows.Forms 
Imports System. Security. Principal 
Public Class VistaSecurity 


PEIVGES DECLATEES AQUEO FOREELOR SEeNnIAMESSaGEé. Ib USES ALL 
(ByVal HWND As IntPtr, ByVal MSG As Ulnteger, ByVal WParam As UInt32, 


ByVal LParam As UlInt32) As UlInt32 
PFIVatê Const BCM FIRST = &R1600 
Private ConSE BCM SETSHIELD = (BCM FIRST # &HC) 


As Boolean 
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Friend Shared Function IsVistaOrHigher () 


.OSVersion.Version.Major < 6 


Return Environment 
ERQ FURCE ION 


'/ <summary> 


'/ Checks if the process is elevated 


'/ </summary> 


"7 KEEEUrNSSTE L5 OLOVaCé6dEZEEEUENS> 


IsAdmin () As Boolean 


Friend Shared FünicGtiokh 


Dim id As WindowsIdentity = WindowsIdentity.GetCurrent () 
Dim p As WindowsPrincipal = New WindowsPrincipal (id) 
Return p.IsInRole (WindowsBuiltInRole.Administrator) 


ENG FURnEEIoR 


'/ <summary> 


"7 Add. ã SRLeld 1ieon to ã Bion 


button</param> 


'/ </SUMMêaEY> 
'/ <param name="b">The 


Friend Shared Sub AddShieldToButton (ByVal b As Button) 
b.FlatStyle = FlatStyle.System 
SendMessage (b.Handle, BCM SETSHIELD, 0, &HFFFFFFF) 


process with administrator credentials 


ERG. SUD 


'/ <summary> 
'/ Restart the cürfent 
'/ </summary> 


Friend Shared Sub RestartElevated () 
Dim startInfo As ProcessStartInfo = New ProcessStartInfo () 


Hnxecute = Tru 


startInfo.UseShel lI 


startInfo.WorkingDirectory = Environment.CurrentDirectory 


= Application. ExecutablePath 


startInfo.FileName 


StAFTINEO.VErD = TEünas™ 


Dim p As Process = Process.Start (startInfo) 


.ComponentModel.Win32Exception 


Return 'If cancelled, do nothing 


دعنا نجرب معا الفئة التي قمنا بإنشائها للتو 


سأقوم بالتجربة على كود مقتطف من برنامج قديم لي وهو يراقب خدمة النظام الخاصةب ۲ 


TEY 


Catch ex As System 


ENA TEY 


Application.Exit () 
EANQ.. SUB 
ENG CIS: 


5Q Ser‏ ویتحکم بها وبما أن كود بدء أو 


إيقاف هذه الخدمة يعتبر من الأمور التي تحتاج إلى صلاحيات مدير لذا سأضع فقط قطعة الكود التي تفيدنا هنا حيث سنحتاج في البداية إلى 


إضافة مرجع إلى ءوععه٣۴عءأ۷امك.”عاءرك‏ وإلى الاستيرادات التالية في بداية الملف أيضا 
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وهذا هو الكود 


Imports System. ServiceProc 
Imports Microsoft.Win32 


Private SqlServiceCon As New 


ss.ServiceController ("MSSQLSSQLEXPRESS") 


sh () 


System. ServiceProc 


Private Sub StopSQL () 


SqlServiceCon.Refr 


If SqlServiceCon.CanStop = True Then SqlServiceCon. Stop () 
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Catch ex As Exception 
MsgBox (ex.Message) 
End TEY 


End. Sub 


Private Sub StartSql () 
TEY 
SqlServiceCon. Refresh () 
If SqlServiceCon.Status <> ServiceControllerStatus.Running And _ 
SqlServiceCon.Status <> ServiceControllerStatus.StartPending Then 


SqlServiceCon.Start () 
End If 
Catch ex As Exception 
MsgBox (ex.Message) 
End. TEY 
ERQ SUB 


الآن سنستخدم فئتنا السابقة رم5 جو۷ للتحقق أولا من أن برنامجنا يمتلك الصلاحيات المطلوبة باستخدام الدالة ”ص |۶۸١‏ فإن لم يمتلك 
تلك الصلاحيات نعيد بدء العملية وومع ه۴ الحالية رافعين الصلاحيات للمستوى المطلوب باستخدام الدالة لع ۷2ء1٤۲۲‏ ه†ومR‏ كما في الكود 
If VistaSecurity.IsAdmin = True Then‏ 


StartSql () 
Else 


VistaSecurity.RestartElevated () 
ERG TE 


وعملية إضافة أيقونة الدرع إلى زر الأوامر تتم باستخدام الكود 
VistaSecurity.AddShieldToButton (Button1l)‏ 
وفيما يلي سرد كامل لكود النافذة ۴٠۲1‏ التي استخدمناها هنا وهي تمتلك زري أوامر ۸1 B‌ut†0‏ و 0۸2غBut‏ 


Imports System. ServiceProcess 
Imports Microsoft.Win32 


PUDILE Class Fornml 


Private SqlServiceCon As New 
System. ServiceProcess.ServiceController ("MSSQLŞSQLEXPRESS") 


Private Sub StopSQL () 
TEY 
SqlServiceCon. Refresh () 
If SqlServiceCon.CanStop = True Then SqlServiceCon. Stop () 


Catch ex As Exception 
MsgBox (ex.Message) 

EA TEY 

ERA. Sub 


Private Sub StartSql () 
TEY 
SqlServiceCon. Refresh () 
If SqlServiceCon.Status <> ServiceControllerSstatus.Running And _ 
SqlServiceCon.Status <> ServiceControllerStatus.StartPending Then 


SqlServiceCon.Start () 
ERC. TÊ 
Catch ex As Exception 
MsgBox (ex.Message) 
ENA TEY 
End. Sub 
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sender As System.Object, _ 
EventArgs) Handles Button1.Click 


Telê. THER 


evated () 


sender As System.Object, 


PEIVSEE SUD BUEEOoONL CILEE(EBYVSL 
ByVal e As System. 


If VistaSecurity.IsAdmin = 
StartSql () 
Else 


VistaSecurity.RestartEl 
EDE EE 
ERQ Sub 


PEIVStLE SU BUEtonZ CIITGR(BYVaL 


ByVal e As System.EventArgs) Handles Button2.Click 


True Then 


evated () 


PEIVAEE. SUG FOEMLE Load(BYVYal sende AS ORTE, 


If VistaSecurity.IsAdmin = 
StopSQL () 
Else 


VistaSecurity.RestartEl 
EN. TE 
ERQ. Sub 


ByVal e As System.EventArgs) Handles Me. Load 


tton (Button1) 
tLton (Button2) 


تال 
هل من الممكن شرح استخدام هذه الطريقة مع Windows XP‏ 


الجواب 


VistaSecurity.AddShieldToBu 
VistaSecurity.AddShieldToBu 
ENG SU 


CLS 


Windows XP go lllaeتwl‎ jكnı‎ Ys Windows Vista هذه الطريقة خاصة حصرا ن‎ 
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القسم السابع سس Linq‏ 


ويضم المواضيع التالية: 
ه مقدمة في أا 
٠‏ بنية استعلامات ٣اا‏ 
6 jhوgدڼٽ Linq Providers — Linq‏ 
٠‏ بنية استعلامات ٣اا‏ 
ه ترقية مشاريع 2005 لتعمل على 2008 ثم إضافة دعم ۹ا لتلك المشاريع 
Object‏ 0ا Linq‏ وأساسیات استعلامات ٣اا‏ 
Linq To DataSet e‏ 
ه مثال عملي Lambda Expressions plڏختwl zg» Linq To DataSet Jle‏ 
ه مقدمة في ۷1× 0† Linq‏ 
بعض استخدامات Linq ۲0 ×M1‏ 
تعرف jEذJ Linq to SQL‏ ڪ 0/R Designer‏ 
Linq To Sql Master/Detail 6‏ 
ه مثال سريع عن كيفية إنشاء فئات اه5 ۲١‏ ٩٣ا‏ يدويا 
ه أمثلة على استعلامات واا 
e‏ الاستعلامات llئnترجnمة Compiled Queries‏ 
٠‏ إضافة طرائق مخصصة لاستعلامات لينك واا 
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مواضيع متعلقة بتقنية 4م11 لابد من الاطلاع عليها 


هذه أسماء مجموعة من المواضيع ستجدها في أقسام هذا الكتاب وهي متعلقة بتقنية وأا يفضل ان تطلع عليها أولا ثم العودة لمتابعة القسم 
المتعلق بتقنية أا وهي 


Local Type Inference عوill الاستدلال المحلي على‎ ٠ 
Anonymous Types ةlوجملا الأنواع‎ 

Lambda Expressions ® 

ه تعابير لمدا في العمق 

Object Initializers e 
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مقدمة في ہ1ل 


تضيف وأا إمكانيات استعلامية بإمكانيات بسيطة وقوية لفيجول بايزيك عندما تتعامل مع العديد من أنواع البيانات المختلفة 
فبالإضافة إلى إرسال الاستعلام إلى قاعدة بيانات كي تتم معالجته أو العمل مع صيغة مختلفة للاستعلام لكل نوع من أنواع البيانات التي تقوم 
بالبحث عنها. تقدم ۹٠ا‏ الاستعلامات كجزء من لغة فيجول بايزيك مستخدمة صيغة موحدة بغخض النظر عن نوع البيانات الذي تستخدمه. 
وهي تمكنك من الاستعلام عن البيانات من قاعدة بيانات إعم۷إم؟ ا50 أو ا"× أو المجموعات والمصفوفات في الذاكرة أو خمم. ۸050 
ئtهط‏ الأمر الذي يجعلها قادرة على الاستعلام من أي قاعدة بيانات يمكن ربطها مع ا٥5هه0‏ أو أي مصدر بيانات محلي أو بعيد يدعم 
هاا حيث يمكنك عمل ذلك كله باستخدام عناصر لغة فيجول بايزيك الشائعة لأن استعلاماتك أصبحت مكتوبة بلغة فيجول بايزيك ونتائج 
الاستعلام تعاد كأغراض أنواع بيانات قوية داعمة مء" ع؟||ا|م†م| مما يجعل كتابتك للكود أسرع واكتشافك للأخطاء في الاستعلامات عند 
ترجمة المشروع بدلا من وقت التنفيذ كما أن استعلامات ,أا يمكن أن تكون مصدرا لاستعلامات إضافية لمزيد من الدقة في البحث. كما 
يمكن ربطها مع التحكمات ممكنا المستخدم من استعراض وتعديل نتائج استعلامك بسهولة. 


وهذا مثال عن استعلام بسيط يعيد قائمة شركات الزبائن الموجودين في إيطاليا 


Dim itaCus = From cus In NwDs.Customers _ 
Whetê CUS. COUNEEy = ™IEaIy™ | 
Select cus.ContactName, cus.CompanyName 


دعنا لا نقلق الآن بخصوص صيغة الاستعلام على كل حال إن كنت متمكنا من كتابة استعلامات سيكول سيرفر لن تجد صعوبة في فهم 
صيغتها بما أن الصيغة مشابهة مع بعض الاختلافات طبعا والاستعلام السابق يماثل استعلام سيكول سيرفر التالي 


SELECT COMPANYNAME FROM CUSTOMERS WHERE COUNTRY='Italy' 
كما يمكن أن يكون استعلام وما أكثر تعقيد فالكود التالي يعيد قائمة بالزبائن ويعيد تجميعهم حسب الموقع‎ 


Dim customers As List (Of Customer) = GetCustomerList () 
Dim customersByCountry = From cust In customers _ 
DEQE BF CUSEACOUNEEY. CUSTECIEY 
Group By CountryName = cust.Country _ 
Into RegionalCustomers = Group, Count () 
Order By CountryName 
For Each country In customersByCountry 
Console.WriteLine (country.CountryName & _ 
" (" & COUDNEEV:COUNE & T)™ &€ VOCELEE) 
For Each customer In country.RegionalCustomers 
Console.WriteLine (vbTab & customer.CompanyName & _ 
" (" & customer.City & ")") 


Next 
Next 
حيث يمكننا استخدام استعلام "ا في برنامجنا بعدة أشكال فالمثال الأول مثلا يمكننا عرض نتيجته في لأ 6ه مباشرة‎ 
Me.DataGridViewl.DataSource = itaCus.ToList 


او یمکننا إدخاله ضمن حلقة ۴٥۴...۴۵٥١N‏ متلا واستخدام النتائج ففي المتال التالي نستخدم الاستعلام الوارد بالمثال الأول لإظهار قائمة 
الشركات في ×80 ءا 
Me.ListBox1.Items.Clear ()‏ 


FOE BACH CUSE. TI EaCUsS 
Me.ListBox1.Items.Add (cust.CompanyName) 


Next 


129 


LINQ Providers - Linq تٽIدgjh‎ 


قوم مزود ٣٩‏ أا بتنظیم استعلامات واا في فيجول بايزيك بحسب مصدر البيانات الذي تستخدمه فعندما تکتب استعلام ٣اا‏ يأخذ المزود 
ذلك الاستعلام ويترجمه إلى أوامر يستطيع مصدر البيانات تنفيذها ويقوم أيضا بتحويل البيانات من الأغراض المصدرية ليشكل نتائج 
الاستعلام وأخيرا يقوم بتحويل الأغراض إلى بيانات عندما ترسل التحديثات للمصدر. ويضم فيجول بايزيك مزودات 1۹ا التالية: 


Linq to Objects‏ يمكنك هذا المزود من الاستعلام في المجموعات والمصفوفات في الذاكرة إذا كانت غرضك يدعم الواجهة 
!Enumerable‏ أو الواجھة (۲)عاطاaإمصuمnع|‏ بحيث يمكنك المزود من الاستعلام عنها ويمكنك تمكين هذا المزود باستیراد 
المجال ٩"ا."هءر؟‏ والذي يكون مستوردا بشكل افتراضي في مشاريع فيجول بايزيك 

Linq t0 SQ‏ يمكنك هذا المزود من الاستعلام من قواعد بيانات 5٥٣۷٠١‏ ا50۸ والتحديث إليها ويجعل من السهل ربط أغراض 
التطبيق مع الجداول والأغراض في قواعد البيانات. ويسهل فيجول بايزيك العمل مع 5Q1‏ ها Object Relational pيدقتب L4‏ 
signer‏ والذي يمكنك من إنشاء اعله( 1ءء زط0 في التطبيق يرتبط مع الأغراض في قاعدة البيانات ويقدم ال 0/R‏ 
Designer‏ امكانية التعامل مع الإجراءات والوظائف المخزنة وإجراءات الغرض ا†×ع†DataCon‏ الذي يدير الاتصال مع قاعدة 
البيانات ويخزن الحالة من أجل تصادم البيانات التفاؤلي 

اm×‏ هt‏ واا يمكنك من الاستعلام من ا"× والتعديل عليها بحيث يمكنك تعديل محتويات |" × الموجودة في الذاكرة أو يمكنك 
تحمیل ملف |اص× أو حفظه 

Linq t0 Dataset‏ يمكنك من الاستعلام من كأعءهاة0 tعم.‏ ۸50 والتعديل عليها وإضافة قوة وا للتطبيقات التي تستخدم 
t٤6‏ تسهل وتوسع إمكانيات الاستعلام والتجميع والتحديث في ال هه في تطبيقك 
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بنية استعلامات 14ا 


يشار عادة إلى استعلام ۹اا بتعبير الاستعلام وهو يتألف من توليفة من تراكيب الاستعلام التي تحدد مصدر البيانات ومتغيرات 
التكرار الخاصة بالاستعلام كما يمكنه أن يتضمن تعليمات من أجل الفرز أو التصفية أو التجميع أو الضم أو الحساب ليتم تطبيقها على 
البيانات المصدرية وصيغتها تكون مشابهة لصيغة ال 501 ولهذا ستجد أن معظم الصيغة مألوفة. 

يبدا الاستعلام بقسم ص٠۴‏ الذي يحدد مصدر البيانات والمتغيرات التي تشير إلى كل عنصر من البيانات المصدرية بشكل مستقل وهي تدعى 
بمتغيرات المجال أو متغيرات التكرار وقسم ۴٣٠٠١‏ مطلوب من أجل الاستعلام إلا في استعلامات التجميع مهع٠۲عع۸‏ حيث يكون قسم 
۴۳ فيها اختياري وبعد تعريف مجال ومصدر الاستعلام في قسم ۴۲٠١‏ أو في قسم ٥اهعه٥عع۸‏ يمكنك تضمين أي تركيب من أقسام 
الاستعلام. فمثلا الاستعلام التالي یحدد مصدر مجموعة من بیانات الزبائن بالمتغیر ١٣٥ص۳‏ ہیں٤‏ ومتغیر التکرار tخوںع‏ 


Dim SUEEYRESULES # FEOM CUSE: IN CUstomecs 
Select cust.CompanyName 


وهذا المثال يشكل استعلام مقبول بذات نفسه ومع ذلك يصبح الاستعلام أقوى عندما تضيف أقسام استعلام أخرى لتحديد النتائج فمثلا يمكنك 
إضافة قسم ۷٠۲٠‏ لتصفية النتائج إلى قيمة أو أكثر وتكون تعابير الاستعلام عبارة عن سطر واحد من الكود بحيث يمكنك إضافة أقسام 
استعلام جديدة لنهاية الاستعلام كما يمكنك فصل الاستعلام إلى عدة أسطر لتحسين قراءة كودك باستخدام المحرف _ ويمتل الكود التالي 
استعلاما یستخدم قم Where‏ 


Di: SUEFYRESULES = FEOMCEUSE IN CUSEOMEPRS. _ 
Where cust.Country = "USA" 


ویمٽل قسم select‏ قسم قوي آخر في الاستعلام حيث يمكنك من إعادة الحقول المختارة فقط من مصدر البيانات وتعيد استعلامات Linq‏ 
مجموعة تعدادية من الأغراض القوية النوع كما يمكنها إعادة أنواع مجهولة أو أنواع معروفة. ويمكن استخدام قسم اء إعء للعودة بحقل 
واحد فقط من مصدر البيانات وعندما تفعل هذا يكون نوع المجموعة المعادة هو نوع بيانات ذلك الحقل. وعندما يعيد قسم اءمام؟ مجموعة 
من الحقول من مصدر البيانات تكون المجموعة المعادة من النوع المجهول ويمكنك مطابقة الحقول المعادة من الاستعلام مع حقول من نوع 
معروف محدد ويظهر الكود التالي تعبير استعلام يعيد مجموعة نوعها مجهول تضم أرقاما مع بيانات من الحقل المحدد من مصدر البيانات 


DIN SUEEVRESULES 2 FEO CUSE., IN EUS EOMEES 
Wherê: CUS 4COURNEEy = TUSAT™ 
Select cust.CompanyName, cust.Country 


يمكن استخدام استعلامات و٣1‏ لدمج عدة مصادر من البيانات في نتيجة واحدة حيث يمكن عمل هذا باستخدام قسم ۴٣٠٠٣١‏ واحد أو أكثر أو 
باستخدام أقسام ەل أو ٣ال‏ ماما6 ويظهر الكود التالي تعبیر استعلام يضم بیانات ٣٥۲‏ ٥0ں‏ و ٣٥ا0‏ ويعيد مجموعة من نوع 
مجهول تحتوي بيانات Order s Customer ja‏ 


Dii rOUEFVRESULES < FEO CUSE IM CUSEOMEES, OF ER OFOEES | 
WHEEFêé CUS: CUSEOMEFID = OFQ:CUSEOMEEID _| 
Select cust, ord 


یمکنك استخدام قسم ٣ہل‏ مںہ۲ لبناء استعلامات شجریة تحتوي مجموعة من اغراض ٣٤١‏ ٥tوںC‏ وکل غرض ٣٤١‏ ٥اوںC‏ يمتلك 
خاصية تحتوي مجموعة تتضمن جميع أغراض ١٠ل۲ه‏ لذلك الزبون. ويظهر المثال التالي تعبیر استعلام يدمج بیانات ٣ne١‏ 0ں و 
d۲‏ كنتيجة شجرية ويعيد مجموعة من نوع مجهول ويعيد الاستعلام نوعا يتضمن الخاصية ءإعل۵۲0۲٠0ءں٤‏ تحتوي على مجموعة 
تحتوي على مجموعة من بيانات هل0۲ وبيانات ۳٥۲‏ 0وں٤‏ وتتضمن أيضا الخاصية اه٤ه 0۲٠۲۲‏ تحتوي على مجموع إجمالي الطلبات 
لذلك الزبون 


DIN SUEEYRESULES # FEOM-CUSE<IN CUSEOMEES _ 
GEOUD AOI OEM. LR. OFFS OR 
OUSE.CUSEOMEEID EduUals: OFd.CUSTEOMEEID 
TIRNEO: CUSEOMEEFOEIEES:. = EEOUBF _ 
OEOEEFTOEAL = SUM(SEAETOEAL _ 
Select cust.CompanyName, cust.CustomerlID, 
CustomerOrders, OrderTotal 
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Visual Basic LINQ Query Operators - Linq pںږإعiwا معاملڻت‎ 


تتضمن الفئات في المجال inqا. Sytem‏ والمجالات التي تدعم وا طرائق يمكنك استدعاؤها لإنشاء الاستعلامات وتوليها 
بحسب حاجة التطبيق ويتضمن فيجول بايزيك كلمات مفتاحية لأقسام الاستعلام الشائعة 


From Clause 
ویحدد قسم هم۴ المجموعة المصدر أو متغير التكرار للاستعلام‎ Aggregate أو‎ ۴٣٥۳ یجب أن يبدأ الاستعلام بقسم‎ 


' Returns the company name for all customers for whom 
' State is equal to "WA". 
Dim Hames. = FEOM CUS IR CUSEOMEES | 

WHEE. GUSELSEaTeE = WAT 

Select cust.CompanyName 


Select Clause 


' Returns the company name and ID value for each 
' customer as a collection of a new anonymous type. 
DIN, EUSEOMEELISE = FEO USE IN CUBEOMEES. 

Select cust.CompanyName, cust.ID 


و إن لم یکن قسم eاSe‏ موجودا في الاستعلام فتتألف متغيرات التكرار للاستعلام من تلك المحددة في قسم F۴0‏ أو Aggregate‏ 


Where Clause 
اختياري ويحدد شرط التصفية للاستعلام‎ 


' Returns all product names for which the Category of 
' the product is "Beverages". 
Dim: hameg. = FFOM OEOIUGE In BEOQUECES ,_ 
WhérFe. DEOdUCTE:CAEEIOEY = TBEVEEAGES™ | 
Select product.Name 


Order By Clause 
اختياري ويحدد ترتيب الفرز للأعمدة في الاستعلام‎ 


' Returns a list of books sorted by price in 

' ascending order. 

DI ELELESASCEENGAINGPELGS. =. FEO O TA Books | 
Order By b.Price 


Join Clause 
اختياري ويدمج مجموعتين ضمن مجموعة واحدة‎ 


Dim IREESE ZZ FEOM 1 In DSBDESPOSIES. IRTEEESERATeS: 
JOAN d:1 DBSDESPOSLES.DEBOSLES 
OR LrIMCEFESELD EOUALS QINEEEESEID 
Select i.InterestID, i.InterestRate, i.DepositPreiod 


Group by Clause 
اختياري ويقوم بتجميع عناصر نتيجة الاستعلام ويمكن استعماله لتطبيق إجراءات تجميع لكل مجموعة‎ 


' Returns a list of orders grouped by the order date 
' and sorted in ascending order by the order date. 
Diir OEQEES = FEoM FACE IN OFdEFLISE | 

Order BY OIE: OFdEeEDatêe. _ 

Group By OrderDate = order.OrderDat 

Into OrdersByDate = Group 
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Group Join Clause 
اختياري ويجمع مجموعتين ضمن مجموعة شجرية واحدة‎ 
' Returns a combined collection of customers and 
customer orders. 
Diir :eUSEOMEELLSE =. FEO CUSE IM CUSEOMeES _ 

GEOUp . JOiR OFQ IA GEdeEFS ON _ 
CUSTE.CUStomerID Equals oOrd:CustomerlD _ 
INEO CUSEOMEEFOFIEeES. = GEOUBy,_ 
OFIEEToOTAE =. SUM(OEA ToL) 
Select cust.CompanyName, cust.CustomerlID, 
CustomerOrders, OrderTotal 


Aggregate Clause 
يطبق واحدة أو أكثر من وظائف التجميع على المجموعة‎ Aggregate puãs Aggregate أو تم‎ ۴٣٥۳ يجب بدء الاستعلام دوما إما بقسم‎ 
فمثلا يمكن استخدام قسم مدع٠ عع لحساب مجموع جميع العناصر المعادة بالاستعلام‎ 
' REtUENS the SUM. OF ALL order totals: 
Dit OFQEFTOtEAL =.AGIEEIATLe Ode IF OEFQEES | 
INTO SUM(OEIEETOEAL) 


كما يمكنك استخدام قسم Aggregate‏ لتعدیل الاستعلام فمثلا یمکن استخدام قسم reat‏ ععA‏ لإجراء عملية حسابية على مجموعة استعلام 

' Returns the customer company name and largest 

order total for each customer. 

Dit euUStEomeE£Max = From êust In GuUSstomefs _ 
AGGEFEGAEE OFQEF IN. CEMSTOEIEES | 
IHEO.MaxOrdek = Max (OFdeF.TOEAL, _ 
Select cust.CompanyName, MaxOrder 


Let Clause 
اختياري ويقوم بحساب قيمة ويضعها في متغير جديد‎ 
'" REUEAS  @ LLSE Of products WItR a Calculation of 
a tên Percent. dLSCOUNE. 
DIL QLSOOUREEIPEOIUGES 3 FEO BEON IM. BEOQUGCES: | 
LEE. DISCOUNT, = BEOQA.UREEBETES * Ol _ 
Wiere DILSGOURE. 2= SOs | 
Select. pFOd:PEOduUCENamey, PEoOd. UNTLEPEIGé, DBDISCOUNE 


Distinct Clause 
اختياري وهو يضبط القيم المعادة من الاستعلام بحيث لا يجلب قيما مكررة‎ 
' Returns a list of cities with no duplicate entries. 
Dim Cities = FEOM. LEON. Hi CUStEomers: | 
SElECE CUSEOMEE. CIEY 
DISELROE 


Skip Clause 


i 


' Returns a list of customers. The first 10 customers 


are ignored and the remaining customers are 

EFELUEHNeEQ: 

Dit CUSEOMEELISE. = FEONL.OUSE: TM CUSEOMEES, | 
SKID. 10 
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Skip While Clause 
' Returns a list of customers. The query ignores all 
customers until the first customer for whom 
IsSubscriber returns false. That customer and all 
remaining customers are returned. 
Dint ‘CUSEOMEELISE. = FEO. CUSE TIM CGUSEOMEES. 
Skip While IsSubscriber (cust) 


Take Clause 
اختياري ويعید عددا من العناصر المتجاورة في بداية المجموعة‎ 


'" REGUENS EhE EIESE. 10 EUSEONREES: 
Diit CUSEOmMeELLSE = FEO CUS IM eUStomers, _ 


Take 10 


Take While Clause 
ويتجاهل بقية العناصر‎ ۲٣ اختياري يقوم بتضمين عناصر المجموعة طالما قيمة الشرط مں‎ 


' Returns a list of customers. The query returns 

' customers until the first customer for whom 

' HasOrders returns false. That customer and all 

' remaining customers are ignored. 

DIM CUSEOMEESWLENOEIEES = From OUSE In ‘CEUs EoOMEeES _ 
OEJEE BY EUST;OEQEES. COURNE DéEsGEndInNGg _ 
Take While HasOrders (cust) 


كما يمكنك استخدام خصائص إضافية لاستعلام ۹اا باستدعاء عناصر المجموعات والأنواع المستعلم عنها التي يوفرها "أا حيث يمكنك 
استخدام هذه الإمكانيات الإضافية باستدعاء معامل استعلام على نتيجة الاستعلام فمثلا الكود التالي يستخدم الطريقة Union‏ لدمج ناتج 
استعلامین في نتيجة استعلام واحدة ويستخدم الطريقة ToList(TSource)‏ لإعادة ناتج الاستعلام كقائمة 


Public Function GetAllCustomers () As List (Of Customer) 


Dim customersl1 = From cust In domesticCustomers 
Dim customers2 = From cust In internationalCustomers 
Dim customerList = customers1.Union (customers2) 


Return customerList.ToList () 
ENQA EFüfetion 
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ترقية مشاريع 2005 لتعمل على 2008 ثم إضافة دعم هم1 لتلك المشاريع 


افتح مشروعك ضمن بيئة تطوير 2008 فيظهر لك معالج الترقية تلقائيا - اضغط ×ع" 

يظهر لك المعالج خيار عمل نسخة احتياطية للملفات القدnة‏ êنختlر‏ llئخيlر pû Yes, create a backup before converting‏ 
يقترح مكانا لوضع النسخة الاحتياطية فيه في مربع النصوص تحت الكلمة مں)عھط ۲ه صtioمعها‏ حيث يمكنك تغییرہ بالضغط 
على الزر وس8 أو تركه كما هو - اضغط »عم فيظهر لك معلومات عن الترقية - اضغط هنا اوم۴ للبدء بعملية الترقية 
بعد الانتهاء تظهر لك نافذة تخبرك بانتهاء عملية الترقية وفيا خيlار  Show the conversion log when the wizard is‏ 
لعا وبتفعيل هذا الخيار يظهر لك تقرير عن عملية التحويل بعد إغلاق المعالج هنا اضغط وا٣‏ 

كما تجدر ملاحظة أن مشروعنا بعد التحويل حتى هذه النقطة مازال متوافقا مع بيئة تطوير ال2005 

من re۲ه‌ام×ع‏ nهutiام؟‏ انقر بزر الفأرة اليساري نقرا مزدوجا على اءعزه۴ 0y‏ لفتح خصائصه 

افتح صفحة مامه وقم بضبط الخيار |١۴٠١‏ ١هنام0‏ إلى 0۸ الذي يخبر المعالج أن يستدل على نوع المتغيرات المحلية من 
التعبير الذي يضبط قيمة ذلك المتغير إن لم نزوده بنوع ذلك المتغير - ولمزيد من المعلومات حول هذا الخيار يمكنك قراءة 
موضوعي في المنتدى بعنوان الاستدلال المحلي عل illوع Local Type |nference‏ 

انتقل لأسفل صفحة عام مه ثم اضغط الزر هام0 عاامصmهع‏ dمععمvaلA‏ الذي يظهر لنا صندوق حوار بخيارات الترجمة 
المتقدمة حيث نرى في أسفل هذه النافذة الخيار )اسع ص هr؟‏ tمعar٣‏ والذي مازال مضبوطا على ال 2.0 )0۲ W‏ هم۴ حتى 
الآن حيث يمكننا هذا الخيار من كتابة كود يعمل على أي نسخة من نسخ الفريموورك الموجودة ضمن بيئة تطوير واحدة فبدلا من 
تنصيب عدة نسخ من 0الںا؟ اجuء۷‏ على نفس الجهاز بهدف العمل مع أكثر من )ام سع "ه٣۴‏ أصبح الآن بإمكانك عمل ذلك 
من داخل بيئة تطوير واحدة هي 2008 ومن أجل تمکین ٩٣ا‏ سنختار 3.5 ٣٥W ٥۲k‏ ھ٣۴‏ ثم اضغط على )0 فیظهر لنا تحذير 
بأنه سيتم إغلاق وفتح المشروع تلقائيا وأنه سيقوم بحفظ أية تغييرات غير محفوظة تلقائيا وهنا اضغط ءع۷ 

انقر بزر الفأرة اليساري نقرا مزدوجا على اععزهإ۴ ۷y‏ لفتح خصائصه وانتقل للصفحة ءعء R۴٠١‏ فنلاحظ أنه قد تم إضافة 
مرجعا تلقائيا للمكتبة |اك.e٣0ء. e"‏ †ءرء من ال 3.5 Framework‏ للمشروع وذلك Target Framework ةıقرتب lنnق ii‏ 
ومن أجل تمكين استعلامات وا علينا إضافة بعض المراجع واستيراد بعض مجالات الأسماء اعتمادا على مزود وم11 الذي 
نحتاج لاستخدامه 

فمن أجل إضافة مرجع ل اءعزط0 ها وما نختار من القائمة أسفل sععaمءع Na"‏ rtدمص|‏ المجال و1ا.mعtءرك‏ الذي يمكننا 
من كتابة استعلامات وم1 على الأغراض المختلفة حيث أصبح بإمكاننا كتابة الاستعلام التالي للحصول على أسماء الملفات في 
اننا اللي 


Dim MyFiles = From Files In My.Computer.FileSystem.GetFiles (CurDir () ) 
Select Files 


ونلاحظ أنه بسبب خاصية Option |nfer‏ المضبوطة إلى "0۸ أن المترجم قد ضبط نوع المتغير MyFiles‏ إلى 
lEnumerable(Of‏ (ع٣‏ ٣اك‏ وذلك عند تمرير مشيرة الفأرة فوق المتغير ءعا¡y۴"‏ 


ومن أجل تمكين استعلامات ١ا‏ للاستعلام من ال وءاعءه†ه سنحتاج لبعض الإجراءات الإضافية وهنا افتح خصائص ,“× 
jectدمP‏ وعد للصفحة References‏ واضغط الزر 4 ومن صفحة tمم.‏ أضف مرجعا ل 
System.Data .DataSetExtensions‏ ثم اضغط OK‏ 

سنحتاج الآن لإعادة توليد ال عءه†ه التي نريد استخدامها مع استعلامات "1ا ولعمل ذلك ننقر بزر الفأرة اليميني على ال 
atasetط‏ المناسبة ثم نختار امتآ ص۳٥اوu٤ Run‏ من القائمة وهنا تقوم بيئة التطوير بإعادة كتابة كود ال اعءه†ه0 لتصبح 
الجداول ضمنها موروتة من فئة داعمة ل TypedTable Base ım~ٿ Linq‏ وهذا الذي يستدعي الحاجة لإضافة مجال الأسماء 
tem.Data.DataSetExtensionsءرS‏ وأصبح بإمكاننا الآن كتابة استعلامات من ال امهل مثل الاستعلام 


Dim MyCats = From category In Me.CategoryProductDataSet.Categories _ 
Where category.CategoryName Like "C*" | 
Select category 


ونلاحظ هنا أيضا أن المترجم قد ضبط نوع المتغير ئ‰ ٧¥‏ بناء على جملة الاستعلام المرتبطة به تلقائيا إلى 


EnumerableRowCollection 
في خصائص اءعزه۲ ۷۴ واضغط الزر هل۸ وأضف مرجعا‎ 8٠۴٠۲٠" ولكتابة استعلامات ۷1× ها ۹٣ا عد إلى صفحة‎ 
حتی نتمکن من کتابة‎ Syste ۳.×۳۱.ا1٣٩ وقم باختیار‎ اصpمorted‎ nam esمacمو تم انتقل إلى القائمة‎ System .Xmا|.اing‎ 

استعلامات من 1× 


135 


کمایوجد مزود آخر ربما نرید استخدامه وهو مزود اې؟ ٥ا ٣٩‏ أا حيث يمكن إضافته بسهولة فقط قم بlختيlر Add New Item‏ 
من قائمة Project‏ وقم بإاضافة Linq to Sql Classes‏ وهذا سيقوم تلقائيا باضافة المراجع والاستيرادات المناسبة لمشروعنا حيث 
سنلاحظ من صفحة ءع R٥۲٥"‏ في خصائص اء زه y۴‏ أنه قد تp‏ إضlفة‏ مرجla‏ آ System. Data.linq‏ 


أصبح الآن بإمكاننا استخدام وما للاستعلام على الأغراض كاءعزط0 المختلفة في مشروعنا بالإضافة إلى الاستعلام من اعءهtه0‏ أو 
Sql Databse Jڌ> gİ XML‏ 
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Linq وأساسيات استعلامات‎ اinq‎ o Object 


باستخدام مزود اء عزط0 0ا ۹ا يمكننا الاستعلام من أغراض دوت نيت المختلفة طالما هي تدعم الواجهة عاطة۲ مص" ںمع| أو الواجهة 
lEnumerable(T)‏ فمثلا يمكننا كتابة استعلام للحصول على قائمة بالملفات الموجودة في المجلد الحالي 


Dim Files = From Fi In My.Computer.FileSystem.GetFiles (CurDir () ) 
Order By Fi 


نلاحظ بداية أننا عندما قمنا بالتصريح عن المتغير ۴|٠5‏ في بداية الاستعلام لم نصرح عن نوع المتغير وذلك لأن المترجم هنا يستدل على 
نوعه من التعبير الذي يضبط قيمته وهنا أفترض أنك قد درست موضوعي بخصوص الاستدلال المحلي عن النوع وفي حالة الاستعلام 


السابق إن قمت بتمرير مؤشر الفأرة فوق المتغير ها۴ ستجد أن بيئة التطوير قامت بضبط نوعه إلى 
Sytem .اing.!0rderedEnumeable (Of String)‏ باستخدام الاستدلال المحلي على النوع ونبدأً بكتابة الاستعلام بالقسم ۴۲٥۳‏ حيث 
نحدد أنه لدينا متغير ز۴ يحصل على قيمته من الكائن الذي يلي الكلمة "!| وفي استعلامنا هنا 


My. c0mputer.۴ileSystem.GetFiles(CurDir())‏ حيث تجدر الملاحظة إلى أن استعلامات ٠ا‏ جميعها تكون سطرا واحدا في لغة 
فيجول بايزيك لذا من أجل التنسيق وقابلية القراءة والتعديل نقسم العبارة على عدة أسطر باستخدام محرف المتابعة _ ونريد هنا أن نخرج 
قائمة مرتبة بأسماء الملفات لذا نستخدم قسم ۲8۷٥ل"0‏ ليقوم بترتيب أسماء الملفات المعادة من الاستعلام وكي نظهر قائمة الملفات هذه في 
×180ءiا‏ نستخدم حلقة ۸ع هع ... ۴٥۲‏ للدوران عبر عناصر المجموعة المعادة من الاستعلام بما أنها تحقق الواجهة lEnumerable‏ 
وإضافتها عنصرا عنصرا لمربع القائمة كما في المثال 


Fo Each f TI Eilées 
Me.ListBox1.Items.Add (f) 


Next 


كما يمكننا استخدام الاستعلام ضمن استعلام آخر فللحصول على معلومات الملفات المعادة من الاستعلام السابق يمكننا كتابة الاستعلام التالي 
حيث يحدد القسم عم |م؟ أن النتيجة المعادة هي مجموعة من "۴١‏ |ع|أ۴ بحسب القيمة المعادة من الدالة ٥۴,|ع|۴İامGĞ‏ 


Dim FInfo = From File In Files 


Select My.Computer.FileSystem.GetFilelnfo (File) 


ويمكننا إظهار نتيجة هذا الاستعلام في سا4۷ 6ه مباشرة وذلك بضبط قيمة الخاصية عءإuم؟5هه‏ إلى نتيجة عائد الدالة ااه 
الخاصة بمتغير الاستعلام "۴٥‏ اع أ۴ كما في الكود 


Me.DataGridViewl.DataSource = FInfo.ToList 

کما یمکننا استخدام قسم ctعاعS‏ لتخصيص المعلومات المعادة من الاستعلام وبشکل مشابه لما کنا نفعله في عبار ة ٤t‏ اعS‏ التي نستخدمها في 

استعلامات 5۵1 فبدلا من اعادة كافة خصائص ٥۴٣۱ع‏ اا۴ كما في الاستعلام السابق يمكننا كتابة استعلامنا لإظهار اسم الملف ووقت الإنشاء 
فقط كما في المثال 


Dim MyINfO = EFEOM F1 IR FInfo | 
Select Fi.Name, Fi.CreationTime 


كما يمكننا إعادة نتيجة هذا الاستعلام ضمن غرض من إنشائنا بدلا من النوع الذي يتم تحديده تلقائيا كنتيجة للاستعلام فإن كان لدينا فئة بسيطة 
باسم sھا¡My۴‏ تمتلك خاصیتین ۸۲1"٥‏ ٥2iعr٤‏ من النوع ع02 و ٥۳ھN‏ من النوع ع٣ا‏ يمكننا عندها إعادة كتابة استعلامنا بالشكل 


BI MyFi1les = FeoN EL I FEINfEO 
Select New MyFiles() With {.Name = Fi.Name, .CreationTime = Fi.CreationTime} 


حيث سيعيد الاستعلام النتيجة كمجموعة (5عM¥۴¡|e‏ le)O0OfاEnumerab]‏ ويمكنك مراجعة موضوعي ۲۹عizاھ |i‏ ectز0b‏ بخصوص 
صيغة تعريف الفئة ما۴ ضمن الاستعلام 


وان أردنا تخصيیص ناتج الاستعلام للحصول على الملفات التي تحمل الامتداد م×ع فقط مثلا نستخدم قسم where‏ الذي يحدد شرط الانتقاء 
في جملة الاستعلام مستخدمين الطريقة كلمع لاختيار اسم الملف الذي ينتهي ب م×ه. عندها يمكننا كتابة الاستعلام بالشكل التالي 
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Dim ExeFriles = From Fi In My.Computer.FileSystem.GetFiles (CurDir () ) 
Whee Fi1.EndSsWICH(™ sexe). 
Select My.Computer.FileSystem.GetFilelnfo (Fi) 


وإن أردنا الحصول على مجموع حجوم الملفات من النوع »م يمكننا استخدام ناتج الاستعلام السابق في استعلام جديد 


Dim ExeSize = Aggregate FS Ih ExXeFiles: | 
Into Sum (Fs.Length) 


Me.TextBox1.Text = ExeSiz 


فھنا استخدمنا عاھعماععA‏ بدلا من ۴٣٣۳‏ في بداية الاستعلام عندما نريد استخدام الدالات التجميعية للحصول على نتائج تجميعية من 
الاستعلام ففي قسم |٥‏ استخدمنا الدالة ہں؟ للحصول على مجموع الحجوم 


إذا افترضنا أنه لدينا فئة باسم اعم هء م۴ تمتلك الخصائص ع" Na‏ و Birthdate‏ و Age‏ و City‏ و aryاهS‏ وقمنا بإنشاء قائمة تحتوي 
على مجموعة عناصر تمتلك نوع هذه الفئات 


Dim Pers As New List (Of Personnel) 


وبافتراض أن هذه القائمة تحتوي على العديد من العناصر يمكننا كتابة مجموعة من الاستعلامات للحصول على معلومات مختلفة حول 
عناصر هذه القائمة فإن أردنا قائمة بالأشخاص الذين راتبهم أكثر من 10000 وأردنا في الناتج فقط الاسم والعمر والراتب وترتيب النتائج 
بحسب الراتب يمكننا كتابة الاستعلام كما يلي 


BIM PES. = FEO EB Tm PEELS | 
Where p.Salary > 10000 _ 
OrQeE By p.Salary _ 
Select p.Name, p.Age, p.Salary 


وإن أردنا فقط الأشخاص الذين يقيمون في مدينة دمشق فقط سيصبح استعلامنا بالشكل 
DIR. EFS =: FEM Bp IM PefS |‏ 
Where p:Salafry > 10000 And p:CLiEy = "Damascus" |‏ 


Fer By p:Salary _ 
Select p.Name, p.Age, PpP.Salary 


وإذا أردنا الأشخاص في مدينتي دمشق وحماة الذين رواتبهم أكثر من 10000 يصبح استعلامنا كما يلي 


DIM PES Fito. p: Im. Pers 


Where p.Salary > 10000 5 
ANd. (P.CITEyY = DAMASCUS OF Gp. CILy = Hama”) 
ORHeE BY BSalary 


Select p.Name, p.Age, p.Salary, Pp.City 


وإن أردنا الحصول على مجموع رواتب الأشخاص المقيمين في حلب يمكننا كتابة الاستعلام 


DIM GES = AGOFEEGSEE G TI Pers | 
WNHEEê piCITy = TALEDBO™ _ 
Into Sum (p.Salary) 


وإن أردنا الحصول على معلومات الشخص الذي يحصل على اعلى راتب 


Di. pE = FEO p Tm Pers | 
AGIEEGAES pa IM PeES | 
Into a = Max (pa.Salary) 
Where p.Salary = a _ 
Select Pp 
وإن أردنا معلومات من يحصل على أقل راتب في مدينة حلب‎ 
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DIR pF = .FEOM GB In. PES | 
AGGTEEOUAES pa THE PEES 


Whee Pa.CIEy = TAleBbo™ 2 

Into a = Min (pa.Ssalary) _ 

Where p.Salary = a And p.City = "Aleppo" _| 
Select Pp 


وبافتراض انه لدينا فئة ثانية باسم ءعطع "ه8 تمتلك الخصائص ع2۳١‏ ۸١ا8‏ و اا٣‏ وقمنا بإنشاء قائمة تحتوي على مجموعة عناصر 
من نوع هذه الفئات 


Dim Brnch As New List (Of Branches) 
يمكننا كتابة الاستعلام التالي للحصول على اسم الشخص والفروع المتوفرة في مدينته‎ 
Dim BrnPer = From pe In Pers 


Join br In Brnch On pe CItEy EOUSLS: BECI 
Select PersonName = pe.Name, BranchName = br.BranchName, pe.City 


حيث استخدمنا مز لربط مجموعة الأشخاص مع مجموعة الفروع باستخدام المدينة ثم استخدمنا †عه|م؟ لتحديد الحقول المطلوب إخراجها 
في نتيجة الاستعلام 


الآن نريد إظهار قائمة بجميع الأشخاص مع الفروع المتوفرة لهم وبذلك سيصبح استعلامنا بالشكل 


Dim PreBrt = FFom pe In Bers _ 
GFOUD Nom BE Tî Btnch Of De. CIEy EBOUAlS GESCICY | 
IREG AVBE 3= GEO 
Select pe, AvBr 


في البداية اخترنا المتغير P٥‏ من قائمة الأشخاص Pers‏ ثم lږتخدIian Group Join‏ لربط هذه القائمة مع قائمة الفروع باستخدام حقل المدينة 
ثم وضعنا ناتج الربط من القائمة الثانية في متغير ۸۷8۲ في قسم |٠٤٥‏ تم حددنا في قسم اعم |ع؟ النتائج التي نريدھا م۲ و AvBr‏ 


ويمكننا إظهار ناتج الاستعلام في ×0 18ء[ باستخدام حلقتي ٥1‏ هع ... ۴٥۴‏ متداخلتان 


For Each a In PEeBE 
Me.ListBoxl.Items.Add(a.pe.Name &4 ": " & a.pe.City) 
For Each b In a.AvBr 
Me.ListBox1.Items.Add(".... " & b.BranchName) 
Next 
Next 


أو إذا أردنا استخدام سع 4۷ا6 ههد لإظهار النتائج سنحتاج إلى تحكمان سwع4۷iاا6هtه‏ 0 و تحكمان عurcمك5عinك8Bin‏ ولعمل ذلك في 
البداية سنعرف متغيرا على مستوى النموذج من النوع ۷اه ٥ء¡‏ حيث تكون المفاتيح هي الأشخاص والقيم هي الفروع كما يلي 


Private Gper As Dictionary (Of Personnel, IEnumerable (Of Branches) ) 


ثم نقوم بوضع ناتج الاستعلام في متغيرنا عم حیث نستخدم تعابیر لمدا - هل درست المواضيع المتعلقة بتعابير لمدا - لإضافة المفاتيح 
والقيم إليه كما في الكود 


Gper = PreBr.ToDictionary (Function (x) x.pe, Function (y) y¥.AvBr) 
ں50 ع" لہا8 مع تحكمات wع۷iلاا6ه†ه0 كما في الكود‎ r٥٥ ثم سنقوم بربط تحکمات‎ 


Me.DataGridView1l.DataSource = Me.BindingSourcel 
Me.DataGridView2.DataSource Me.BindingSource2 


ثم نقوم بضبط خاصية Dat 250 ure‏ ل Binding Source1‏ إلى قیم مفاتیح Gper‏ 
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Me.BindingSourcel.DataSource = Gper.Keys 


وبذلك يتم إظهار قيم المفاتيح في 1سء ۷لا 6ه التي ستظهر قائمة الأشخاص ولإظهار قائمة الفروع المتوفرة لكل شخص في 
DataGridView 1‏ في 2 ata GridView‏ نقوم بمعالجة الحدث CurrentCha n ged‏ ل Binding Source1‏ باستخدام سطر الکود التالي 


Me.BindingSource2.DataSource = Gper (CType (Me.BindingSourcel1l.Current, Personnel) ) 


الذي يحصل على القيمة في ال ictionaryط‏ المقابلة للسجل الحالي في BindingSource1‏ وyضڊطl‏ ك J DataSource‏ 
Binding Sour ce2‏ فيتم عرضها في ۷2ء4۷١۲‏ 6ه التي ستظهر قائمة الفروع المتوفرة لذلك الشخص عند النقر عليه في 
DataGridView1‏ 
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Linq To DataSet 


بافتراض أن قاعدة البيانات لأس ٣اه‏ مثبتة في جهازك من نافذة عمك ه0 في بيئة التطوير أضف مصدر بيانات جديد 
لمشروعك يتضمن الجدولين ءعأامععاة) و ءاعں لهم وباستخدام طريقة السحب والإفلات اسحب الجدول ءعا٣معع†ه)‏ إلى سطح النافذة 
الفارغ لإضافة سء ا۷ل 6ه†هD‏ مع بعض التحكمات للنموذج ثم من نافذة عع uمكه†ه0‏ وسع العقدة بجانب انئجدوJ Categories‏ 
واسحب الجدول واعں ل ه۴ الذي بداخل الجدول ءعاهعهه إلى سطح النافذة ليتم إنشاء سء ۷1لا 6ه ثانية أسفل الأولى خاصة 
بالجدول اع ں له" طبعا لن أقوم بشرح هذه العملية بتفصيل أكثر بما أنها برمجة قواعد بيانات ودورتنا تتحدث عن ول ٣ا‏ فإن واجھت 
مشكلة ابحث في القسم المناسب في المنتدى أو حاول رؤية فيديوهات ميكروسوفت التعليمية بخصوص هذه النقطة وقبل المتابعة يجب أن 
تتأكد أن مشروعك يعمل جيدا وأن ال سء ۷لا 6ه الثانية تعرض البيانات المقابلة لما تم اختياره من الأولى فقط. 


انتقل إلى محرر الكود للنموذج وقم بإنشاء إجراء معالجة نلنٹحدث CategoriesBindingSource pكھتll CurrentChanged‏ وللحصول 
غلى الط الحالى تستخذم الكون التالى 
Dim row As NorthwindDataSet.CategoriesRow‏ 


row = CType (CType (Me.CategoriesBindingSource.Current, _ 
DataRowView) .Row, NorthwindDataSet.CategoriesRow) 


وللحصول على إجمالي قيمة البضائع في تلك الفئة والتي مازال إنتاجها مستمرا يمكننا كتابة الاستعلام 


Dim Total = Aggregate Product In NorthwindDataSet. Products _ 
Where Product.CategoryIlD = row.CategorylID _ 
ANSALlS0 .PFOdUCE:DISEORNtEINüEd = Falée _ 
INES SUM(BEOQUCE,. URLEPEICe * PFOQUCE.UNLESINSEOCKE) 


وبافتراض أنك متابع معي منذ البدء أصبحت تعرف طريقة الاستعلام فهنا استخدمنا مهعهععA‏ في بداية الاستعلام بما أننا نريد استخدام 
الدالات التجميعية للحصول على مجموع الكلفة الإجمالية للبضائع التي مازال إنتاجها مستمرا ثم حددنا في قسم ۷٠١٠١‏ الشرط بأننا نريد أن 
يتم تجميع المنتجات الموافقة للفئة المحددة Product. category|D = row.Category|ID‏ وأن انتاجھا ما زال مستمرا 

Product.Discontinued = False‏ ثم استخدمنا قسم |٣0‏ للحصول على الإجمالي المطلوب وذلك بتمرير جداء قيمة المنتج والعدد 
الموجود للدالة التجميعية "ں؟. ولإظهار نتيجة الاستعلام على النموذج ضع صندوق نصوص على النموذج واستخدم الكود التالي لوضع 
القيمة فيه الذي يستخدم الأمر ه۲٠۴‏ لتنسيق القيمة المعادة من الاستعلام بتنسيق عملة 


Me.TextBox1.Text = Format (Total, "c") 
لتنفيذ بعض التصفية على الفئات أضف تحكم صندوق نصوص وزر إلى شريط الأدوات الموجود في أعلى النموذج وفي إجراء حدث النقر‎ 
على الزر أدخل الاستعلام التالي‎ 
Dim SelCat = From Cat In Me.NorthwindDataSet.Categories _ 
Where Cat.CategoryName. ToLower Lik Me. TOOLSTEIPTExXEBOxXL. Text. TOLOWEE ¢ TA" | 
SLES Cat 
Me.CategoriesBindingSource.DataSource = SelCat.AsDataView 
لتصفية النتائج المعادة من الاستعلام تماما كما نفعل في استعلامات قواعد البيانات ثم نقوم بضبط‎ ۷٥۲٠٥ حيث قمنا باستخدام )أ1 في قسم‎ 
الخاصة‎ AsDataView لكي يظهر لنا نتائج الاستعلام حيث أن الطريقة‎ ategoriesBindingSource ل‎ DataSource خاصية‎ 
Linq to DataSet مںعت~l‎ Jûnı Linq d ھ ھ5 داعم‎ ۷i بالاستعلام تعید غرض‎ 


دعنا نجري بعض الاستعلامات الأخرى وسع نافذة مشروعك قليلا وأضف wWء26۲14۷iة0‏ وزر أوامر جديدان عليھا ثم سنستخدم كودنا 
السابق الذي يحصل على متغير يحمل السجل الحالي في ععاuه؟عہ”8indiءiesمoعهat‏ للحصول على معلومات السجل الحالي الذي تم 
اختياره في ew‏ 0226|4۷ ء0ieعمCat‏ وذلك في بداية إجراء معالجة الحدث )ءا لزر الأوامر 
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Dim row As NorthwindDataSet.CategoriesRow 
row = CType (CType (Me.CategoriesBindingSource.Current, _ 
DataRowView) .Row, NorthwindDataSet.CategoriesRow) 


الآن يمكننا كتابة الاستعلام التالي للحصول على قائمة بالمنتجات التي مازالت قيد الإنتاج مع السعر الإجمالي للموجود منها حاليا وإظهار 
النتيجة في W1ء6|4۷iه†ه0‏ والتي من الفئة التي تم اختيارها من الشبكة الخاصة بالفئات 


Dim Prods = From pr In NorthwindDataSet. Products _ 
Where pr.CategoryID = row.CategoryID _ 
And pr.Discontinued = False _| 
SELE PE-EFEFOQdUGENaAmMEe, ‘BE: URLEPELEe 
pr.UnitsInStock, Total = (pr.UnitPrice * pr.UnitsInStock) 


Me.DataGridView1.DataSource = Prods.ToList 


أضف ثلاث صناديق نصوص إلى النافذة حيث سنقوم بإنشاء استعلام جديد لحساب متوسط سعر الوحدات الموجودة ومجموع الكميات والقيمة 
الإجمالية وذلك من أجل نفس الفئة التي أظهرنا نتائجها في الاستعلام السابق 


Dim ProdSums = Aggregate pr In NorthwindDataSet. Products _ 
Where pr.CategorylIlD = row.CategoryID _ 
And pr.Discontinued = False _ 
Into UntiSum = Sum (pr.UnitsInStock), PriceAvg = Average (pr.UnitPrice), _ 
TotalValue = Sum (pr.UnitPrice * pr.UnitsInStock) 


Me.TextBox2.Text = ProdSums. PriceAvg.ToString ("#,###.00") 
Me.TextBox3.Text = ProdSums.UntiSum 
Me.TextBox4.Text = ProdSums.TotalValue 


لاحظ أن طريقة كتابة استعلامات ٩٣ا‏ قريبة جدا من طريقة كتابة استعلامات ءءاعء في ا5۵ مع بعض الاختلاف في الترتيب وأن صيغة 
هذه الاستعلامات متشابهة مهما اختلف مزود 11٠‏ الذي نتعامل معه حيث يمكننا استخدام الأشكال المختلفة للاستعلام التي وردت في الدرس 
السابق المتعلق ب ءعزط0 ه† وا هنا أيضا عندما يتعلق الأمر ب اعءه†ة٥‏ ه† "ا وفي الدروس المستقبلية عندما نتحدث عن 0ا 4٣ا‏ 
Linq to Sql gs xml‏ 
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Lambda Expressions plدختwا‎ ga Linq To DataSet مثال عملي عذى‎ 


الهدف من المثال 


.١‏ حفظ بیانات ate‏ في ملف | × واستعادتها منه والتعامل معها بدون الحاجة لوجود قاعدة بيانات 
۲. الاستعلام من ال اع5ه†ه باستخدام أا ومن أكثر من جدول وإدخال بعض الحسابات في جملة الاستعلام واستخدام عبارة 
"اهل لمنع التكرار الخاطى للبيانات 

۳. استخدام و م‌أووع۲م×ع هلطم ه1 للقيام بالحسابات من أجلنا والاستفادة من ميزة رفع المتغيرات 

.٤‏ إظهار نتيجة استعلام أا في wWع 6۲4۷i‏ ه0 مباشرة 
من أجل ترك الموضوع عام وبما أن مجموعة البيانات 8€ يمكن ربطها مع أي قاعدة بيانات سأقوم بالعمل على مجموعة 
بيانات غير مربوطة مع قاعدة بيانات حيث يمكنك تطبيق الأفكار الواردة هنا على أي قاعدة بيانات يمكن ربطها مع أي اع5هه0 وسيكون 
مثالي الذي سنسير عليه هنا معتمد على خدمة مصرفية تدعى بالودائع لأجل 


افتح أي إصدار من فيجول ستوديو 2008 وأنشئ مشروعا جدیدا من نوع ۸٥iati0اApp Windows Forms‏ ثم من قائمة cعزم۴Pr‏ اختر 
الأمر صmع†ا Add New‏ وأضف ام5هاه0 للمشروع وقم بتسميتها ام5ةة ۷0 ثم في محرر التصميم الرسومي لمجموعة البيانات انقر 
بزر الفأرة اليميني واختر الأمر عاطةه†ه0 من قائمة هل۸ في قائمة السياق ثم قم بإعادة تسمیته لیصبح اسمھہ ٥٣٤١۹‏ یں تم أضف 
للجدول ١٣ع"‏ ٥ءںع‏ الحقول التالية مع الخصائص الموضحة بجانب كل منها 


الحفقل 05| ائخlصية AutolncrementSeed jlتيصlخlly True ةمnيقllب Autolncrement‏ ڃڪ Autolncrementstep‏ كلتاهما إلى 
القيمة 1 و نوع البيانات ٠.1۲32‏ tءر؟‏ ثم انقر بزر الفأرة اليميني على الحقل 0| واختر الأمر رع» راصام" امك من قائمة السياق 
لتحديد الحقل كمفتاح أساسي 


25 نوع البیانات ۽¬System.Stri و engthاMax بالقيمة‎ CustomerN ame الحقل‎ 
MaxLength 25 y System.String ٽliloll‎ zعgi‎ CurrentAccountNumber Jتحنl‎ 


حيث أن الحقل 0| هو معرف الزبون و ٤us†o e۲2٥‏ هو اسم الزبون والحقل CurrentAccountN umber‏ هو رقم الحساب 
الجاري لدى المصرف 


أضف جدول آخر لمجموعة البيانات باسم ةع ةله وأضف له الحقول التالية مع الخصائص الموضحة بجانب كل منها 
اzJتJ String ٽlنlıڊ عgiڊ Wadeaa Number‏ 

الحقل e٣۱٥‏ ہہ tوںC‏ بنوع بیانات ۱۸۲32 

الحقل ع2 |nteres1۸‏ بنوع بيانات Dein a|‏ و Value‏ |ااNu‏ مساوية ل 7.5 

الحقل Wad eea Pe ri٥‏ بنوع بیانات ۸16| و ue‏ Val|ااBu‏ مساوية ل 3 

DateTime ٽlنlıڊ‎ عوiڊ‎ StartDate Jتحنا‎ 

الحقل † Wadeaa Amour‏ بنوع بیانات ۸32| و ue‏ اVa||اNu‏ بقیمة 10000 


حیث Wadeaa Number‏ هو رقم الودیعة و ٣٤۲۱0‏ ٥tایںC‏ ھو حقل مرتبط بجدول الزبائن و |nterestRate‏ نسبة الفائدة و 
WadeeaPeriod‏ فترة الوديعة بالأشهر و عماة 2۲۲2ا تاريخ فتح الوديعة و ا٣‏ uه‏ "4 هع Wad‏ قيمة الوديعة 


سنضيف الآن علاقة بين الجدولين: انقر بزر الفأرة اليمني على الجدول ءامص ہیں ومن القائمة الفرعية ل۸ اختر ٥۸‏ ام8 ثم اضبط 
Key Columns رتëخl pۃî Wadaeaa gl! Child Table gy Customers gl! Parent Table‏ ليضم llحتJ‏ 5| خق¡ط و Foreign Key‏ 
Columns‏ لیضم الحتJ Custo me r|D‏ فط م |ختر خر Both Relations And Foreign Key Constraint‏ ثم اضغط )0 من أجل 
حفظ العلاقة ثم اختر الأمر اا۸ مه6 من القائمة مان۴ 
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انتقل إلى محرر النماذج الخاص ب ۴٥۲۳1‏ واجعل مساحة ۴٠۲"1‏ كبيرة كفاية لتتسع ل 2 × سع ۷لا 6ه مع شريط أدوات وبعض 
التحكمات الأخری التي سنضیفھا لاحقا ثم انتقل لنافذة وعcاںہم؟‏ واھ واسحب الجدول ۶٣ع‏ ہیں ثم القھ علی سطح ۴٥۲٣1‏ فیتم 
إضافة Wع 060۷i‏ و شريط أدوات للنافذة 


من نافذة وءعءإںه؟ هاه انقر إشارة + بجانب الجدول ك۲ع" هو لتظهر لك قائمة بالحقول الخاصة به كما نلاحظ وجود نسخة من 
الجدول aaعةلةW۷‏ كجدول فرعي ضمن ٣٠١١‏ 0ءںع وذلك بسبب العلاقة التي قمنا بإنشائها بين الجدولين الآن قم بسحب الجدول 
Wade‏ الموجود کجدول فرعي ل ٣٥۲۶‏ ٥†ءںع‏ وليس الجدول الخارجي إلى سطح ۴٥۲٣1‏ ليتم إنشاء سا4۷ 6هه0 أخرى على 
النافذة ثم قم بتنسيق النافذة بشكل جيد وتأكد من أن ال سwع۷iلاا6‏ 2ه الخاصة ب ءامص هاو في الأعلى و الأخرى في الأسفل 


اختر a64۷1 w‏ Datءerمustomع‏ وانقر على السهم الصغير الذي يظهر في زاويتها اليمينية العلیا واختر الأمر sہصںاه‏ اع واضبط 
الخاصية عاطاوءا۷ للحقل ۱١‏ إلى عءاه۴ تم كرر العملية بالنسبة لنلحقJ Customer|D‏ في WadaeaaDataGridView‏ 


في شريط الأدوات في الأعلى انقر بزر الفأرة اليميني على زر الحفظ - يمتلك أيقونة قرص - واختر الأمر 4١عاطهمع‏ لتفعيله ثم انقر عليه 
نقرا مزدوجا لننتقل إلى محرر الكود تم أدخل الكود التالي في حدث النقر على زر الحفظ حيث نستخدم الوظيفة Writ eX‏ لتخزین 
محتويات مجمو عة البيانات في ملف إ× 


TEY 

MyDataSet.WriteXml ("d:\TestData.xml") 
Catch ex As Exception 

MsgBox (ex.Message) 
End. TEY 


أنشئ إجراء لمعالجة الحدث هم1 للنموذج وأدخل فيه الكود التالي الذي سيقوم بتحميل البيانات من ملف اص× لاحظ ظهور رسالة خطأً عند 
تشغيل البرنامج لأول مرة وقبل حفظ البيانات حيث أن ملف البيانات لم يتم إنشاؤه بعد وهذا السبب في استخدام بلوك ۸ه ... ۲٣,‏ من أجل 
اصطياد الخطاً وتجنب إفشال عملية بدء البرنامج وقد استخدمنا الوظيفة 0×١‏ هءR‏ لتحميل البيانات من ملف ا × إلى مجموعة البيانات 


TEY 
MyDataSet.Clear () 
MyDataSet. ReadXml ("d:\TestData.xml") 
Catch ex As Exception 
MsgBox (ex.Message) 
End Try 


شغل البرنامج وأدخل فيه بعض البيانات في كلا ال سع۷iلاا6ه†ه‏ وتأكد من أنك قد قمت بتعبئة جميع الحقول في كلتا شبكتي البيانات 

وانتبه إلى أن الحقل لها م۴ ةع عله هو عبارة عن عدد أشهر فترة الوديعة لذا حاول الالتزام بالقيم 1 أو 3 أو 6 أو 12 كقيمة لهذا الحقل 
من أجل تجربة إجرائية الاحتساب لاحقا وقم بالحفظ وأغلق البرنامج ثم أعد فتحه من جديد للتأكد من أن عملية الحفظ قد تمت بشكل صحيح 
لاحظ عدم ظهور رسالة الخطا التي ظهرت عند فتح البرنامج لأول مرة بعد أن أدخلنا بيانات وقمنا بحفظها عند تشغيل البرنامج للمرة الثانية 


نرید الآن إظهار قيم الاحتسابات الخاصة بكل وديعة عند المرور عليها وكذلك تاريخ استحفاق هذه الوديعة 


أضف أربعة حقول نصية للنافذة ورتبها أسفل شبکتي البيانات وأعطها الأمتماغ اlتlلıة txtEnd Date‏ لتاريخ الاستحقاق و كاعم |†»×ع لقيمة 
الفائدة ٿڪ txtRayaa‏ لضريية الريع و ٣a‏ ةل|ا†»×ا لضريبة الإدارة المحلية ثم انتقل لمحرر الكود وأضف الاستيراد التالي في بداية ملف الكود 
الخاص ب ۴٠۲1‏ من أجل تمكيننا من استخدام الوظائف الموجودة في مجال الأسماء إNat‏ 


Imports ma = System.Math 


ثم أضف الإجراء التالي كإجرائية للاحتساب وهنا أرجو أن تكون قد تابعت دروسي المتعلقة ب ء٣0‏ اووم۲م×ع ماص ها1 لأنها الأساس في 
إجرائية الاحتساب 
Private Sub DisplayWaeaaCalcs (ByVal Amount As Integer, ByVal StartDate As Date, _‏ 


ByVal EndDate As Date, ByVal Interest As Decimal) 


Dim DaysNum = DateDiff (DateInterval.Day, StartDate, EndDate) 
Dim Rayaa As Decimal 


Dim Rayya_ Calc = Function (Intrst As Decimal) ma.Ceiling (Intrst * 7.5 / 100) 
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Dim Idara Calc = Function () ma.Ceiling (Rayaa * 10 / 100) 
Dim; Inhntrst_ Calg: = FUnEEILOR() _ 
ma.Ceiling (Amount * DaysNum * Interest / 36500) 


Dim TALE = TAtESt Calê() 
Rayaa = Rayya_ Calc (Intr) 
Dim Ida = Idara Calc() 


Me.txtEndDate.Text = EndDate.ToString ("dd/MM/yyyy") 
Me.txtInterest.Text = Intr.ToString ("#,###.00") 
Me.txtRayaa.Text = Rayaa.ToString ("#,###.00") 
Me.txtIdara.Text = Ida.ToString ("#,###.00") 

End Süb 


حيث استخدمنا في البداية الدالة 0۴۴ عه للحصول على عدد أيام الفترة التي سنقوم بالاحتساب عنها وكنا قد مررنا قيم المبلغ و تاريخ 
البداية وتاريخ النهاية ونسبة الفائدة كمحددات لإجرائية الاحتساب ثم عرفنا تعبير لمدا يقوم باحتساب قيمة ضريبة الريع cاة٣_۷4لهR‏ بناء 
على مبلغ الفائدة الممررة له وفي تعبير لمدا والضريية الأخرى لم نمرر لها قيمة ولكنها استخدمت متغير محلي من أجل الاحتساب وهنا 
أنصحك بمراجعة قسم رفع المتغيرات في مواضيعي المتعلقة بتعابير لمدا إن لم تكن قد قرأته حتى الآن وتعبير لمدا الأخير cاھC٥٣_ntrst|‏ 
يستخدم أيضا خاصية رفع المتغيرات ولكنه هنا يستخدم المحددات الممررة للإجراء كمتغيرات مرفوعة ثم نقوم باستخدام هذه التعابير 
للاحتساب ثم نظهر القيم في صناديق النصوص المناسبة 


من أجل أن نقوم باحتساب القيم الموافقة لكل وديعة عند المرور عليها سنقوم بعمل إجراء معالجة للحدث "٠۲‏ ٤||ع‏ لكلا شبكتي البيانات 
بإجراء واحد - أدخل الكود التالي كإجراء لمعالجة الحدث ١م†مع||م)‏ لكلا الشبكتين لاحظ ما بعد عبارة ءعالم ج في بداية تعريف جسم 
الإجراء وأيضا أنني لم أقم بتمرير أية محددات لإجراء معالجة الحدث حيث يمكنني فعل ذلك بما أنني متأكد من أنني لن أحتاج لاستخدامها 


Private Sub WadaeaaDataGridView CellEnter () _ 
Handles WadaeaaDataGridView.CellEnter, CustomersDataGridView.CellEnter 


TEY 
Dim EdDat = From a In MyDataSet.Wadaeaa _ 
Where a.CustomerID = Me.CustomersDataGridView.CurrentRow.Cells (0) .Value _ 
And a.WadeaaNumber = Me.WadaeaaDataGridView.CurrentRow.Cells (0) .Value _ 
Select a.WadeaaNumber, a.WadeaaAmount, a.StartDate, _ 
EndDate = DateAdd (DateInterval.Month, a.WadeeaPeriod, a.StartDate), _ 
a.InterestRate 


If EdDat.Count > 0 Then 
DisplayWaeaaCalcs (EdDat.First.WadeaaAmount, EdDat.First.StartDate, 
EdDat.First.EndDate, EdDat.First.InterestRate) 


EQ TÊ 

Catch ex As Exception 
Me.txtEndDate.Text = String.Empty 
Me.txtInterest.Text = String.Empty 
Me.txtRayaa.Text = String. Empty 
Me.txtIdara.Text = String. Empty 

End Trey 

End Sub 


في البداية قمنا بإنشاء استعلام ٠٠ا‏ للحصول على القيم الخاصة بالوديعة التي نقف عليها حيث أن المتغير ج هو كيان من الجدول 
W2‏ تم في قسم ۷٠۲١‏ ضبطنا الشرط بحيث يجلب الاستعلام فقط الودائع الخاصة بزبون معين عن طريق التأكد من أن قيمة 
الحقل ۲0ع" هاوں مساوية لقيمة 0| الخاصة بالزبون من خلال قراءة قيمة الخلية المناسبة في السطر الحالي وتتمة للشرط وبنفس 
الطريقة قمنا بضبط الشرط كي يجلب الوديعة ذات الرقم المراد ثم يأتي قسم اءء|م؟ لنحدد فيه قائمة الحقول التي نريد الحصول عليها لاحظ 
وجود الحقل المحسوب مE"402‏ الذي يتم حساب قيمته من الحقول المعادة من الاستعلام باستخدام الوظيفة 4١ل۸ءه‏ التي تضيف فترة 
زمنية معينة حسب المحددات الممررة لها إلى تاريخ ممرر لها وتعيد قيمة التاريخ الجديد وتعاد قيمته مع قائمة الحقول التي يعيدها الاستعلام 
وبعد الاستعلام نتأكد من أنه قد جلب نتائج فعلا بالتحقق من قيمة الخاصية Cunt‏ ثم نستدعي الوظيفة sء‏ 2٣22ع‏ ۷2هام¡ للقيام 
بالحسابات وإظهار النتائج 


شغل البرنامج ولاحظ ظهور قيم الاحتسابات في مربعات النصوص عند التنقل في كلا شبكتي البيانات إذا كانت لديك بيانات قمت بحفظها كما 
طلبت منك سابقا 


من أجل إظهار الودائع التي تبدأً بتاريخ معين وإظهارها أضف نموذج آخر للمشروع باسم ۴0۴۲۳2 تم أضف wسه4۷iاا26ه0‏ له واضبط 
الخاصية )عه للقيمة |۴ لجعل شبكة البيانات تملا كامل مساحة النموذج ثم نسق النموذج بحيث يكون كبيرا كفاية لعرض البيانات الناتجة 
عن الاستعلام ثم أضف زرا للنموذج ۴٣٠١1‏ واجعل إجراء معالجة حدث النقر عليه يماثل الكود التالي 
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PEivatê SUD: BUttOoNI_ CIICKE() Handles Button1l.CLick 
Dim d As Date = CDate (InputBox ("Enter Date") ) 
Dim Dawa = From a In MyDataSet.Wadaeaa _ 
Join B In MyDataSet.Customers On _ 
a.CustomerID Equals B.ID _ 
Where a.StartDate = d _ 
Select B.CustomerName, B.CurrentAccountNumber, _ 
a.WadeaaNumber, a.WadeaaAmount, a.WadeeaPeriod, a.StartDate, 
EndDate = DateAdd (Datelnterval.Month, a.WadeeaPeriod, 
a.StartDate) 


Dim c As New Form2 
c.DataGridView1l1.DataSource = Dawa.ToList 
c.DataGridView1l. Update () 

c.ShowDialog () 

E SUB 


لاحظ أنني استخدمت ميزة جديدة في فيجول ستوديو تمكنني من حذف محددات إجراء معالجة حدث ما إن كنت على يقين أنني لن أحتاج 
لاستخدامها وفي جملة الاستعلام تلاحظ أنني استخدمت ”1هل للربط بين الجداول عند عملية الاستعلام كي نتجنب مشكلة ظهور بيانات مكررة 
من أحد الجداول من أجل جميع سطور الجدول الآخر حيث استخدمنا نفس أسلوب العلاقة التي قمنا بإنشائها في البداية بين الجدولين من حيث 
ربط الحقل ٣٠۲10‏ ه0ءں في الجدول aaعةل‏ ج بالحقل |D‏ في الجدول ۲٥ص‏ ہیں و استخدمنا في قسم ۷٠١٥‏ شرط لتصفیية نتائج 
الاستعلام بحيث نحصل على الودائع التي تبدأً بتاريخ معين ثم نستخدم عبارة ءام لتحديد الحقول التي نريد إظهار ها كنتائج للاستعلام 


ومن أجل إظهار النتائج في ۴٠٣2‏ قمنا بإنشاء متغير من نوع تلك النافذة ثم ضبطنا قيمة u٥‏ ه5ه†ه لشبكة البيانات الموجودة على ذلك 
ال ا ةه من اه من اتر ااه قحل الا ا ككل كن اا في مك ارات ون اجن 
الخضول على الرذاتم الى تى قارع مين كا امتكذ تفن كرد افمايق ب كفل سط فى فم 6٠6ا‏ بحت بض لكر كنا 


PrFivatê Süb Bütton2 Click() Handles Bütton2.CLlick 
Dim d As Date = CDate (InputBox ("Enter Date") ) 
Dim Dawa = From a In MyDataSet.Wadaeaa _ 
Join B In MyDataSet.Customers On _ 
a.CustomerID Equals B.ID _ 
Where DateAdd (DatelIlnterval.Month, a.WadeeaPeriod, a.StartDate) = d 
Select B.CustomerName, B.CurrentAccountNumber, a.WadeaaNumber, 
a.WadeaaAmount, a.WadeeaPeriod, a.StartDate, _ 
EndDate = DateAdd (Datelnterval.Month, a.WadeeaPeriod, a.StartDate) 


Dim c As New Form2 
c.DataGridView1l1.DataSource = Dawa.ToList 
c.DataGridView1l. Update () 

c.ShowDialog () 
EQ. Sab 


لاحظ الاختلاف في قسم ۷٠۲٠‏ بين الإجراءين الأخيرين. هل يمكنك شرح عمل الإجراء الثاني بنفسك ؟؟؟؟ 
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Linq to XML مقدمة في‎ 


ا"× ها وا هي واجهة برمجة ا"× في الذاكرة تدعم وأا تمكنك من العمل مع بيانات |"»× المختلفة من داخل لغة برمجة ال اعم. 
Framework‏ وهي مشابھة ل |ع‌Mod Object‏ ocumentط‏ واختصارا 00M‏ التي تضع ال |× في الذاكرة حيث يمكنك الاستعلام من 
الوثيقة أو التعديل عليها ثم يمكنك حفظها أو إرسالها بعد التعديل ولكن تختلف |"× ه0 "أا عن 00۷ في أنها تزود نموذج غرضي 
Mode‏ اectزط0‏ أخف وأسهل عند العمل عليه وهي تستفيد من تطويرات اللغة في ال2008 


وتكمن الميزة الأهم التي تقدمها ا× ه† وما هي التكامل مع وما الذي يمكنك من كتابة استعلامات من وثيقة اص × في الذاكرة للحصول 
على مجموعة من العناصر والصفات التي تمتد لتشمل ۸اة۶× و ۷ں ۹× وتقدم لك ميزات إضافية مثل اكتشاف الأخطاء في وقت الترجمة 
ودعم أفضل للمدقق ٥۲‏ عع طء0 إضافة إلى ترميز أقوى وإمكانية استخدام نتائج الاستعلامات XAttribute ڍÎ XEle ment تlينlبl طئlw yS‏ 
توفر طريقة سهلة لإنشاء أشجار اص× وهي تدعى 0اا Constr u‏ اFunctiona‏ التي تمكن المطورين بسهولة من تحويل أشجار اص× 
بسهولة من شكل إلى آخر. 


وتمكنك إمكانيات أا في ا"× ٥‏ ٩٣نا‏ من كتابة استعلامات من ا"× فقد يكون لديك ملف × يمثل طلب مشتريات كالتالي 


PurchaseOrder.xml 


<?xml version="1.0"?> 
<PurchaseOrder PurchaseOrderNumber="99503" OrderDate="1999-10-20"> 
<Address Type="Shipping"> 
<Name>Ellen Adams</Name> 
<Street>123 Maple Street</Street> 
<City>Mill Valley</City> 
<State>CA</State> 
KZIBDST OSIF ELBS 
<COUREEY>USAS/COUREEY> 
</Address> 
<Address Type="Billing"> 
<Name>Tai Yee</Name> 
<Street>8 Oak Avenue</Street> 
KCTEV>OLA TONASZCLEYS 
<Staté>PA</State> 
<A1pSIS819S/2LB> 
<COUREEYZUSASZCOUREEY> 
</Address> 
<DeliveryNotes>Please leave packages in shed by driveway.</DeliveryNotes> 
<Items> 
<Item PartNumber="872-AA"> 
<ProductName>Lawnmower</ProductName> 
<OUERELEYELETOUARNELE Y> 
<USPrice>148.95</USPrice> 
<Comment>Confirm this is electric</Comment> 
</Item> 
<Item PartNumber=" 92 6-AA"> 
<ProductName>Baby Monitor</ProductName> 
SOUanNELEY>2</OUERNELEY> 
<USPrice>39. 98</USPrice> 
<ShipDate>1999-05-21</ShipDate> 
</Item> 
</Items> 
</PurchaseOrder> 


فباستخدام ×١‏ ه† ٩٣ا‏ يمكنك تشغيل استعلام للحصول على القيمة المقابلة للصفة عاص ں ۲ه من أجل كل عنصر في طلب المشتريات 


Dim purchaseOrder As XElement = XElement.Load("PurchaseOrder.xml", LoadOptions.SetBaseUri 
Or LoadOptions.SetLinelInfo) 


Dim partNos = 


From item In PUEERaASEOEIEEY SITCOMS 
Select item. GPartNumber 
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وقد تريد الحصول على قائمة مرتبة باستخدام ۲عطص لهم بالعناصر التي تحمل القيمة أكثر من 100 وللحصول على هذه المعلومات 
يمكننا كتابة الاستعلام 


Dim parftNos = | 
From item Ih BüurehasedEder...<TTEemn> | 
Wherê (LEEmM.<OUeRELEyS>,Valüe# 
item.<USPrice>.Value) > 100 
Order By item.<PartNumber>.Value _ 
Sélest iEem 


وباستخدام ا"× ها ۹٣ا‏ يمكنك عمل العديد من الأشياء كتحميل ملف من القرص أو تخزين ملف إلى القرص أو إنشاء بيانات اص× من 
الصفر أو الاستعلام باستخدام 1اةم× أو حتى التعامل مع أشجار |" × من حيث الإضافة والحذف والتعديل والتأكد من صحة أشجار × 
باستخدام 50× أو استخدام مجموعة مما ورد هنا لتحويل أشجار ا× من شكل إلى آخر 


وهناك طريقتان لإنشاء أشجار ا"× في اوج8 اهںء۷ إما بتعريف |اص× مباشرة في الكود أو باستخدام ءا٣۸۴‏ وا لإنشاء الشجرة وكلتا 
الطريقتين تمكنان الكود من عكس بنية ا" × شجرية كاملة فالكود التالي مثلا ينشئ عنصر ا× 


Dim contactl1 As XElement = _| 
KEORNEAEEZ 
<name>Patrick Hines</name> 
<phone type="home">206-555-0144</phone> 
<phone type="work">425-555-0145</phone> 
K7 EORNESTE 


ويقدم فيجول بايزيك عدة خصائص للتنقل عبر بنية ا× والتي تمكنك من الوصول إلى عناصر وصفات × عن طريق تحديد اسم عنصر 
ا× الابن أو يمكنك استدعاء طرائق هاا لتحديد العناصر الأبناء لعنصر ا× فالكود التالي مثلا يستخدم خصائص ا× للإشارة إلى 
الصفات والعناصر الأبناء لعنصر |× مستخدما استعلام وم1 للحصول على العناصر الأبناء وإخراجهم كعنصر |"× 


' Place Imports statements at the top of your program. 
Imports <xmlns:ns="http: //SomeNamespace"> 


Module Samplel 
Sub SampleTransform() 
' Create test by using a global XML namespace prefix. 


Dim contact = | 
<RNSi COREaACE> 
<ns:name>Patrick Hines</ns:name> 
<ns:phone ns:type="home">206-555-0144</ns:phone> 
<ns:phone ns:type="work">425-555-0145</ns:phone> 
S/RSTOOREaAECE> 


Dim phoneTypes = _| 
<phoneTypes> 
<%= From phone In contact.<ns:phone> | 
Select <type><%= phone.@ns:type %></type> _ 
> 
</phoneTypes> 


Console.WriteLine (phoneTypes) 
End Sub 


End Module 


ويمكنك وج8 اهںء¡۷ من تحديد اسم مستعار ها۸ لمجال أسماء |ا"× باستخدام عبارة وامم ”| كما في الكود التالي الذي يرينا كيف 
يمكننا استخدام العبارة ئ0مم | لاستيراد مجال أسماء “× 


Imports <xmlns:ns="http: //someNamespace"> 


حيث يمكنك استخدام هذا الاسم المستعار للوصول إلى خصائص | × ولتحديد محارف ا× من أجل وثيقة وعناصر ا"× ويمكننا الحصول 
على غرض عع ه2مءع 2× من أجل أي بادئة مجال أسماء باستخدام المعامل ععةمءع٣ةN١|ص×tم‏ كما في المثال 
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' Place Imports statements at the top of your program. 
Imports <xmlns:ns="http://SomeNamespace"> 


Module GetXxml1NamespaceSample 
Sub RunSample () 
' Create test by using a global XML namespace prefix. 


Dim contact = | 
HES FHEORNCACTES 
<ns:name>Patrick Hines</ns:name> 
<ns:phone ns:type="home">206-555-0144</ns:phone> 
<ns:phone ns:type="work">425-555-0145</ns:phone> 
IMS EORNESCE> 


ShowName (contact.<ns :phone> (0) ) 
End Sub 


Sub ShowName (ByVal phone As XElement) 
Dim qualifiedName = GetXxmlNamespace (ns) + "contact" 
Dim contact = phone.Ancestors (qualifiedName) (0) 
Console.WriteLine ("Name: " & contact.<ns:name>.Value) 
End Sub 


End Module 
باستخدام مجال الأسماء العام وم‎ ×۴ |٥٣۲ ويرينا المثال التالي كيفية إنشاء‎ 


Dim contact1 As XElement = _| 
<NS:EOnEaC E> 
<ns:name>Patrick Hines</ns:name> 
<ns:phone type="home">206-555-0144</ns:phone> 
<ns:phone type="work">425-555-0145</ns:phone> 
/NS EON EEE 


Console.WriteLine (contact1) 
ويقوم مترجم فيجول بايزيك بترجمة محارف ا"× التي تحتوي الأسماء المستعارة لمجالات أسماء ا× إلى الكود المكافئ الذي يستخدم‎ 
تدوين 1× المستخدم في تلك المجالات وباستخدام الصفة وما" × عند الترجمة والكود السابق يولد نفس الكود التنفيذي الذي يولده الكود‎ 
التالي‎ 


Dim contact2 As XElement = _| 
<ns1:contact xmlns:ns1="http://someNamespace"> 
<ns1:name>Patrick Hines</ns1:name> 
<nsl1:phone type="home">206-555-0144</ns1:phone> 
<ns1:phone type="work">425-555-0145</ns1:phone> 
S/RSLHEOREOCES 


Console.WritelLine (contact2) 


يمكن استخدام مجالات أسماء |× العامة مع خصائص |ا"× كما في المثال التالي 


Console.WritelLine ("Contact name is: " & contact1l.<ns:name>.Value) 
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Linq TO XML تlمادختسا بعض‎ 


يمكننا استخدام ٠1ا‏ لإنشاء وثائق ا× في فيجول بايزك انظر الكود التالي الذي يقوم بإنشاء وثيقة | × تحتوي معلومات عن العمليات 


الجارية في النظام 

Dim xmlProc = <MyProcesses> 

E From proc In System.Diagnostics.Process.GetProcesses() _ 

Select <process id= pEOC. IQ E> 
<name> proc.ProcessName §E</name> 
<threads> proc.Threads.Count §E</threads> 
</process> 

</MyProcesses> 


My.Computer.FileSystem.WriteAl lText ("d:\temp\processes.xml", xmlProc.ToString, False) 
Process.Start ("d:\temp\processes.xml") 


حيث أنشأنا العقدة MyProcesses‏ وأدخلنا فيها بداية الاستعلام فيها ثم في قسم ectاeء‏ أنشأنا العقد الفرعية وأدخانا بقية الاستعلام ليقوم 
بضبط قيم تلك العقد. كما يمكننا فيجول بايزيك من الحصول على معلومات عن العقد في وثيقة |" × بسهولة حيث نستخدم الكود التالي 


Dim xmlprocs1 = xmlProc...<process> 

For Each a In xmlprocs1 
Me.ListBox1.Items.Add(a.<name>.Value & " " & a.@id) 

Next 


أو يمكننا الحصول على نفس النتيجة السابقة باستخدام استعلامات »٠1ا‏ للاستعلام من وثيقة ا"»× كما في الكود 


Dim xmlprocs1 = From pr In xmlProc...<process> _| 
Select pr.<name>.Value, pr.G@id 


For Each a In xmlprocsl 


Me.ListBoxl.Items.Add(a.name. &4 " " & a.id) 
Next 
وقد نريد إنشاء وثيقة ا"× كنتيجة لاستعلام من وثيقة موجودة سابقا على القرص ويجب الانتباه إلى أن الاستعلام من وثائق |× حساس‎ 
لحالة الأحرف‎ 
Dim myCusts = XDocument. Load ("c:\MyCustomers. xml") 
Dim ukCustomers = <ukCustomers> 
E From cüûst In myCusts...<Customer> _| 
Whetê CUSE.<COUNTEYS>.Valüe = UK 
Select cust 
</ukCustomers> 
أو يمكننا كتابة استعلام مباشر من وثيقة |"× كما يلي‎ 
Dim xmlPlant = XDocument. Load (CurDir() & "\plants.xml") 


Dim. qa = FoR p In xmlPLant. ..<PLANT> | 
Select name = p.<COMMON>.Value _ 
Order By name 


وقد نريد كتابة استعلام من ذلك الملف لنحصل على النباتات التي تكلف أكثر من 5 


From pb’ I XmlPLant.. .<PLANT> _ 
Where CInt (p.<PRICE>.Value) > 5 
Select name = p.<COMMON>.Value 


Dim qb 
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وقد نريد إنشاء وثيقة إكسل من استعلام اص× ٠١‏ ۹٠ا‏ لذا افتح |عء×ع وادخل في الثلاث خلايا الأولى من السطر الأول الكلمات التالية 
بالتسلسل €ص N2‏ و h0n٥‏ و Cunt‏ ثم اجعل الخط سميكا ثم أدخل تحتها سطرا من البيانات التجريبة كي نستخدمه في تحديد القسم 
الذي سنضع فيه بياناتنا لاحقا ثم احفظ الملف بصيغة ع٥45۸‏ هع۲مك 1× تم قم بفتح الملف الذي أنشأته للتو بواسطة 4جمه†ه" وانسخ 
جميع محتوياته ثم عد إلى محرر الكود في بيئة التطوير واكتب = اععط؟ "01 ثم ألصق بعدها محتويات الحافظة فيصبح لديك شيئا شبيها 
بالتالي 


Dim Sheet = <?xml version="1.0"?> 
<COMSS=aBPLILECAE LOR چ‎ 
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" 
xmlns:o="urn:schemas-microsoft-com:office:office™ 
XRMIRSTRH="üEN: SéRhemaãs=MmicrFoOSoOEE=GOM: OfELCeE:excel™ 
xmlins:ss="ürn:schemas-microsoft-com:office:spreadsheet™ 
xmlns:html="http://www.w3.org/TR/REC-html40"> 
<DocumentProperties xmlns="urn: schemas-microsoft-com:office:office"™> 
<Author>SamerSelo</Author> 
<LastAuthor>SamerSelo</LastAuthor> 
<Created>2008-09-19T20:31:43Z2</Created> 
<Version>12.00</Version> 
</DocumentProperties> 
<ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel"> 
<WindowHeight>7140</WindowHeight> 
<WindowWidth>15255</WindowWidth> 
<WindowTopX>120</WindowTopX> 
<WindowTopY¥>150</WindowTopY> 
<ProtectStructure>False</ProtectStructure> 
<ProtectWindows>False</ProtectWindows> 
</ExcelWorkbook> 
<Styles> 
<Style ss:ID="Default" ss:Name="Normal"> 
<Alignment ss:Vertical="Bottom"/> 
<Borders/> 
<Font ss:FontName="Arial" x:CharSet="178" x:Family="Swiss" ss:Size="11" 
ss:Color="#000000"/> 
€TREEEIOR/ > 
<NumberFormat/> 
<Protection/> 
Style» 
<ASEyYLES> 
<Worksheet ss:Name="isرy1"‎ ss:RightToLleft="1"> 
<Table ss:ExpandedColumnCoüunt="3" ss:ExpandedRowCoünt="2" x:FullColumns="1"™ 
x:FullRows="1" ss:DefaultColumnWidth="54" ss:DefaultRowHeight="14.25"> 
<Row> 
<Cell><Data ss:Type="String">Name</Data></Cell> 
<Cel1l><Data ss:Type="String">Phone</Data></Cell> 
<Cel1l><Data ss:Type="String">Country</Data></Cell> 
</RoOow> 
<Row> 
<Cell><Data ss:Type="String">Test</Data></Cell> 
<Cel1l><Data ss:Type="Number">123456</Data></Cell> 
<Cell><Data ss:Type="String">Syr</Data></Cell> 
</ROW> 
</Table> 
<WorksheetOptions xmlns="urn:schemas=-microsoft=com:office:excel"> 
<PageSetup> 
<Header x:Margin="0.3"/> 
<Footer x:Margin="0.3"/> 
<PageMargins x:Bottom="0.75" x:left="0.7" x:Right="0.7" x:Top="0.75"/> 
</PageSetup> 
<Selected/> 
<DisplayRightToLeft/> 
<Panes> 
<Pane> 
<Number>3</Number> 
<ActiveRow>1</ActiveRow> 
<ActiveCol>2</ActiveCol> 
</Pane> 
</Panes> 
<ProtectObjects>False</ProtectObjects> 
<ProtectScenarios>False</ProtectScenarios> 
</WorksheetOptions> 
</Worksheet> 
<Worksheet ss:Name="i5jy2" ss:RightToLleft="1"> 
<Table ss:ExpandedColumnCount="1" ss:ExpandedRowCount="1" x:FullColumns="1"™ 
x:FullRows="1" ss:DefaultColumnWidth="54" ss:DefaultRowHeight="14.25"> 
</Table> 
<WorksheetOptions xmlns="urn: schemas-microsoft-com:office:excel"> 
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<PageSetup> 
<Header x:Margin="0.3"/> 
<FooOter X?MaFGiB="O0. 3"/> 
<PageMargins x:Bottom="0.75" x:lLeft="0.7" x:Right="0.7" x:Top="0.75"/> 
</PageSetup> 
<DisplayRightToLeft/> 
<ProtectObjects>False</ProtectObjects> 
<ProtectScenarios>False</ProtectScenarios> 
</WorksheetOptions> 
</Worksheet> 
<Worksheet S8S5:Name="i3j g3" SS:RIGhETOLEftE="I"> 
<Table ss:ExpandedColumnCount="1" ss:ExpandedRowCount="1" x:FullColumns="1"™ 
x:FullRows="1" ss:DefaultColumnWidth="54" ss:DefaultRowHeight="14.25"> 
</Table> 
<WorksheetOptions xmlns="urn:schemas=microsoft=com:office:excel"> 
<PageSetup> 
<Header x:Margin="0.3"/> 
<Footer x:Margin="0.3"/> 
<PageMargins x:Bottom="0.75" x:LlLeft="0.7" x:Right="0.7" x:Top="0.75"/> 
</PageSetup> 
<DisplayRightToLeft/> 
<ProtectObjects>False</ProtectObjects> 
<ProtectScenarios>False</ProtectScenarios> 
</WorksheetOptions> 
</Worksheet> 
</Workbook> 


نلاحظ في بداية وثيقة |× التي ألصقناها للتو وجود بعض مجالات الأسماء الخاصة ب ا"× في بدايتها وسنحتاج لاستيرادها في بداية كودنا 
لذا في قسم الاستيرادات في بداية الملف أدخل الاستيرادات التالية حتى تساعدنا في معرفة أسماء العناصر عند كتابة الاستعلام 


Imports <xmlns="urn:schemas-microsoft-com:office:spreadsheet"™> 
TROOEES SEMIRSTHOSTUOEA? SCEREMAS=MLEEFOSOEE=CEOMTOEEILCETOEEICETS 
TMOOE ES SXMINSTXSNIUER? SCREMASEMICFOSOFE=COMTOFELCETEREEI™S 
Imports <xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"™> 


من محرر الكود ابحث عن الجزء الذي يمتل البيانات التجريبية ثم قم بقصه وفي حالة مثالي سيكون 


<Row> 
<Cell><Data ss:Type="String">Test</Data></Cell> 
<Cell><Data ss:Type="Number">123456</Data></Cell> 
<Cell><Data ss:Type="String">Syr</Data></Cell> 
</ROW> 


أدخل الآن الاستعلام التالي قبل المتغير ٠٠ء‏ الذي عرفناه سابقا حيث سنستخدم فيه قطعة النص المقصوصة لتشكيل شكل ناتج الاستعلام 


Dim Customers = From Customer In db.Customers _ 
Order By Customer.CompanyName _ 
Select <Row> 


CELI SEDAES SS Type SEE IngoTs Customer. CompanyName §¥</Data></Cel1> 

<Cell><Data ss:Type=" String"> Customer. Phone </Data></Cel l> 

<Cell><Data ss:Type="String"> Customer. Country </Data></Cel 1> 
</Row> 


ثم انتقل للمكان الذي قصصنا منه قطعة |× سابقا وقم بإدخال السطر التالي في نفس المكان 


Customers |‏ اا 
انتقل إلى الأعلى قليلا وعدل السطر 


<Table ss:ExpandedColumnCount="3" ss:ExpandedRowCount="2" x:FullColumns="1" 


إلى 


<Table ss:ExpandedColumnCount="™" 3" ss:ExpandedRowCount=ŠSE Customers.Count + 1 | X:FULICOoLlümns="1" 
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Sheet.Save ("d:\temp\customers11.xml") 
Process.Start ("d:\temp\customers11.xml") 
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0/R Designer gy Linq to SQL JE تعرف‎ 


سنقوم هنا بإنشاء برنامج بسيط يعرض لذا كيفية استخدام ۲ع عایمD‏ 0/8 لإنشاء وعءوها٣ Entity‏ للتعامل المباشر مع قاعدة بيانات 
موجودة في 5٣۷٥۲١‏ ا50 وسأعتمد حاليا على قاعدة بيانات 0۲۲۸۷1۸4" الشهيرة التي يمكنك الحصول عليها بسهولة من موقع 
مايكروسوفت وتثبيتها لديك كما يتوجب عليك إنشاء اتصال لتلك القاعدة من داخل بيئة التطوير في liفذةö Serve Explorer‏ حتی یسھل علینا 
العمل على كل حال موضوع تركيب قاعدة البيانات وإنشاء الاتصال خارج عن مجال دورتنا وأفترض أنه لديك بعض الأساسيات التي 
تساعدك في التعامل مع هكذا أمور ويمكنك مراجعة مكتبة ۸50١‏ وبعض فيديوهات مايكروسوفت التعليمية إن احتجت لمساعدة في هذه 


الأمور 


من ۲٥۲هام×ع‏ nهutiام؟‏ انقر بزر الفأرة اليميني على مشروعك ومن القائمة اختر ۸١ "٥W‏ ومن صندوق الحوار اختر ا5۵ ٣۵١‏ ٩٣ا‏ 
ءا ثم قم بتسمية الفئة الجديدة اص طك. ك North Wİ‏ ثم اضغط 4ل فيفتح لك واجهة إععاوم 0/۸ الفارغة وإن كانت مغلقة 
يمكنك النقر المزدوج على اص طه. N۲۸ W٣۸۵‏ من مستكشف الحل لفتحها 


وسع الاتصال الخاص بقاعدة llبيlنlٽت pû 0/R Designer ةهجl, yl! Customers Jgڏجll mحuly Server Explorer ja Northwind‏ 
قم بالحفظ وبعدها انتقل إلى نافذة وعءuںم؟‏ ه0 اضغط عurcم؟ New 0ata‏ ل۸4 فيفتح لك المعالج المألوف وفي حالتنا هذه سنختار 
زط0 بما أنه المناسب لعملنا هنا ثم نضغط »ع ثم وسع العقد في نافذة افج وlختر pû Customer‏ ضط Finish pû Next‏ 


عد إلى محرر النماذج وقم بسحب الجدول  "۴١‏ 0اءں من واجهة ءعءu۲م؟هه‏ إلى سطح النافذة فيتم إنشاء شريط أدوات و 
ata GridView‏ من أجلك افتح السهم الصغير أعلى يمين wء۷i DataGrid‏ واضبط llئiيlر Dock in parent Container‏ لجعل شبکة 
البيانات تملا كافة المساحة الفارغة في النموذج وكما تلاحظ هنا أن بيئة التطوير تسهل علينا الكثير من الأمور هنا من إنشاء للتحكمات 
والفئات والربط بينها مما يوفر علينا الكثير من العمل 


من أجل إظهار البيانات على النموذج سنحتاج لكتابة بعض الكود لذا انتقل لمحرر الكود الخاص بالنموذج وأنشئ معالج للحدث Load‏ 
للنموذج وقبل بداية تعريف الحدث لج ه] الخاص بالنموذج أدخل المتغير التالي بحيث يكون عاما على مستوى النموذج حيث أن المتغير اط 
هنا هو كيان من North Win 0ata †e×†‏ والتي تشكل اتصالنا الفعلي مع قاعدة البيانات بما أنها نقطة الدخول الرئيسية بالنسبة ل وہنا 
To SQL‏ 


Private Db As New NorthWindDataContext 
يزودنا بالبيانات التي سيتم إظهارها‎ 1"٩ في الحدث 0ه ه] للنموذج سنضع استعلام‎ 


Dim AllCustomers = From cust In Db.Customers 


OEFdêr By cust.CüstomerID _ 
SELE CUS 


هذا استعلام ا عادي كأي استعلام ۸4[ قمنا باستخدامه منذ بداية الدورة حتى الآن كل ما علينا لإظهار البيانات هو ضبط قيمة الخاصية 
DataSource‏ ل CustomerBindingSourec‏ إلى استعلامنا ۲٥ص0 A|| ust‏ أدخل السطر التالي مباشرة بعد الاستعلام ثم شغل 
البرنامج وتأكد من ظهور البيانات 

Me.CustomerBindingSource.DataSource = AllCustomers 


من أجل حفظ التعديلات التي ربما سنقوم بها إلى قاعدة البيانات عد إلى محرر النماذج واجعل زر الحفظ الموجود على شريط الأدوات 
لعاطEna‏ ثم انقر عليه نقرا مزدوجا لإنشاء معالج لحدث النقر عليه والانتقال لمحرر الكود وأدخل الكود التالي الذي سيقوم بحفظ البيانات من 
أجلنا 


Me.Validate () 
Me.CustomerBindingSource.EndEdit () 


TEY 
Db.SubmitChanges () 
MsgBox ("Changes Saved") 
Catch ex As Exception 
MsgBox (ex.Message) 
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End Try 


حيث استخدمنا مهل iاة۷.٠ N‏ أولا لجعل جميع التحكمات على النموذج أن تتحقق من قيمها ثم استدعينا الطريقة EndEdit‏ العائدة ل 
CustomerBinding Source‏ من أجل التأكد من أن جميع عمليات التحرير على البيانات قد تم إنهاؤها ثم استخدمنا الطريقة 

Submit changes‏ العائدة ل †×ع€0nt‏ ta2مط‏ التي ستقوم بحفظ البيانات فعليا إلى قاعدة البيانات واستخدمنا بلوك ۸اه ... و٣‏ من أجل 
التقاط أي خطأ ربما نصادفه أثناء عملية الحفظ ومع أننا استخدمنا الطريقة ءعع ة٤"‏ طك هنا بدون محددات إلا أنه يمكن استخدامها 

بتمرير محدد وحيد من نوع التعداد ٥ل‏ 0 ءاره الذي يمتلك إحدی قیمیتین اءiا؟ه٣اء۲ n۴‏ ت اا۴ التي توقف عملية تحديث البيانات 
إلى قاعدة البيانات عند حصول أول تضارب وهي القيمة الافتراضية و اءiا؟ Conti "u0 N٣0‏ وهي تتابع عملية الحفظ حتى لو حدثت 

تضاربات وتقوم بتجميع هذه التضاربات وتعيدها بعد انتهاء عملية تحديث البيانات إلى قاعدة البيانات 


يمكنك عند هذه النقطة تشغيل البرنامج والتأكد من أنك تستطيع إضافة وتعديل وحذف البيانات بدون أية مشاكل 


نريد الآن إضافة بعض التصفية على البيانات في النموذج ولهذا الغرض قم بإضافة صندوق نصوص وزر أوامر إلى شريط الأدوات في 
أعلى النموذج وانقر نقرا مزدوجا على الزر حتى ننتقل لمحرر الكود وفي إجراء معالجة حدث النقر عليه أدخل الآن الاستعلام التالي الذي 
أتبعناه بكود تحديث الخاصية CustomerBinding Source J Da †aS0 ure‏ إلى الاستعلام الجدید لإظھار النتائج 


Dim CustNameQuery = From cust In Db.Customers _ 
Where cust.ContactName Like _ 
Me.ToolStripTextBoxl.Text & "*" | 
GOFder By cüst.CüstomerIlD _ 
Select cüst 


Me.CustomerBindingSource.DataSource = CustNameQuery 


ملاحظة: أنا لا أقوم بشرح الاستعلامات هنا بافتراض أنك متابع ممتاز معي منذ البداية وأصبحت متآلفا مع صيغة وطريقة كتابة هذه 
الاستعلامات كما يمكنك كتابة أية استعلامات تريدها هنا وبأي شكل هنا تماما كما فعلنا في الدروس السابقة 
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Linq To Sql Master / Detail 


افتح مشروع فيجول بايزيك جديد وقم بإضافة وعءوها٣‏ اه5 ٠١‏ 1"۹ إليه تماما كما فعلنا في الدرس السابق وسمl‏ lإWind.dbm North‏ 
ثم من ۲٥۲هام×ع‏ مهك وسع عقدة اتصال قاعدة البيانات 4ہ¡W‏ ٣ه"‏ وقم باختيار الجدولين ء۲مل0۲ و Custom" 8٣۶‏ وقم بسحبھما 
معا إلى نافذة ٣ع"عاومD‏ 0/۸ الأمر الذي ينشئ فئتين من أجلنا الأولى تدعى ١ع"‏ 0ء و الثانية هل0۲ ونرى أن بيئة التطوير قامت 
بضبط العلاقة بينهما تلقائيا كما نلاحظ أن جميع خصائص كلتا الفئتين تماثل تماما الحقول الموجودة في الجدولين الموجودين في قاعدة 
البيانات قم بحفظ المشروع الآن قبل المتابعة 


انتقل إلى نافذة ومع uںه؟‏ هه واختر Ad New Data Sهu ce‏ واختر من الصفحة الأولى في المعالج أن النوع الذي نريد الاتصال به 
هو زط0 ثم اضغط ×" للانتقال للصفحة التالية من المعالج ثم وسع العقد وقم باختيار الجدول ٣٥١‏ ٥وںع‏ فقط بدون اختيار الجدول 
Order‏ ثم اضغط × ثم وزم ز۴ وستلاحظ في نافذة مإ ںم؟ هه أنه قد تم إدراج الفئة مص هوں) وتظهر الفئة ءإ هل0۲ ككائن 
فرعي منھا ولھذا قمنا باختیار ٥۴‏ ٣٥ں‏ فقط في المعالج 


اسحب ٣ع"‏ 0اوںع إلى سطح النافذة ليتم إنشاء سwع 4۷i‏ 6هه0 على النافذة وشريط أدوات ٣هاهعااةل١ع”‏ هم81 في أعلى النافذة ثم قم 
بسحب ء٣‏ ل0۲ إلى سطح النافذة لإنشاء سwع ۲4۷i‏ 6هه0 أخرى أسفل الأولى 


انتقل إلى محرر الكود الخاص بالنموذج وقم بإنشاء إجراء لمعالجة حدث 4هه|] للنموذج وقبل تعريف الإجراء مباشرة قم بإدخال المتغير 
العام التالي على مستوى النموذج ليكون كيانا من †×ع† North Win 40a †2 ٣0"‏ والتي تشكل اتصالنا الفعلي مع قاعدة البيانات بما أنها نقطة 
الدخول الرئيسية بالنسبة ل اهS ٣١‏ ۹٣ا‏ 


Private Db As New NorthWindDataContext 
ولجعل البيانات تظهر في كلتا الشبكتين أدخل الكود التالي في إجراء الحدث كه ه] للنموذج وقم بتجربة البرنامج‎ 
Me.CustomerBindingSource.DataSource = Db.Customers 
وعند تجربة البرنامج ستجد أن بيانات ء۲ هل0 قد تم جلبها وهذا تقوم به من أجلنا ا١ك ها ۹٣ا في الخلفية بسبب العلاقة الموجودة بين‎ 
عأوم0 0/۸ والذي يحدث فعليا هو أنك عندما تختار سجلا من‎ ٣٥١ الجدولين عندما أنشأنا وعءءها€ راع في بداية العمل بواسطة‎ 
يتولد تلقائيا استعلام يجلب بيانات هل0۲ المرتبطة بهذا السجل بموجب العلاقة بين الجدولين ويظهرها في شبكة البيانات‎ Custom 


الثانية 


لكي نستطيع حفظ أية تعديلات أو إضافات نقوم بها على قاعدة البيانات عد إلى محرر النماذج واجعل زر الحفظ الموجود على الشريط في 
أعلى النموذج لعاطةمع وانقر عليه نقرا مزدوجا من أجل إنشاء إجراء معالجة لحدث النقر عليه والانتقال لمحرر الكود وسيكون كود الحفظ 
شبيها بالكود الذي استخدمناه في الدرس السابق 

Me.Validate () 


Me.OrdersBindingSource.EndEdit () 
Me.CustomerBindingSource.EndEdit () 


TEY 
Me.Db.SubmitChanges () 
MsgBox ("Changés Saved:™) 
Catch ex As Exception 
MsgBox (ex.Message) 

End Try 


جرب البرنامج وتأكد من أن جميع عمليات الحذف والتعديل والإضافة تعمل 


انتقل إلى محرر النماذج وأضف ×080ط ٥٥٠١‏ لشريط الأدوات في أعلى النموذج الذي سنقوم بملئه بأسماء الدول المتوفرة حتى نستطيع 
اختيار الزبائن الموجودين في دولة معينة انتقل الآن لمحرر الكود واستبدل كامل محتويات الحدث 4هه٥]‏ للنموذج بالكود التالي الذي سيقوم 
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بملئ صندوق القائمة بأسماء الدول لاحظ استخدام ا1ء" آاءا في عبارة الاستعلام كي لا يجلب لنا نتائج مكررة عندما تكون هناك نتائج 
متشابهة معادة من قاعدة البيانات 


Dim CüsCoüntfry = Ftom co In Db.Customers _ 
Whete co. COUnNtry <> SEFING.EMBEY _ 
OEQdeE BY CO.COUNtEEY 
Select CO. COURNEEY DLSEINGE 


Me.ToolStripComboBox1.Items.Clear () 


FOE Each CO: IM CUSCOUNETEY 
Me.ToolStripComboBox1. Items. Add (co) 


Next 


أنشئ إجراء معالجة لحدث إععectedlındexChaاSe‏ ل tripcomboBox1كا0ه‏ وأدخل فيه كود الاستعلام التالي لكي يتم إظهار 
الزبائن الموجودة في دولة معينة عند اختيارها من صندوق القائمة المركبة 
Dim CustQuery = From co In Db.Customers‏ 


Where co.Country = Me .ToolStripComboBox1.SelectedItem.ToString 
Select co 


Me.CustomerBindingSource.DataSource = CustQuery 


وللحصول على مجموع أجور الشحن لطلبات الزبون المحدد أضف صندوق نصوص أسفل النموذج ثم أنشئ إجراء لمعالجة حدث 
CurrentChanged‏ الخاص ڊ CustomerBindingSource‏ وأدخل فیھ الکود التالي 


Dim ro = CType (Me.CustomerBindingSource.Current, Customer) 


DIM EFEISüUmM = AOGEEGate oOFd IRM DBH.OEdeES _ 
Where ord.CustomerIlD = ro.CustomerlD _ 
Into Sum (ord.Freight) 


Me.TextBox1.Text = FriSum.ToString 


حیثٹ حصالنا أولا على معلومات السجل الحالي في CustomerBindingSource‏ وهنا اضطررنا لاستخدام CType‏ لتحويل ناتج الخاصية 
Current‏ إلى النوع المطلوب بما أنها تعيد قيمة من النوع ءعزط0 وبما أننا لم نحدد نوع المتغير ١م‏ عند التصريح عنه فستقوم بذلك نيابة 
عنا ميزة الاستدلال المحلي فل النوع ثم استخدمنا استعلام ٥ا2‏ gع٥ g٣‏ عa‏ لحساب مجموع أجور شحن الطلبات الخاصة بالزبون الحالي 


أضف زرا وصندوق نصوص إلى النموذج حتى نستطيع إظهار طلبات الزبون المحدد بعد تاريخ معين ولكي لانفقد الارتباط بين شبكتي 


البيانات انتقل إلى إجراء معالجة الحدث dعع۸2٤Curren1‏ الخاص ب Customer Bindi nع5ou ce‏ وأدخل فيه الكود التالي قبل الكود 
الموجود فيه کي نعید ضبط القيم الصحيحة ف OrdersBindingSource‏ بما أننا سنغير ها لاحقا عندما سننفذ استعلامنا 


Me.OrdersBindingSource.DataSource = CustomerBindingSource 


Me.OrdersBindingSource.DataMember = "Orders" 
Me.TextBox2.Text = String. Empty 


أنشئ إجراء لمعالجة حدث النقر على الزر الذي أضفناه للنموذج وأدخل فيه الكود التالي 


Dim ro = CType (Me.CustomerBindingSource.Current, Customer) 


If IsDate (Me.TextBox2.Text) Then 
Dim SpOrd = From ord In Db.Orders 


Where ord.CustomerIlD = ro.CustomerlD _ 
And ord.OrderDate >= CDate (Me.TextBox2. Text) 
Select ord 
Me.OrdersBindingSource.DataSource = SpOrd 
Else 
Me.OrdersBindingSource.DataSource = CustomerBindingSource 
Me.OrdersBindingSource.DataMember = "Orders" 
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Me.TextBox2.Text = String. Empty 
EN. TÊ 


حيث حصالنا في البداية على معلومات السجل الحالي بالنسبة ل ء٣عص٥اوںع‏ في المتغير هع ثم استخدمنا عبارة ۴| و الدالة مK0a‏ للتحقق 
من أن المستخدم قد قام بإدخال تاريخ صحيح قبل المتابعة بالاستعلام وإِن لم یکن تاریخا صحیحا نعید ضبط قيp OrdersBindingSource‏ 
إلى القيم الأصلية ونقوم بتفريغ النص الموجود في صندوق النصوص وإن كان قد ادخل تاريخا صحيحا ننشئ استعلام يقوم بجلب الطلبات 
التي تاريخها بعد التاريخ الموجود في صندوق النصوص والخاصة بالزبون الحالي كما هو ظاهر في قسم ۸٠۲١‏ في الاستعلام ثم نقوم 
بضبط الخاصية ure‏ 0؟Da†a‏ ل OrdersBindingSource‏ إلى استعلامنا كي يتم عرض البيانات المعادة من الاستعلام في شبكة البيانات 
الثانية 


2 
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مثال سريع عن كيفية إنشاء فئات ۲٠١ SQ‏ 11,4 يدويا 


رأينا في الدروس السابقة كيف أن ال ٥۲‏ مایم 0/۸ يقوم بإنشاء فئات ا5۵ ۲٥‏ ٩٣ا‏ أو كما تدعى أيضا وعءءھا٤‏ رامع بسهولة من 
أجلنا ومع ذلك يمكننا القيام بذلك يدويا وسأقوم في هذا الدرس باستعراض سريع لكيفية عمل ذلك من أجل العلم بالشئ 


أنشئ مشرو عا جديدا من gill‏ ع LinqConsoleApp 4awg Console Application‏ 
٠‏ من قائمة ct‏ عزہ ۴٣‏ اختر Add Reference‏ ومن صفحۂ .٤ہ‏ اختر System .0a 2.11٣٩‏ ثم اضغط Ok)‏ 
٠‏ في بداية الملف في أعلى محرر الكود أضف الاستيرادات التالية 
Imports System.Data. Ling‏ 
Imports System.Data.Linqg.Mapping‏ 


سنضيف الآن ءها٣‏ رامع والذي عن عبارة عن فئة منظمة وفق جدول قاعدة بيانات ولإنشاء هذه الفئة نضيف الصفة ماطه] قبل تعريف 
الفئة والت تمتلك الخاصية ٠ه"‏ التي تحدد اسم الجدول في قاعدة البيانات ثم سيكون علينا إضافة الخصائص المناسبة لتمثل أعمدة الجدول 
ويتم تحديد الربط مع الأعمدة في قاعدة البيانات باستخدام الصفة "داه والتي تمتلك عدة خصائص لتعريف العمود مثل yع‏ )12٣٥ءا‏ 
التي تمتلك قيمة منطقية تحدد فيما إذا كان العمود مفتاح أساسي أم لا والخاصية معه۲ه) التي تحدد اسم الحقل الخاص الذي سيخزن قيمة 
الخاصية - أضف الفئة التالية بعد تعريف ال ماuلكه"‏ وقبل "ة۷ طن؟ والتي ستمثل الجدول ء۲٥"‏ 0اءوںع في قاعدة البيانات طبعا 
عرفت بعض الخصائص من أجل بعض الحقول الموجودة في الجدول هنا وليس جميع الحقول وذلك من اجل الاختصار هنا وإن قررت 
استخدام هذه الطريقة عمليا عليك تعريف الفئة بحيث تكون مطابقة تماما للجدول الذي تمثله 


<Table (Name:="Customers")> _ 
EFUHILS C1488 CüSTOMEE 


PEivatê _CüstomerID AS SEEIng 


<Colümn(TSPEimaryKey:=TEue, Storage:=" CüustomérID™)> | 
PUbDLIG PEOpOEEY CüStOMEEID(Y A6 SEEING 
GEE 


Retürh Me. CüstomerID 
End. Get 
Set (ByVal value As String) 
Me. CustomerlD = value 
ERQ Set 
End Property 


PFELTEEE  CIEY AS SEEING 


<Column (Storage:=" City")> _ 
PULLS EEOBEEEY CIEYO. AS SEEING 
Get 


REÛF Me. CIEYy 
End. Ge 
Set (ByVal value As String) 
Me. CEY = alue 
ERA Sel 
End Property 


PEivtatêé. ContactName: A6 SEEING 


<Column (Storage:=" ContactName")> _| 
Public Property ContactName () As String 
GE 
Retüurn Me. ContactName 
End Get 


Set (ByVal value As String) 
Me. ContactName = value 
EAd Sêl 

End Property 


End Class 
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سنحتاج إلى إنشاء اتصال مع قاعدة البيانات W١‏ ۲۲۸ه" التي سنستخدمها لذا سنحتاج إلى تعريف غرض ×ه۲١0٤هه0‏ والذي يعتبر 
القناة الرئيسية لقراءة البيانات وتخزينها في قاعدة البيانات - أدخل سطر الكود التالي في الإجراء اة“ طك وذلك باعتبار أن قاعدة 
البيانات موجودة في الملف 75۴ N 0R" ٧1W N0.‏ الموجود في المجلد ۴ ]:0 لدي عند تجربة هذا المتال 


Dim db As New DataContext ("D: \TEMP\NORTHWND.MDF") 


ثم سنقوم بإنشاء کائن ٥۲(‏ ۳٥ں‏ ۴٥)٥اطه1‏ كي نستخدمه في الاستعلام من الجدول ٣ع"‏ هاءںع أدخل الكود التالي مباشرة بعد الكود 


السابق 
Dim Customers As Table (Of Customer) =‏ 
db.GetTable (Of Customer) ()‏ 


أضف السطر التالي من الكود الذي سيطبع على نافذة الكونسول أوامر اك التي سيتم تنفيذها على قاعدة البيانات 
db.Log = Console.Out‏ 
سنكتب الآن استعلام "1 ليستعلم أي من الزبائن موجودين في لندن - أدخل كود الاستعلام التالي بعد الكود السابق مباشرة 
Dim custQuery = From cust In Customers‏ 


Where cust.City = "London" 
Select cCüs 


وللحصول على نتائج الاستعلام سنستخدم حلقة عع ۴٠۲‏ للدوران عبر نتائج الاستعلام كما رأينا في الدروس السابقة ثم طباعتها على نافذة 
الكونسول 


Console.WriteLine ("Number Of Records: " & custQuery.Count.ToString) 


For Each CustOb] In custQuery 
Console.WriteLine (CustOb].CustomerID.ToString & ", " & 


CUSEOD J CECE GE Tg TE CustOobj .ContactName) 
Next 


Console.ReadLine () 


وهذا هو الكود الكامل للمشروع 
Imports System.Data. Ling‏ 
Imports System.Data.Linqg.Mapping‏ 


Module Module1l 


<Table (Name:="Customers")> _ 
EFUHLIE CIES CUSTOMS 


Private CustomerID As String 


<Column (IsPrimaryKey:=True, SEOEage:=™ CUStOoOMEEFID™)> | 
PUBLIC PEOperty CüstOomMeEFID() A StEEILRG 
GEE 


RetüUErn Me. CustomerID 
ERG GeE 
Set (ByVal value As String) 
Me. CustomerlD = value 
ENG Set 
End Property 


PFEIVSES  CIEY AS SEEING 
<Column (Storage:=" City")> _ 
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PULLS PEOBDEFEY CIEYO As SEEING 
Gê 
Retüehn Mê. CIÈYy 

End Get 

Set (ByVal value As String) 

Me. City = value 

End Set 

End Property 


PEIvatê ContactName: As StEEIng 


<Colümn(Storage:=™ ContactName"J» 
Public Property ContactName () As String 
Get 


Return Me. ContactName 
End Get 
Set (ByVal value As String) 
Me. ContactName = value 
End Set 
End Property 


End Class 


Sub Main () 
Dim db As New DataContext ("D: \TEMP\NORTHWND.MDF") 


Dim Customers As Table (Of Customer) = 
db.GetTable (Of Customer) () 


db.LOog = Console.Out 
Dim CuüUstOüery = EFO cust IR Cüstomers: _ 
WHERE CUSEICLEY "EONAR 


Select cust 


Console.WriteLine ("Number Of Records: " & custQuery.Count.ToString) 


For Each CüStOb, In cüustOüuery 
Console.WriteLine (CustOb]j .CustomerID.ToString &4 ", "& 
CustObj.City & ", " & CustObj]j.ContactName) 
Next 


Console.ReadLine () 


ERO. SUG 


End Module 
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أمثلة على استعلامات Linq‏ 


في هذا الدرس سأورد بعض الأمثلة على استعلامات مختلفة كي نتعرف أكثر على أسلوب كتابة هذه الاستعلامات ولن أتطرق إلى طرق 


استخدام هذه الاستعلامات بما أننا رأينا كيف يمكن عمل ذلك من خلال الأمثلة الواردة في الدروس السابقة إما بالدوران باستخدام حلقة.. 


عع أو بالإسناد المباشر لمتغير أو تحكم أو الإظهار في س۷ل 26ا0 
ال سبط کے امام قات ةلاسرل ك الف الق لل يري لى مر عة م 


Wod = Aggregate Wdt In ads.WorkingDate 
Into Mdt = Max (Wdt.WorkingDate) 


مثال آخر على استخدام الدالات التجميعية للحصول على مجموع ناتج عملية طرح حقلين 


TempBal = Aggregate AccBa In AccMov _ 
Into Bal = Sum (AccBa.DebitAmmount - AccBa.CreditAmmount) 


مثال بسيط آخر يستخدم 1)٠‏ في قسم "٠۲٥‏ في الاستعلام للحصول على مجموعة نتائج محددة 


AccMov = From AccBal In Accds.AccountMovements _ 
Where AccBal.AccountNumber Like (AccNum & "*") 
Select AccBal 


مثال يستخدم الدالة مس هاه في قسم ۷٠١١‏ للحصول على نتائج الاستعلام بحيث لا يتأئر شرط التصفية بحالة الأحرف 


Qts = From cu In Db:Cüustomers _| 
Where ‘cü. COUntEy.ToStEIng .TOLower LIke "poO*™".ToloweEr _ 
Select cu 


مثال بسیط آخر يستخدم 0۵٥۲ 8y‏ لترتيب النتائج تصاعديا 


ParentList = From Parlst In AccountsDataSet.Accounts _ 
Wierêe PaFLST.ISChRILAAccOUnNnE = Falsê | 
Order By ParLst.AccountNumber _ 
SESE .PaFBSE 


ومن أجل الترتيب تنازليا يصبح الاستعلام كما بلي وذلك بإضافة عمألمعءءه0 بعد حقل الفرز في قسم 8y‏ م0 


ParentList = From Parlst In AccountsDataSet.Accounts _ 
Where ParLst.IsChILQAAccOünt = False | 
Order By PaA£LSt AcçeoüuntNüumbe# . Descending _ 
SELE PAEFLSEÊ 


For . 


DIR 


Dim 


Dim 


Dim 


DIR 


DIR 


هذا المثال يقوم بإعادة تاريخ محتسب من تاريخ وفترة زمنية مخزنين في قاعدة بيانات مع استخدام ١هل‏ لربط جدولين للحصول على القيم 


منهما 


Edat = From de In DsDesposits.Deposits _ 
Join Dp In DsDesposits.InterestRates _ 
On de.InterestID Equals Dp.InterestID _ 
Select EndDate = DateAdd (Datelnterval.Month, _ 
intrst.First, DepDet.First.StartDate) 
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Dim 


مثال آخر عن استعلام یستخدم "ەل لربط جدولين من أجل الاستعلام منهما ثم اختيار حقول محددة كنتيجة للاستعلام ثم استخدام الاستعلام 
داخل استعلام آخر من أجل الحصول على نتيجة إضافية تم استخدام ١هل‏ للاستعلام من نتيجة ربط استعلام وجدول للحصول على النتائج 
المرغوبة 


Dim MovNam = From Acc In SampleDatabaseDataSet. ACCOUNTS _ 
Join Mov In SampleDatabaseDataSet. ACCOUNTS_ MOVEMENTS _ 
On Acc.ACC NUMBER Equals Mov. ACC _NUMBER _ 
Select Mov .MOVMENT DATE, Mov.ACC NUMBER, Acc.ACC NAM 
Mov. DEBIT AMOUNT, Mov.CREDIT_ AMOUNT 


2 


Dim AccBal From AcBa In MovNam 
GEOoüp By acc nümber AcBa.ACC_ NUMBER 
8 


Into Balance = Sum (AcBa. DEBIT _ AMOUNT - AcBa.CREDIT_ AMOUNT) 


Dim AccBalName = From ab In AccBal Join ac In SampleDatabaseDataSet. ACCOUNTS _ 
On ab.acc_number Equals ac.ACC_ NUMBER _ 
Select ab.acc_number, ac.ACC NAME, ab.Balance 


هذا المثال يستخدم آمل لإنشاء استعلام يعطينا النتائج نتيجة الاستعلام من أربعة جداول مختلفة 


Dim ViewData = From Cu In DsDesposits.Customers _ 

oin Dp In DsDesposits.Deposits On Dp.CustomerlD _ 

quüuals Cüu.CustomerID _ 

oin DepPer In DsDesposits.InterestRates On DepPer.InterestID _ 
QUALS DG: IHterestLID , 

oin CaDp In DsDesposits.CalculatedDepsits On CaDp.DepositID _ 
quals Dp.DepositID _ 
Where CaDp.CalculationReason = 2 _ 

And CaDp.CalculationDate >= FromDate _ 

And CaDp.CalculationDate <= ToDate _ 

Select Cu.Name, Dp.DepositNumber, Dp.DepositAmount, Dp.StartDate, 
CaDp.CalculationDate, DepPer.DepositPreiod 


هذا المثال فيه نقطتين الأولى بخصوص ه١1‏ المستخدمة في استعلامات إوء للحصول على نتيجة من قائمة قيم فهي غير موجودة هنا لذا نقوم 
بوضع القيم في مصفوفة تم نستخدم وء" هه في الاستعلام للحصول على نفس النتيجة والثانية هي أننا نستطيع استخدام نتيجة استعلام 
کل انت اخ 


Dim Vlu() As Byte = {0, 3, 4, Nothing, 6} 

Dim DepDet = From De In DsDesposits.Deposits _ 
Where De.DepositID = Dr.DepositID 
And Vlu.Contains (De.DepositStatus) 


Dim Ihtrst = From Irs In DsDesposits.InterestRates _ 
Where Irs.InterestID = DepDet.First.InterestID 
Select Irs.DepositPreiod, Irs.InterestRate 


مثال آخر يستخدم "امل وطريقة المصفوفة معا 


Dim Vlu() As Byte = {0, Nothing, 3, 4, 6} 
mDep = From d In DsDesposits.Deposits _ 
Join i IR DsDesposilts.IRterestRates Of Qd.IntéeréêstID Equals i1.InterêsEID _ 
Where DateAdd (DateInterval.Month, i.DepositPreiod, d.StartDate) _ 
<= Now.Date _ 
And Vlu.Contains (d.DepositStatus) 
Select d.DepositID 
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هذا المثال يستخدم استعلامين متداخلين ففي قسم اءءاعء في نهاية الاستعلام الأول استخدمنا الطريقة امهء×ع لاستثناء النتائج المعادة من 
الاستعلام الثاني الممرر کمحدد للطريقة Except‏ 


Déps = (From d In DsDesposits.Deposits _ 
Join i In DsDesposits.InterestRates 
OR Lr IRtefeSTID EUaLs d.InterestID: 
Where (d.StartDate <= New Date (Ryear, 12, 31) 
And vlu.Contains (d.DepositStatus)) _ 

And DateAdd (DateInterval.Month, i.DepositPreiod, d.StartDate) 
>= New Date (Ryear, 12, 31) 

Select d.DEeEpOsitEID) Except Û _ 

From ca In DsDesposits.CalculatedDepsits _ 

Where ca.EndDate = New Date (Ryear, 12, 31) 

Select ca.DepositID) 
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Compiled Queries الاستعلامات المترجمة‎ 


عندما یکون لدینا تطبیق یستخدم استعلامات متشابهة العديد من المرات يمكنك زيادة الأداء عبر ترجمة عماأمصه) الاستعلام مرة واحدة ثم 
تنفيذه العديد من المرات لاحقا عبر تمرير محددات مختلفة في كل مرة فقد يكون لديك تطبيق يقوم بالاستعلام عن جميع الزبائن الموجودين 
في مدينة محددة بحيث يتم تمرير اسم المدينة في وقت التنفيذ من قبل المستخدم وهنا تدعم اوك ه† ٠ا‏ استخدام الاستعلامات المترجمة لهذا 
الغرض 
حيث توفر لنا الفريموورك الفئة CompiledQuery‏ التي تزودنا بإمكانية الترجمة والتخزين المؤقت للاستعلامات من اجل الاستخدام وهذه 
الفئة متواجدة في مجال الأسماء ٠.033.11١‏ اءر؟ وهي تمتلك خاصية وحيدة هي ١0اءوع۲م»ع‏ التي تعيد الاستعلام كتعبير لمدا 
Lambda Expression‏ وهي تمتلك بعض الطرق ولكن الطريقة الأهم والتي يتم استخدامها هنا هي الطريقة هعاأمصه) التي تمتلك عدة 
أشكال محملة متشابهة 

Public Shared Function Compile (Of TArg0 As DataContext, TArgl, TResult) ( _ 


qüery As Expression (Of Fünc (Of TArgO0, TArgl;, TReSsult)) _ 
J) As Func (Of TArgO0, TArgl, TResult) 


Public Shared Function Compile (Of TArgO0 As DataContext, TArgl, TArg2, TResult) ( _ 
query AS Expression (OfE Fünc(Of TArgO0, TAEGL, TAEG2;, TReSUIt)) _ 
J) As Func (Of TArg0, TArgl1l, TArg2, TResult) 


Public Shared Function Compile (Of TArg0 As DataContext, TArgl, TArg2, TArg3, TResult) ( _ 
QueFY AS: Expression (Of Func (Of TAFGO0;, TAEOlL;, TAEFG2; TAEG3; TIReSUILT)) 
) As Func (Of TArgO0, TArgl, TArg2, TArg3, TResult) 


Public Shared Function Compile (Of TArgO0 As DataContext, TResult) ( _ 
query As Expression (Of Func (Of TArgO0, TResult)) _ 
) As Func (Of TArgO0, TResult) 


حيث تمتل المحددات Arg‏ نوع المحدد الممرر للمفوض Delegate‏ عندما يتم تنفيذ المفوض المعاد من الطريقة Compile‏ و المحدد 
tاResu"‏ هو من النوع (۲)عاطاج۲ م uمع|‏ المعاد عند تنفيذ المفوض المعاد من الطريقة عام ٤)٥۳‏ 


في العديد من الحالات ربما ترغب في إعادة استخدام الاستعلامات خارج مجال مسار التنفيذ الحالي ففي هذه الحالات تكون عملية تخزين 
الاستعلامات المترجمة في متغيرات ساكنة ءعاطها٣‏ ة۷ عtiهSt‏ فكرة فعالة ففي الكود التالي توجد لدينا فة وءع Que‏ مصممة من أجل 
تخزین الاستعلامات المترجمة تستخدم للاستعلام من قاعدة بیانات N٥۲۲۸ Wd‏ بطریقة اہ؟ ہ٥غ‏ ہنا 


Class Queries 


PUBLIS SHAEEA CüstomMEFSBYCIEY AS |» 
Func (Of NorthWindDataContext, String, IQueryable (Of Customer)) = 
CompiledQuery. Compile (Function (db As NorthWindDataContext, 
CIYA SEEINOD) =, 
From c In db.Customers Where c.City = city Select <c) 


PUDIiLCG Shared CustomersById As _| 
Func (Of NorthWindDataContext, String, IQueryable (Of Customer)) = 


CompiledQuery.Compile (Function (db As NorthWindDataContext, _ 
1Q. AB SEER) 


db.Customers.Where (Function (c) c.CustomerlD = id) ) 


End Class 


Public Function GetCustomersByCity (ByVal city As String) As 
165 


Enumerable (Of Customer) 


۳H 


Return Queries.CustomersByCity (db, city) 
ERAQ. FUREEISR 


ثم استخدام هذه الوظيفة لعرض نتائج الاستعلام في wع ۲۵۷i‏ 6ه( كما يلي 
Me.DataGridView1.DataSource = GetCustomersByCity ("London") .TolList‏ 
أو حتى الاستخدام المباشر للاستعلام المترجم بحيث نظهر نتيجة الاستعلام مباشرة في wع‏ 0226|4۷ 


Me.DataGridView1.DataSource = Queries.CustomersByCity (db, "London").TolList 
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إضافة طرائق مخصصة لاستعلامات لينكأ 4م 1ا 


يمكنك توسيع مجموعة الطرائق التي يمكنك استخدامها مع استعلامات لينك بإضافة وظائف موسعة للواجهة (۲)عاط ه۲٠"‏ ںمع| فإضافة إلى 
الات اة ثل ال رظي أن الد قى سكا مد إخافة دالا تجني لحماب قرخ من مق ق ها كك شاد دان 
تشكل مرشح مخصص أو لتحويل سلسلة معينة من البيانات إلى سلسلة أخری فعندما تقوم بتوسیع الواجھة (۲)٥اط ٣٥٣۵‏ ں مع فأنت تضيف 
دالات مخصصة لأي مجموعة قابلة للتعداد. 


فالمثال التالي يرينا كيفية إنشاء طريقة موسعة تدعى هام" لحساب وسطي سلسلة أرقام من النوع عاubہD‏ 


Imports System.Runtime.CompilerServices 


Module LINQExtension 


' Extension method for the IEnumerable (of T) interface. 
' The method accepts only values of the Double type. 
<Extension ()> _ 
Function Median (ByVal source As IEnumerable (Of Double)) As Double 
If source.Count = 0 Then 
Throw New InvalidOperationException ("Cannot compute median for an empty 


set.") 
EGG TE 


Dim sortedSource = From number In source _ 
Order By number 


Dim itemIndex = sortedSource.Count \ 2 


If sortedSource.Count Mod 2 = 0 Then 
' Even number of items in list. 
Return (sortedSource (itemIndex) + sortedSource (itemIndex - 1)) / 2 
Else 
" Odd nümber 5E items ih list: 
Return sortedSource (itemIndex) 
ER TE 
Eid. Fufittion 
End Module 


حيث يمكنك استدعاء هذه الطريقة الموسعة من أي مجموعة قابلة للتعداد بنفس الطريقة التي تقوم بها باستدعاء الدالات التجميعية ويرينا 
المثال التالي كيفية استخدام الطريقة السابقة مع مصفوفة ااهل 


Dim numbers1() As Double = {1.9, 2, 8, 4, 5.7, 6, 71.2, 0} 
Dim query1 = Aggregate num In numbers1 Into Median () 
MsgBox ("Double: Median = " & query1) 
فالاستعلام السابق يجب أن ينتج القيمة 4.85 بحسب قيم الدخل‎ 


كما يمكن أن نضيف وظائف موسعة محملة لمل ههام0۷ من أجل كل نوع من أنواع البيانات 


' Integer overload 

<Extension()> _ 

Function Median (ByVal source As IEnumerable (Of Integer)) As Double 
Return Aggregate num In source Select CDbl (num) Into med = Median () 

ERG: FORCE LOR 


ویکون استخدامها مماتلا 
Dim MüûmbéEs1l () Aة5 Doble = (1.9, 2, B8, 4, Bil, Go, Toz, O}‏ 
Dim query1 = Aggregate num In numbers1 Into Median ()‏ 
MsgBox ("Double: Median = " & query1)‏ 


Dim numbers2() As Integer = {l, 2, 3, 4, 5} 


Dim query2 = Aggregate num In numbers2 Into Median () 
MsgBox ("Integer: Median = " & query2) 


كما يمكننا إضافة طريقة موسعة محملة تقبل أغراضا عامة Generic Objects‏ وهي تأخذ مفgضI Delegate‏ کمحدد وتستخدمه لتحویل 
سألسة الأغراض من النوع العام للنوع المحدد ويرينا الكود التالي طريقة محملة ل "ألم" تأخذ Func(T, TResult)‏ کمحدد مفوض و هذا 
المفوض یأخذ غرض من نوع عام ۲آ ویعید غرض من النو ع عا 0u‏ 
Generic overload.‏ ' 
<Extension()> _‏ 
Function Median (Of T) (ByVal source As IEnumerable (Of T), _‏ 
ByVal selector As Func (Of T, Double)) As Double‏ 


Return Aggregate num In source Select selector (num) Into med = Median () 
End FüURNETEILON 


حيث يمكنك استخدام الطريقة هاه" من اجل سلسلة من الأغراض من أي نوع إذا لم يكن للنوع وظيفته المحملة فيجب عليك عندها 
تمرير محدد مفوض ٥ع"‏ 2۲2 gateعءDe|e‏ كما يمكنك استخدام تعابیر لمدا ومه‌اووم۲م×ع مط" ه|] لهذا الغرض كما يمكنك في فيجول 
بايزيك فقط استخدام قسم ٥اةعءعع۸‏ أو 8y‏ مده6۲ بدلا من استدعاء الطريقة حيث يمكنك تمرير أي قيمة أو تعبير ضمن مجال القسم 


ويرينا المثال التالي كيفية استدعاء الطريقة اكم" من أجل ١عععا١ا‏ أو ع” ٣ك‏ فمن أجل النصوص يحتسب طول النصوص في 
المصفوفة حيث نرى كيفية تمرير (†ااو۲۸ ٤)1,‏ "ں۴ للطريقة «ها١م"‏ من أجل كل حالة 


Dim numbers3() As Integer = {l, 2, 3, 4, 5} 


You can use num as a parameter for the Median method 

56 that the compiler WILL IMElLiIELEly GonverFt 1t5 value to double: 
If there is no implicit conversion, the compiler will 

display an error message. 


Dim query3 = Aggregate num In numbers3 Into Median (num) 
MsgBox ("Integer: Median = " & query3) 
Dim HümberFs4() A5 SEEING = {"oné";, "two", "thEée"™, "fOoüUE", T"five"} 


' With the generic overload, you can also use numeric properties of objects. 


Dim query4 = Aggregate str In numbers4 Into Median (str.Length) 
MsgBox ("String: Median = " & query4) 


' This code ptoduces the following Output} 


' Integer: Median = 3 
' String: Median = 4 


یمکننا توسیع الواجهة IlEnumerbale(T)‏ بطريقة استعلام مخصصة تعيد سلسلة من القيم وفي هذه الحالة يجب علينا إعادة مجموعة من 
النوع (۲) ٥٤۲۵1٥ص‏ ںمع| حيث يمكن استخدام طريقة مماثلة لما ذكر من اجل ترشيح أو تحويل بيانات إلى سلسلة من القيم ويرينا المثال 
التالي كيفية إنشاء طريقة موسعة تدعى وا" عم A۲١٤٠۳"‏ تعيد جميع العناصر الأخرى في المجموعة بدءا من العنصر الأول 


Extension method for the IEnumerable (of T) interface. 

The method returns every other element of a sequence. 
<Extension()> _ 

Function AlternateElements (Of T) (ByVal source As IEnumerable (Of T)) 
As IEnumerable (Of T) 


Dim list As New List (Of T) 

Dim i = 0 

For Each element In source 

If (i Mod 2 = 0) Then 
list.Add (element) 

ERE TE 
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Next 
REtUÛERN LISE 
ERO EUREETON 


حيث يمكنك استدعاء هذه الطريقة الموسعة من أجل أي مجموعة قابلة للتعداد تماما كما تفعل عندما تستدعي أي طريقة أخرى من 
الواجھة (۲) ٥2ط‏ ٣٥ں‏ مع | كما نری في الکود 
DIM SLEEINIOS) Bos SELIG = (aN, HD, WEN, WAM, TET}‏ 
Dim query = strings.AlternateElements ()‏ 


For Each element In query 
MsgBox (element) 


Next 


This code produces the following output: 
" @ 
6 
' e 
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القسم الثامن - الفنات والواجهات ومجالات الأسماء 


ويضم المواضيع التالية: 
ر آل ی ار کت عل عة ماقت 
Overriding WndProc ®‏ 
lgllژجھlٽ Interfaces‏ 
٠‏ تحقیق llواجqة |Enumerable‏ 
٠‏ إدارة المصادر والواجهة عااة0sمsءDi|‏ 
Using Generics with Interfaces ®‏ 
ه نظرة ضمن مجال الأسماء ۷~ 
ه كيف تقوم بإضافة إجراءاتك الخاصة إلى مجال الأسماء ١y‏ 
ه كيف تستطيع إطلاق أحداتك اJlخاصة RaiseEvent Tutorial‏ 
ه الطرlئق‏ jhllسَعة Extension Methods‏ 
٠‏ الطريقة ~i‏ 
ه التحمیل الزائد للaعnlںڻٽ Operators Overloading‏ 
ه إنشاء مكتبة تضيف وظائف جديدة للتحكمات الموجودة بدون استخدام الوراثة 
توسيع مجاJ‏ lلٺسlaء My Extensibility مlختwlڊ My‏ 
ه جعل صندوق النصوص يقبل العمليات الحسابية بدون استخدام الخاصية ٠6×‏ 
ودوال تحویل الأنواع 
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تجزنة الفئة أو التركيب على عدة ملفات 


أنشئ مشروعا جديدا و أضف إليه ملفينم|¡۴ مdإه٤‏ 


في الملف الأول أدخل الكود التالي الذي هو عبارة عن فئة اسمها هئم" 


Public Class Person 


Public Property FirstName () As String 
Get 
Return _FirstName 

End Get 

Set (ByVal value As String) 

_FirstName = value.Trim 

End Set 

End Property 


Public Property LastName () As String 
Get 


Return _LastName 
End Get 
Set (ByVal value As String) 
_LastName = value.Trim 
End Set 
End Property 


Public Sub New () 


_FirstName = "John" 
_LastName = "Doe" 
End Sub 


End Class 


الآن في الملف الثاني أدخل الكود التالي الذي هو عبارة عن تتمة الفنُةَ 0ء هم نفسها 


Partial Public Class Person 


Private _FirstName As String 
Private _LastName As String 


Public Sub New (ByVal FirstName As String, ByVal LastName As String) 


_FirstName = FirstName. Trim 
_LastName = LastName. Trim 
End Sub 


Public ReadOnly Property FullName () As String 
Get 
Return _FirstName & " " & LastName 
End Get 
End Property 
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End Class 


لاحظ في الملف الثاني قبل تعريف الفئة استخدام الكلمة Partial‏ وهي التي تمكننا من تجزئة الفئة ووها٣‏ أو الترکیب Stu c†ں r٥‏ إلى عدة 
ملفات 


Partial Public Class Person 


يستخدم فيجول بايزيك تعريف الفئة الجزئية لفصل الكود المولد تلقائيا من الكود المكتوب من قبل المستخدم على ملفات منفصلة. فعلى سبيل 
المثال مصمم النماذج يحدد فنات ووه اع جزئية للتحكمات مثل النموذج ۴٣٠٠٠.‏ وعليك ألا تعدل الكود المولد تلقائيا لهذه التحكمات . وهذا مثال 
آخر 


Partial Public Class sampleClass 
Public Sub sub1l () 

End Sub 

End Class 


Partial Public Class sampleClass 
Public Sub sub2 () 

End Sub 

End Class 


ويبقى استخدام الفئة كما هو كما لو كان ضمن ملف واحد كما كنا نفعل سابقا 
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Overriding WndProc 


يرسل نظام التشغيل - الويندوز - جميع أنواع الرسائل للتطبيقات والتي تخبرها عن التغبيرات في بيئة النوافذ. وهذه الرسائل تخبر 
النموذج بالقيام بعدة أشياء كإعادة الرسم» النقلء إعادة التحجيم» الإخفاءء التصغير»ء والإغلاق بالإضافة إلى الاستجابة للتغييرات في بيئة 
النوافذ أو القيام بأي شئ آخر متعلق بالنوافذ. ويكون لجميع تطبيقات النوافذ إجراء يتم إطلاقه للاستجابة لتلك الرسائل ويدعى هذا الإجراء في 
العادة ٤٥۴س‏ 0ل" ا۷ ويعالج فيجول بايزيك دوت نيت هذه الرسائل في إجراء يدعى € WnP‏ الذي يمكنك تجاوزه لعمل أشياء 
مخصصة عند استقبال برنامجك لرسائل معينة. 


فمثلا الكود التالي يظهر كيف يضمن البرنامج إبقاء النافذة لنفس نسب قياسات الواجهة بحيث نقوم بتجاوز الإجراء WndProc‏ 
الخاص بالنموذج والبحث عن الرllwة WM_SIZING‏ التي تستقبل محددات تتضمن الحافة التي يقوم المستخدم بجرها لتغيير حجم النموذج 
وتركيب من النوع R٠1‏ يعطي للنموذج مكانه وحجمه الجديدين ويبدأً الكود بتحديد التركيب R۸١1‏ تم يعلن عن إجراء تجاوز للإجراء 
٥م‏ والذي يحدد بعض الثوابت والمتغيرات الساكنة التي تحمل القيم الأساسية للنموذج ثم يحدد الإجراء ٥١‏ ٥۴۲١م‏ نوع الرسالة 
التي يقوم بمعالجتها فإن كانت ۷۷M _S|7|N6‏ تستخدم الوظيفة مع0Struc†ur Ptr‏ لنسخ «صه1۴ar.ص‏ إلى التركيب اءءR‏ الذي يتم 
استخدامه لحساب العرض والطول الجديدين للنموذج والنسبة بينهما. فإن كانت هذه هي المرة الأولى التي يتم تنفيذ ٥۲٥٥١‏ لم۷ فيها فتكون 
بذلك قيمة المتغير الساكن 0ااةإ_اءممءه_ل ×۴ مساوية للصفر وعندما يرى أن قيمته مساوية للصفر يقوم بتخزين نسبة الطول والعرض 
الحاليين للنموذج في ذلك المتغير ثم يقوم "4۴۲٠٠‏ بتحديد فيما إذا كانت النسبة الخاصة بالنموذج مختلفة عن القيمة الأصلية فإن تم تغييرها 
يقرر أي بعد (طول أو عرض) سيتم حفظه فإن كان المستخدم يقوم بالسحب من إحدى الزوايا يقوم الإجراء بحساب أي البعدين (طول أو 
عرض) هو الأكبر تم يقوم بحساب قيمة البعد الآخر الذي يحقق نسبة الطول للعرض الخاصة بالنموذج. وإن كان المستخدم يقوم بسحب أحد 
الأطراف يقوم البرنامج بالحفاظ على العرض الجديد ويقوم بحساب الارتفاع المناسب حسب النسبة وكذلك إن كان يقوم بالسحب باستخدام 
إحدى الحافتين العلوية أو السفلية يقوم بتثبيت الارتفاع ويقوم بحساب العرض الملائم حسب النسبة ثم يقوم البرنامج بتقرير فيما إذا كان يجب 
عليه نقل النموذج بحيث يحرك الطرف الذي يقوم المستخدم بسحبه فمتلا إن كان المستخدم يسحب الزاوية اليسارية السفلى فالبرنامج يغير قيم 
اليسار والأسفل بحيث تبقى الزاوية العلوية اليمنى ثابتة ثم يقوم Marshal.StructureTo Pr ءlۓeدتwlڊ WndP roc‏ لينسخ التركيب Rect‏ 
مجددا إلى "۸.1۴۲4۳" وأخيرا يقوم W4۴0‏ باستدعاء 4۲0 Ny8Base.W‏ ليترك المجال للإجراء ۷۵۴٣٥٤‏ الأب لاستخدام القیم 
الجديدة لتغيير حجم النموذج. واستدعاء الإجراء ٠٥٣۴ل"‏ الخاص بالأب هام جدا فإن لم يقم البرنامح باستدعائه لكل رسالة لم يتم معالجتها 
نشکل گال فان فلك الرساة أن رك مالجكها وبالتتيجة فة أن كو بم عالجة جي الرسائل الكاصة بها مها بنك عن ذلك عة مشاكل 
مختلفة كعدم قدرتها على إعادة رسم نفسها أو التحريك أو إظهار القوائم أو غيرها من الأمور الخاصة بالنموذج 


Imports System. Runtime. InteropServices 
PUGITE C1495 EOL 


Public Structüre Rect 
Public left As Integer 
Public top As Integer 
Public right As Integer 
Public bottom As Integer 
End SEEuUGEUrEe 


Protected Overrides Sub WndProc (ByRef m As System.Windows.Forms.Message) 
Const WM SIZING As Long = &H214 
COREE. WMSZ LEET As Iitegef =1 
CORSE WMSZ RIGHT. AS ThEegoE = 2 
CORSE WMSZ TOP AS IMteger = 3 
Const WMSZ_TOPLEFT As Integer = 4 
CORSE: WMS2. TOPRIGET AS IMEGGEE =5 
Const WMSZ BOTTOM AS Iiteger = 6 
Corist WMSZ BOTTOMLEFT As Integêr = 7 
GCORSE. W 


MSZ BOTTOMRIGHT As Integer = 8 

StdAE1iG , f£1xed. ëspect FaËlo AS DBolbleê = 

Dim new aspect_ ratio As Double 

If m.Msg = WM SIZING And m.HWnd. Equals (Me.Handle) Then 
' Turn the message's 1Param into a Rect. 
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0 


E AS REGE 
HIEEEECESE( 


Marshal.PtrToStructure (m.LParam, GetType (Rect)), 
Rect) 


' Get the current dimensions. 


Dim 
۳= 


Dim wid As Double = r.right - r.left 
Dim hgt As Double = r.bottom - r.top 
' Get the new aspect ratio. 

new aspect _ ratio = hgt / wid 


' The first time, save the form’s aspect ratio. 
If fixed aspect _ ratio = 0 Then 


fixed aspect _ ratio = new aspect _ ratio 
IF 


See if the aspect ratio is changing. 


End 
۲ 


If fixed aspect _ ratio <> new aspect ratio Then 


' To decide which dimension we should preserve, 


see what border the user is dragging. 
If m.WParam.ToInt32 = WMSZ_TOPLEFT Or 

m.WParam.ToInt32 = WMSZ_TOPRIGHT Or _ 
m.WParam.ToInt32 = WMSZ_BOTTOMLEFT Or _ 
m.WParam.ToInt32 = WMSZ_BOTTOMRIGHT Then 


' The user is dragging a corner. 


Preserve the bigger dimension. 

If new aspect _ ratio > fixed aspect _ ratio Then 
"TES. EO EaLL AQ. EHIiRN: MaKê 1E Wide: 
wid = hgt / fixed aspect ratio 

Else 


' TE’ 5 E06 ShOFt and. wide. Make 1Ë taller: 

hgt = wid * fixed aspect_ratio 

ERQ. TÊ 

Elself m.WParam.ToInt32 = WMSZ_LEFT Or _ 
m.WParam.ToInt32 = WMSZ_RIGHT Then 


" Thé USF 15 QdFEağiing :ã Side. 


' Preserve the width. 
hgt = wid * fixed aspect _ ratio 
Elself m:WParam.:.ToInt3Z2 = WMSZ TOP OF _ 
m.WParam.ToInt32 = WMSZ_ BOTTOM Then 


Thë user 15 QdFağgéing the EOD: OF BOCEEONN: 
' Preserve the height. 
wid = hg / fixed aspecî ratio 

ERG TÊ 

' Figure out whether to reset the top/bottom 

'" ANd. LEfE/ELORE. 

' See if the user is dragging the top edge. 

If m.WParam.ToInt32 = WMSZ_ TOP Or _ 
m.WParam.ToInt32 = WMSZ_TOPLEFT Or _ 
m.WParam.ToInt32 = WMSZ_TOPRIGHT Then 


' Reset the top. 
EFtOp = F.bottom = CInt (NG) 


Else 


' Reset the bottom. 
r.bottom = r.top + CInt (hgt) 


ERG TE 


See if the user is dragging the left edge. 

If m.WParam.ToInt32 = WMSZ_ LEFT Or _ 
m.WParam.ToInt32 = WMSZ_TOPLEFT Or _ 
m.WParam.ToInt32 = WMSZ_BOTTOMLEFT Then 


' Reset the left. 
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r.left = r.right - CInt (wid) 
Else 
' Reset the right. 

r.right = r.left + CInt (wid) 
ERG A 
' Update the Message object's LParam field. 
Marshal.StructureToPtr (r, m.LParam, True) 


oa E 
ERI: TÊ 
MyBase.WndProc (m) 


ERQ. SUD 


End Class 


في فيجول بايزيك 6 والنسخ السابقة له يمكن للبرنامج تثبيت إجراء ۷١ ل0W ۴۲0٥‏ خاص لعمل نفس العمليات بصعوبة وتدعى هذه العملية 
ب ع”أءءهاعطںء ويعتبر الاسم غير موفق لأن البرمجة غرضية التوجه تستخدم نفس الاسم ع٠‏ أءوهاءطںء للإشارة إلى إنشاء فئة من أخرى 
كما نفعل عند استخدامنا للعبارة واه |٠٣‏ وتكون عملية تجاوز ۷0۴۲0٥‏ في فيجول بايزيك دوت نيت أسهل بكثير وأكثر أمنا من الطريقة 
المستخدمة في فيجول بايزيك 6 كما تلاحظ في المثال ولكنك مازلت بحاجة لبعض الخدع لتحويل |٠٥‏ المخزن في 1۴۵۲۵۳." من وإلى 
تراكيب مناسبة. كما يكون عليك تقرير أي من الرسائل ستقوم باعتراضها وأي من قيم "۳.1۴4 و ۳هW۷۴a۲."‏ تأخذ وكيف يمكنك 
التأثير عليهم بأمان. وإحدى الطرق لتعلم هذه الرسائل هو إدراج الإجراء "١٥۲٠٥١‏ التالي ثم القيام بالعمل الذي تريد دراسته (تغيير حجم 
النموذج على سبيل المثال) 


Protected Overrides Sub WndProc (ByRef m As System.Windows.Forms.Message) 
Debug.Print (m.ToString) 
MyBase.WndProc (m) 

ERG SUb 


والسطر التالي يبين النتيجة من أجل الرسالة 1_S|2|١6‏ ۷ المرسلة إلى النموذج عندما يقوم المستخدم بتغيير حجمه وعلى الأقل يظهر اسم 
الرسالة 6 ۷۷M _S|7|‏ وقيمتها الست عشرية 0×214 


msg=0x214 (WM_SIZING) hwnd=0x30b8c wparam=0x2 1param=0x590e29c result=0x0 


والبحث عن اسم الرسالة في موقع مايكروسوفت ومواقع البرمجة الأخرى يعطيك في العادة معلومات أخرى تحتاج لمعرفتها مثل معنى قيم 
m.WParam‏ و aram‏ 1۴.ص كما يجدر ملاحظة أن وءھاء ۴٥٣۳‏ يرث الإجراء W٥٣٥‏ من ها اهمه والتي ترثه بقية 
التحكمات على النموذج بدورها و الذي يعني أنك تستطيع تجاوز الإجراء "4۴۲0٥‏ بأي تحكم منها وبذلك يمكنك التحكم بتصرفاتها. فمتلا 
ترينا قطعة الكود التالية كيف تعمل الفئة ×0 8× N0txM "u۲ e‏ والمشتقة من التحكم ×80×ه] بحيث يقوم الإجراء ۷١۴٣0٤٥‏ الخاص 
بها بتفحص الرسالة NX M٤ N۷‏ 0)_ ۷۷ ثم يستدعي الإجراء الخاص بالفئة الأب من أجل جميع الرسائل الأخرى وبالقيام بإفشال 
معالجة الرسالة WM _0N EXT M٤N‏ نمنع إظهار القائمة المنبثقة الخاصة بالتحكم والتي تضم أوامر مثل النسخ واللصق عندما تنقر 
بزر الماوس اليميني عليها 


Public Class NoCtxMnuTextBox 
Inherits System.Windows.Forms. TextBox 
Protected Overrides Sub WndProc (ByRef m As System.Windows.Forms.Message) 
Const WM _ CONTEXTMENU As Integer = &HT7B 
If m.Msg <> WM_CONTEXTMENU Then 
MyBase.WndProc (m) 
ERQ. TÊ 
a le 
ERG CLES 
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Interfaces ٽlھجاولئا‎ 


أفترض بمن يتابع معي أن تكون له دراية عن الفئات وإنشائها والتعامل معها 

الواجهة هي نوع مرجعي تستخدمه الأنواع الأخرى لضمان أنها تدعم عملية معينة وهي تحدد عناصر معينة يجب أن تتضمنها الفئات التي 
تحقق هذه الواجهات وهي تحتوي على طرائق وخصائص وعناصر أحداث تماما كالفئات 

الصيغة العامة 


[| €<aEErIDUEeIISE> | [| aCCceSSNOdI LIE | [| ShadOWS | 
TAteEface Nane [| ( Of tvYBeliSt ) | 


Inherits interfacenames |] 

[ modifiers |] Property membername |] 
modifiers | Function membername |] 
modifiers | Sub membername |] 
modifiers | Event membername |] 
modifiers | Interface membername |] 
modifiers | Class membername |] 
modifiers | Structure membername |] 


nnd Interface 


وكما نرى من الصيغة العامة فيسبق التصريح عن الواجهة واصفات وءعاںطا۲ A٤‏ وكلمات تحديد المجال مثل عiااںم‏ أو الكلمة sسwملهة!SŠ‏ 
التي تعني أن هذه الواجهة تعيد تعريف واجهة موجودة وبنفس الاسم كما يمكن وراثة واجهة من أخرى تماما كالفئات وهي تحتوي على نفس 
لعناصر الممكن احتوائها ضمن الفئات من وظائف ودالات وخصائص ... الخ ولكنها تحدد تعريف هذه الوظائف والخصائص فقط بدون 
الكود الذي يحدد عملها ويجب على أي فئة تحقق واجهة معينة أن توفر الكود العملي لكافة العناصر الموجودة ضمن هذه الواجهة ويمكن 
تعريف الواجهة على مستوى عءaمءعه"‏ أو عاںلكه" أي يجب أن يكون تعريفها عاما وغير محصور ضمن إجراء معين كما يمكننا 
تعشيش الواجهات بحيث أن أية واجهة ممكن أن تتضمن واجهة أخرى كما يمكن تحديد خاصية افتراضية باستخدام الكلمة اج۴ م0 ولا يمكن 
استخدام محددات الوصول متل cاااں۴‏ أو ٥tھ۷ام‏ عند التصريح عن عناصر الواجهة ولكن يمكن استخدIام Overloads‏ أى shadows‏ 
وعندما تستخدم واجهة ضمن فئة يتم الإعلان عن عناصر هذه الفئة باستخدام محدد الوصول ١اط"‏ افتراضيا الأمر الذي يمكنك تغبيره 
لاحقا على مستوى تلك الفئة كما لا يمكن التصريح عن متغيرات ضمن الواجهة وعند تسمية الواجهات يفضل أن يبدأ الاسم دوما بالحرف | 


لنرى الآن بعض الأمثلة عن الواجهات 
يمكن أن نعرف واجهة لأشخاص تحتوي على بعض الخصائص كما يلي 


Interface IPerson 
Property Name () As String 
Property Birthdate () As Date 
ReadOnly Property Age() As Integer 
End Interface 


أو يمكننا تعريف واجهة لبعض العمليات الحسابية 


Interface ISomeMath 
Function AddNumbers (ByVal a As Integer, ByVal b As Integer) As Integer 
Function AddNumbers (ByVal a As Double, ByVal b As Double) As Double 
Function Multiply (ByVal a As Integer, ByVal b As Integer) As Double 
End Interface 
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كما يمكن أن نعرف واجهة لدفتر الهواتف ترث واجهة الأشخاص كما يلي 


Interface IPhonebook 
Inherits IPerson 


Property Phone () As String 
Property Address() As String 
Sub ShowInformations () 

End Interface 


الآن إن كانت لدينا فئة للهواتف نريد منها أن تحقق الواجهة )ممطعم هم۴ نستخدم الكلمة ,مامص | تماما بعد التصريح عن تلك الفئة 
وسنرى أن بيئة التطوير ستضيف الهيكل الأساسي لعناصر تلك الواجهة إلى الفئة الجديدة 


Public Class Phones 
Implements IPhonebook 


Public ReadOnly Property Age() As Integer Implements IPerson.Age 
Gê 


End Get 
End Property 


End Class 


كما يمكن استخدام أكثر من واجهة ضمن الفئة الواحدة 


Class SomeTest 
Implements IPerson 
Implements ISomeMath 


Public ReadOnly Property Age() As Integer Implements IPerson.Age 
Get 


End Get 
End Property 


Public Function AddNumbers (ByVal a As Double, ByVal b As Double) As Double 
Implements ISomeMath. AddNumbers 


ERQ Fünriction 


End Class 


E N ES ê SY CEE A Ea a NE 
في هذه المرحلة‎ Public محدد الوصول‎ 


وهذا مثال على تعشيش الواجهات بداخل بعضها 
Interface IPhonebook‏ 
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Interface IPerson 
Property Name () As String 
Property Birthdate () As Date 
ReadOnly Property Age() As Integer 
End IAESFFaCê 


Property Phone() As String 
Property Address() As String 

Sub ShowInformations () 

Event SomeEvent (ByVal a As Int16) 
End Interface 


واستخدامها ضمن الفئة 
Class test‏ 


Implements IPhonebook 
Implements IPhonebook. [Persone 


ERQ CLëSS 


سؤال: 
الحقيقة لا أجد الواجهات سوى أنها تجبر مستخدمها على تعريف أعضاء الواجهة (خصائص أو دوال أو وظائف) بداخل الفئة . بعبارة أخرى 
تستورد هيكل فئة من دون أي كود !! 


فماذا سأستفيد من هذا الأمر ؟ 

الجواب 

إذا تنقلت في بعض الفئات والواجهات في ١لم‏ ستجد أن مايكروسوفت تلزمك باستخدام واجهة معينة لأداء غرض معين (أي ضمان أن 
فئتك تتضمن عناصر معينة لازمة لإتمام المهمة التي أنت بصدد القيام بها) فمثلا عندما تستخدم عبارة ع” اول للتصريح عن متغير يجب أن 
تكون الفئة التي نعرف هذا المتغير من نوعها محققة للواجهة ءاوه مءا0| وذلك لأن ع ول تحتاج إلى عناصر معينة أن تكون متوفرة في 
المتغير الذي تعرفه وهذه العناصر توفر ها للفئة الواجهة مااةوهمءا0| 
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IEnumerable (0f T) تحقيق الواجھ‎ 


یتم تعريف الواجھة (۲)٥اط‏ ھ٣٥٣‏ ںمع| بواسطة فئات تستطيع إعادة سلسلة من القيم بشكل متسلسل قيمة قيمة وتكمن الفائدة من إعادة 
البيانات بهذه الطريقة هي أنه لا يجب عليك تحميل مجموعة كاملة من البيانات في الذاكرة من أجل العمل عليها فأنت تستخدم ذاكرة كافية 
لتحميل عنصر واحد من البيانات ويمكن استخدام الفئات التي تحقق الواجھة (۲) ٥ا2‏ ط٣٤‏ ں "ع۱ مع حلقات ۴٥۴ ... ۸٥×٤‏ أو مع استعلامات 
لینك ۹٣نا‏ 


فإن كان على تطبيق معين القراءة من ملف نصي كبير ويعيد أسطر الملف التي توافق معيار بحث معين فيستخدم التطبيق استعلامات لينك 
للعودة بالأسطر التي تطابق معيار بحث معين وللاستعلام عن محتويات الملف بواسطة استعلام لينك يجب على التطبيق تحميل محتويات 
الملف ضمن مصفوفة أو مجموعة ولكن عملية تحميل الملف باكمله ضمن مضفوفة أو مجموعة تدشهلك قدرا كبيرا من الذاكرة ويدلا عن 
ذلك يمكن لاستعلام لينك الاستعلام عن محتويات الملف باستخدام فئة قابلة للتعداد وووا٣‏ ماطة۲ع نمع تعيد فقط تلك القيم التي تطابق شرط 
البحث فالاستعلامات التي تعيد بضعة قيم مطابقة تستهلك قدرا أقل بكثير من الذاكرة 


ويمكنك إنشاء فئة تحقق الواجهة ()عاطaامعمصnuع‏ | لتقدم البيانات المصدرية كبيانات قابلة للتعداد وفئتك التي تحفقق الواجهة 
(e)1اEnumerab]‏ ستحتاج إلى فئة ثانية تحقق الواجهة (١)١0ه١٠ع"_ںمع|‏ للدوران حول البيانات المصدرية بحيث تمكنك هاتان الفئتان 
من إعادة عناصر البيانات بشكل متسلسل من نوع محدد وفي هذا المثال سنقوم بإنشاء فئتان الأولى تحقق الواجهة lEnumerbale(Of‏ 
(ع"ا٣St‏ والثانية تحقق الواجهة (ع ]Enumerat 0۲)0۴ S٣‏ بحيث تستخدمان للقراءة من ملف نصي سطر واحد في کل مرة 


أنشئ مشرو عا جديدا من lلiوع Stream ReaderEnumerable 4تıمستڊ م‌ãو Class Library‏ ثم من Solution Explorer‏ قم بإعادة 
تسمية الملف (ss1.v0ھaاح‏ إلى bزle.vاtreamReaderEnumerabك‏ وإن سألتك بيئة التطوير اقبل تغيير اسم الفئة إلى 
Stream ReaderEnumerable‏ ثم انقر بزر الفأرة اليميني عل lلnضشروع New item pû Add رتخl StreamReaderEnumerable‏ 
تم 55ا٣‏ وقم ڊتسمية انف StreamReaderEnumerator.vb‏ 


افتح الملف vb.ع‌|اReaderEnumerab Stream‏ وفي القسم العام بعد تعريف الفئة ادخل 


Implements IEnumerable (Of String) 


تم اضغط ١٥۲٣ع‏ فيقوم فيجول بايزيك تلقائيا بإضافة العناصر الضرورية لتحقيق lلوزجهة IEnumerable(Of String) interface‏ إل« 
كودك وسنقوم الآن بإضافة باني عام للفئة يأخذ محدد واحد هو مسار الملف 


PELINE. fEILéPaCR: As SEEING 
Public Sub New (ByVal filePath As String) 


_filePath = filePath 
ENQA. Sub 


سنقوم الآن بإضافة الكود المناسب للوظيفة ۲٥20٣٤ص‏ uں 6e۴"‏ بحيث تعيد تواجدا جدıد| StreamReaderEnumerator ill‏ ويمكن 
جعل تعريف هذه الوظيفة خاصا لأنك تريد عرض عناصر الواجهة (ع S۲1‏ 0۴)عاطهامصuمع|‏ فقط اجعل كود الوظيفة مطابقا للتالي 


Public Function GetEnumerator () _ 
As System.Collections.Generic. IEnumerator (Of String) _ 
Implements System.Collections.Generic.IEnumerable (Of String) .GetEnumerator 


Return New StreamReaderEnumerator (_filePath) 
End FURNCELoR 


PUBLILE PUNGEILON GetENümeratorl). _ 
As System.Collections. IEnumerator _ 
Implements System.Collections. IEnumerable.GetEnumerator 


Return Me.GetEnumerator () 
ERG: FUREEILOS 
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افتح الملف stream ReaderEnumerator. vb‏ وفي القسم العام للفئة ume rato‏ amReaderEnمtreك‏ أدخل السطر التالي ثم اضغط 
Enter‏ 


Implements IEnumerator (Of String) 


فيتم إضافة العناصر الضرورية لتحقيق الواجهة (ع” ااك 0۲)0۴هامصuمع|‏ لكودك أضف الكود التالي الذي سيشكل باني الفئة التي ستقوم 
بفتح الملف وتنفيذ عمليات الدخل والخرج عليه بحيث يأخذ محددا وحيدا هو مسار الملف 


PEivaltê SF AS IO.StreamReader 
Public Sub New (ByVal filePath As String) 


_Sr = New 1O0.StreamReader (filePath) 
ER Sub 


الخصائص الحالية للواجھات Enumerator(Of String)‏ و Enumerator‏ | تعيد العنصر الحالي من الملف النصي كنص ويمكن جعل 
تعريف الخاصية ٤٣٥٣إں٤‏ خاصا لأنه عليك عرض خصائص الواجهة (ع” S|‏ 0۴)عاطaامumمnع|‏ فقط الآن اجعل كود الخاصية 
Current‏ مطابقا للتالي 


PFEIVatê. _CUrFEENT. AE SEEING 


PUBLLGE  REAQAONTT PEOREKEY CUFEFENE() A0 SEIR | 
Implements IEnumerator (Of String) .Current 


Get 


TE . SF 18 NOCRING OEELSE -eUrEENT TS NOChING Then 
Throw New InvalidOperationException () 
End TÊ 


REEUER . :CUEFERNE 
End Get 
ENd Property 


PEINSTES ٠: RESOORLY PFEOBEFEY CUEFEENEL() .A& OBJEC | 
Implements IEnumerator.Current 


Get 

Return Me.Current 
End Get 
End PEOpEFEFEY 


تتنقل الطريقة †×ع ١مم(‏ للواجهة ماج۲ عنم ع| للعنصر التالي في الملف النصي وتحدث القيمة المعادة من الخاصية ٣٥٤‏ ں٤‏ وإن لم 
يعد يوجد أية عناصر أخرى تعيد الطريقة ٥×†‏ ١م0۷‏ القيمة ماج۴ وإلا فسوف تعيد القيمة مں ۲٣‏ الآن اجعل كود ٥×†‏ ١م۷0۷‏ كما يلي 


FUGLLS PFURNEETOR. MOVENEXE.(). AS: BOOLEAT _ 
Implements System.Collections. IEnumerator.MoveNext 


_ current = _sr.ReadLine () 
TE _CüûfEen KS NOERING THEN REQE. ESLSe 
REEUEM TEUê 
EHQGd. FURHEETLOR 


وتوجه الطريقة اعم للواجهة ١ه0اة۲‏ ع" ںمع| نقطة التكرار بالانتقال إلى نقطة البداية للملف النصي وتفرغ قيمة الخاصية 
Currentltem‏ 


أجعل كود الطريقة مءعR‏ كما يلي 
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PULL Su Reset) 
Implements System.Collections. IEnumerator. Reset 


_Sr.DiscardBufferedData () 
_Sr.BaseStream. Seek (0, I10.SeekOrigin. Begin) 
_CUEEeNE = NoCRHIRNG 

End Süûb 


وتضمن الطريقة مosمisط‏ للواجهة ùİ IEnumerator‏ جمیع المصادر الغير مدارة سيتم تحريرها قبل تدمير التكرار فمقبض الملف الذي 
يستخدم من قبل الغرض "۸٥20٥١‏ هه٠5‏ هو موارد غير مدارة ويجب أن يتم إغلاقه قبل أن يتم تدمير تواجد التكرار استبدل الكود الذي 
ولد من أجل الطريقة عوهممءا0 بالكود التالي 


Private disposedValue As Boolean = False 


Protected Overridable Sub Dispose (ByVal disposing As Boolean) 
If Not Me.disposedValue Then 

If disposing Then 
' Dispose of managed resources. 

ERAM TÊ 

_CUFEENnE. = Nothing 

_Sr.Close() 

_Sr.Dispose() 


ER TÊ 
Me.disposedValue = Tru 
ERG Sub 
Public Sub Dispose() Implements IDisposable.Dispose 


Dispose (True) 
GC.SuppressFinalize (Me) 
EHA SUB 


Protected Overrides Sub Finalize () 
Dispose (False) 
EQ. SUS 


من أجل تجربة الفئات التي قمنا بإنشائها قم بإضافة مشروع جديد من النوع Solution gl! Windows Application‏ 
Stream ReaderEnumerable‏ ثم قم بإضافة مرجع لمكتبة الفئات عاطة۲ Stream Read erع "ue‏ وذلك بالنقر بزر الفأرة الأيمن على 
المشروع الجديد ثم اختيار عمء" A١ Rع۴م ٠‏ ومن صفحة ءاء مزه اختر مكتبة الفئات المذكورة 


أضف على النموذج ×180ءأا و ٣٥ا8‏ واجعل كود النموذج كما يلي 


Imports StreamReaderEnumerabl 
FUBIIG CLS FOFML 


Private Süb Büuttonl Click() Handles Büttonl.ClIick 
Dim adminRequests = _| 
From line In New 
StreamReaderEnumerable.StreamReaderEnumerable ("c:\ipconfig.txt") 
Where line.Contains ("Display") 


Me.ListBox1.Items.Clear () 
Me.ListBoxl.Items.AddRange (adminRequests.ToArray) 
ERG SUB 


End Class 
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حيث استخدمنا الفنة معاطھ۲ Stream Readerعnu e‏ في استعلام لينك يجلب السطور من الملف ا»ا.عا؟ممعماً|:ء التي تحتوي على 
الكلمة yرهامءDi‏ 
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إدارة المصادر والواجهة م[طجةئ0مsء190i‏ 


يقدم ."6٤‏ وج8 اهںءا۷ انعطافة جديدة في إدارة المصادر. حيث يوفر ال C1۴‏ تقنية لإدارة المصادر تعرف باسم جمع النفايات عمعة2ط۲هĞ‏ 
"ecti0ااهC‏ وذلك لتحرير المطور من معظم مهام إدارة الذاكرة. ولكن هذا لا يأتي بدون ثمن ولا يحررك بشكل كامل من التعامل مع إدارة 
الذاكرة. ففي بعض الحالات يجبرك جامع النفايات على أن تكون مدركا أكثر بخصوص العناصر التي يجب أن تقوم بالتخلص منها يدويا 
والتأكد من أن المصادر قد تم تحريرها بطريقة مناسبة. ولكن في أغلب الحالات لن تضطر للقلق حول متى يتم تدمير الأشياء. 


في 6.0 اه8 اهنءا۷ عندما تصبح جميع المتغيرات التي تشير إلى شئ ا1ءءزط0 معين معينة إلى عہ ا۸اہ عندھا یتم تحرير الذاكرة 
المرتبطة بهذه المتغيرات بشكل فوري. ويأخذ ال ٤1۴‏ الآن هذه المسؤولية حول إدارة المصادر مما يمكن المطورين من التركيز على تحسين 
برامجهم عوضا عن كتابة الكثير من شيفرة إدارة الذاكرة. 


وهذا يتطلب تغييرات في ممارسات كتابة الشيفرة. فمثلا عندما تضبط متغیر ما إلى ع, ۸1اه" لا يتم تدمير الشئ اءءزط0 مباشرة ولكن 
سوف يتم تدميره لاحقا وهذا ما يحدده جامع النفايات. وفي أغلب الحالات لا يجب أن يؤثر هذا على تطبيقك ولكن في بعض الحالات كبرنامج 
يقع تحت ضغط قلة مصادر النظام المتاحة يمكن أن يشكل معضلة حقيقية من ناحيتي الأداء والمرونة. ففي الحالات التي يكون فيها الأداء 
أساسي يكون من أول اهتماماتك إفراغ مصادر النظام فور فراغك من استخدامها. 


أبق في ذهنك أن دورات جامع النفايات مكلفة. والفكرة تكمن في منع جامع النفايات من العمل بشكل متكرر كثيرا فكلما قمت بالتنظيف خلفك 
كلما تركت عمل أقل لجامع النفايات لعمله وبذلك تقوم بتحسين أداء برنامجك. 


The Garbage Collector ٽlيlill جام‎ 

إذا كان التطبيق يستخدم مصادر غير مدارة Unmanaged Resources‏ كتحديد ذاكرة خاصة أو مؤشرات الملفات أو عناصر 
أخرى من مصادر النظام فإن جامع النفايات في العادة لن يكون لديه فكرة عن كيفية تحرير تلك المصادر وبالرغم من أنه قد يكون قادرا على 
التعامل مع بعض هذه المصادر وربما لن يكون من الضروري تفريغهم بشكل دوري. ومن الهام أن تقوم ببعض التنظيف اليدوي وخاصة 
عندما تتعامل مباشرة مع ما يمثل بعض المصادر على الجهاز. 


تجاوز ع ٣م0۷‏ الطريقة مأاة٠ ٥.۴‏ ٠زط0‏ وحرر بعض المصادر هناك ففي الحالة الافتراضية هذه الطريقة لا تفعل شيئا ولكن انتبه بما 
أن جامع النفايات يعمل باستخدام الطريقة ماج۴ فإن ذلك سيؤثر على الأداء فلا تقم باستخدامها إلا إذا كنت حقا بحاجة لاستخدامها. وحتى 
عندما يتم تجاوز مل 0۷٥۲٣‏ الطريقة ماج۴ وتحرير المصادر لا يمكنك التحكم بمتى يقوم جامع النفايات ببدء عملية الجمع. مع أنه يمكنك 
دوما استدعاء اءم|ام٤.٤6.”‏ 1ء5 ولكن لا يجب عليك القيام بذلك في بيئة الإنتاج. فإدارة مصادر C1۴‏ عملية معقدة والجامع يعرف متى 
يكون الوقت الأنسب لبدء دورة الجمع. كما أن أداء تطبيقك سيتأئر بشكل سئ إذا بدأت باستدعاء اءع|ام٤.٤6."عtءل؟‏ بشكل متكرر وأبق 
في ذهنك أن جامع النفايات يبدا عندما يكون هناك حاجة لذاكرة مدارة وليس لديه تحكم حقيقي بالمصادر غير المدارة. حيث توفر لك ال 
Framework)‏ حلا لهذه المشكلة وهي الواجهة ما aء0مء9Di|‏ 


lئوlج4 IDisposable‏ 
إذا كيف يمكنك معرفة إذا كان الشئ )»زط0 يحتاج إلى تنظيف إضافي؟ في الحقيقة الجواب سهل جدا فجميع الفئات sعءءها٣‏ 

التي تقوم بتخصيص مصادر يجب تفريغها مباشرة يحب عليها أن تحقق الواجهة مااةوممءأ0| وهي تحتوي على طريقة وحيدة 
Public Interface IDisposable‏ 


Sub Dispose () 
End Interface 


إذا كانت الفئة وها التي تستخدمها تحقق هذه الواجهة يجب عليك استدعاء عءه0مءا عندما تنتهي منها. أمر بسيط أليس كذلك؟ ولكن ما 
هي الفوائد من الواجهة عماطهءممءاد!؟ الواجهة مااةوممءا0| تجعل من الممكن تحديد جميع الفئات ءعءءه|ا التي تخصص مصادر ثمينة 
وهي توفر آلية مبسطة يمكن الاعتماد عليها لتحرير جميع هذه المصادر. وكما ذكرنا سابقا العديد من الفئات في ال Framework‏ تحقق 
الواجهة ما ھوەمء0i|‏ وهذا متال يستخدم لځ SqIlConnectio n‏ 
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Dim conn As New SqlConnection () 
' Dor StEUEE 
conn.Dispose () 


ولكن ليس بالضرورة أن يكون هذا موثوقا فحدوث الأخطاء والاستثناءات متوقعا دائما لهذا يجب وضع استدعاء موه0مءا0 في قسم اه۴ 
في حلقة ۸ه ... ر٣‏ مما يضمن أن شيفرتك ستقوم بالتنظيف دائما حتى عند حدوث خطأ أو استثناء ما وبذلك يمكن إعادة كتابة الشيفرة 
السابقة بالشكل 


Dim conn As SqlConnection 
TEY 
conn = New SqlConnection () 
™ Do: SEUEEÊ 
Catch ex as Exception 
' Handle Exception Here 
Finally 
conn.Dispose () 
End Try 


ولكن ماذا إذا احتجنا لتحقيق الواجهة عااةء0مء0i|؟‏ 


تحقيق الواجهة م[جsهمء¡190‏ 
إليك سوال مثير للاهتمام: متى يجب على الفئة أن تحقق الواجهة عاطهءهمءاص|؟ هذه ثلاث حالات عامة يجب عليك فيها تحقيق 
الواجهة مااةوممءا0| في فئتك: 


ه عندما تحتوي فئتك على فئات أخرى تحقق الواجهة ما ةكم مءأد| 
ه عندما تحتوي فئتك على واجهات لأشياء °0۸ 
e‏ عندما تحتوي فئتاف غل مقبض عال ۸۲a"‏ لمصادر 2| فعالة 


وأبسط تحقيق للواجهة ماطاةءممءا۵| يمكن أن يكون على الشكل 


Public Class MyDisposableClass 
Implements IDisposable 


! Other members 
Public Overloads Sub Dispose() Implements IDisposable.Dispose 


"Release Your Resources Her 
End Sub 


End Class 


ولكن أبسط تحقيق لا يكون دائما الأكثر وثوقية. ويمكن أن يبدو تحقيق أكثر اكتمالا على الشكل 


Public Class MyDisposableClass 
Implements IDisposable 


Public Overloads Sub Dispose() Implements IDisposable.Dispose 
Dispose (True) 
GC.SuppressFinalize (Me) ' No need call finalizer 
End Sub 
Protected Overridable Overloads Sub Dispose (ByVal disposing As Boolean) 
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If disposing Then 

' Free managed resources 
End If 
' Free unmanaged resources 
End Sub 


Protected Overrides Sub Finalize () 
Dispose (False) 

End Sub 

End Class 


بالرغم مما قد يعتقده البعض تبقى إدارة الموارد جزء هام من عملية تطوير التطبيقات باستخدام .٠٥‏ ٤و8‏ اهاء۷ وربما تفترض أنه على 
جامع النفايات القيام بجميع عمليات التنظيف وإدارة الذاكرة من أجلك بحيث يكون هذا الأمر صحيحا في أغلب الأحيان . وتكمن المشكلة هنا 
في أن التطبيق يمكن أن يستخدم مصادر معينة لا يمكن لجامع النفايات التعامل معها.مع أن جامع النفايات يمكنه التعامل مع معظم أمور إدارة 
الذاكرة لتطبيقك إلا أنه في بعض الحالات قد تضطر للقيام بعمل إضافي 


و بسبب طبيعة جامع النفايات الغير قابلة للتحديد تظهر مشكلة حيث لا توجد أية ضمانات حول أية أشياء ءاءعزط0 سيتم تنظيفها في النهاية. 
حيث يشكل هذا الأمر مشكلة عندما تمزج معايير أداء صارمة مع أشياء واءعزط0 تستخدم ذاكرة غير مدارة كمقابض الملفات ورسوميات 
+ا60 ومقابض النوافذ و ءاءعزطا0 C0۸۷‏ وأشياء أخرى فإذا كان لديك تطبيق أو خدمة تتعامل مع الكثير من الطلبات المشابهة فقد تستنفذ 
موارد النظام بوقت قصير إن لم تتخلص منهم بسرعة. وبكلمات أخرى قد يسبق تطبيقك عملية التنظيف التي يقوم بها جامع النفايات ويتجاوز 
المصادر المتاحة من قبل النظام قبل أن يقوم جامع النفايات بتنظيف الأشياء الغير مستعملة. 


من الواضح أن هذا الأمر ممكن أن يشكل مشكلة حقيقية ليس فقط بعملية التنظيف بذاتها ولكن بتحديد الأشياء التي تحتاج لتنظيف بشكل 
فوري. ويکون حل ال ۴R‏ لهذه المشكلة بتقديمه الواجهة ماsabمiso!‏ حيث تقوم هذه الواجهة بتحديد دالة وحيدة 
e.DisposeاosabمDis‏ حیث تکون فکرۃ الواجھة عاطھءہمءا۵| بسیطة جدا فإن کان شیئك ٥c‏ زط0 ۷٥۲‏ یستخدم مصادر غیر مدارة 
تستمر طوال فترة حياة ذلك الشىئ اt1ءعزط0‏ يجب عليك تحقيق الواجهة مء اطهءهمءا| وتنطبق هذه القاعدة على فئاتك الخاصة ۷u‏ 
ئها وأيضا على الفئات الموجودة سلفا ضمن Framework dJ‏ 


كما تجدر ملاحظة أن اعم. وج8 اء أو ال C1۴‏ يجبرك على القيام بتنظيف الموارد الغير مدارة في فئاتك الخاصة أو تحقيق الواجهة 


ما0saمءi!‏ وتعتبر هذه هي الممارسة التي ينصح بها وبالتالي تضمن أن المطورين الآخرين سيعلمون أي الفئات تحتاج إلى عملية تنظيف 
إضافية 
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Using Generics with Interfaces 


Using Generic Interface 
يمكن للواجهات وءعءه؟۲٠t١| أن تكون اهمع بحيث يمكنها تزويد نوع واحد أو أكثر من المحددات التي تملا بنوع المحدد عندما يتم‎ 
استخدام الواجهة انظر للمثال التالي‎ 


Option Strict Off 
Interface IGeneric(Of T) 

Sub SomeMethod(ByVal x As T) 
End Interface 


Class A 
Implements IGeneric(Of Integer) 


Public Sub SomeMethod(ByVal x As Integer) _ 
Implements IGeneric(Of Integer).SomeMethod 
Console. WriteLine("A.SomeMethod received " + x.ToString(0) 
End Sub 
End Class 


Class B 
Implements IJGeneric(Of Double) 


Public Sub SomeMethod(ByVal x As Double) _ 
Implements I[Generic(Of Double).SomeMethod 
Console. WriteLine("B.SomeMethod received " + x.ToString0) 
End Sub 
End Class 


Public Class EntryPoint 
Shared Sub Main( 
Dim ca As IGeneric(Of Integer) = New AQ) 
Dim cb As IGeneric(Of Double) = New BO 
ca.SomeMethod(123.456) 
cb.someMethod(123.456) 
End Sub 
End Class 


فالواجهة (۲ 0۴)ءأ۲ |٥"‏ في المثال السابق تستخدم محدد النوع إ۲ في كلا الواجهة والطريقة و الفئة ۸ ووءواح تحقق الواجهة أ |6٥‏ 
مستخدما النوع ٣‏ ععه]م| وبالتالي يصبح محدد الوظيفة 04ط†مMءعmصمك‏ من النوع ١ععمtم|‏ وفي الفئة 8B‏ وءها٣‏ يحققها من النوع 
eاoubط‏ وبوجود الموجھ Option Stic‏ علی الوضع 0۴۴ یسمح بتحویل تضییق لیحول القیمة من النوع مااںہ إلى النوع erعم†ہا‏ 


Using a Generic Method in an Interface 
حتى يكون لها عناصر "ع6 انظر المثال التالي‎ Gene rİ ليس ضروريا أن تكون الواجهات‎ 
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Option Strict On 
Interface INonGeneric 

Sub SomeMethod(Of T)(ByVal x As T) 
End Interface 


Class A 
Implements INonGeneric 


Public Sub SomeMethod(Of T(ByVal x As T) _ 
Implements INonGeneric.SomeMethod 
Console. WriteLine("A.SomeMethod received " + x.ToStringO0) 
End Sub 
End Class 


Public Class EntryPoint 
Shared Sub Main(0 
Dim ca As INonGeneric = New A0 
ca.SomeMethod(123.456) 
ca.someMethod("123 point 456") 
End Sub 
End Class 


الواجهة ءام مم |N0n6‏ في المثال السابق ليست ع ممم ولكن الطريقة (۲ 4)0۴١٥1†ءNءعص‏ هك هي كذلك وعكس المثال السابق 


فالطريقة ليست محدود بنوع محدد من أجل فئة معينة تحقق تلك الواجهة وهذا المتال يستخدم الموجه أ٣ S†‏ «هiام0‏ على الوضع 0۸ ليحد 
من تحويلات التضييق ويثبت أن الأنواع المختلفة مقبول كمحددات 
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نظرة ضمن مجال الأسماء ١¥‏ 


My Namespace 
بنية شجرية مفهومة قابلة للفهم سريعا لإجرائيات الفريموورك تستهدف مجموعة من المهام التي تحتاجها بشكل‎ 1y يزودنا مجال الأسماء‎ 
سع "هم۴ كالتالي‎ 0٣k) 1.1 - ۷/82003 متكرر فعندما نريد قراءة ملف نصي يكون الحل ضمن‎ 


Dim sr As New 10.StreamReader ("c:\mytextfile.txt") 


contents = sr.ReadToEnd 
sr.Close () 


وهذا الكود يعمل جيدا في ۷/82005 ولكن يمكنك كتابته بشكل أسرع كالكود التالي 


contents = My.Computer.FileSystem.ReadAlIlText("c:\mytextfile.txt") 


الفئة ع †ءy؟c0omputer.۴İ|e My.‏ هي واحدة من عد فئات ضمن امتداد اللغة 0y‏ لذا أول شيئ يفترض أن تعمله هو التعرف عليها وما 
توفره لك فإيجاد وتنفيذ العملية الصحيحة هي عمل روتيني في البرمجة فعندما نريد تنفيذ عملية نستخدمها في عدة أمكنة بشكل متكرر نضمنها 
ضمن إجراء مساعد لتنفيذ العملية وهذا الإجراء المساعد هو إجراء يأخذ عدة محددات مهمة لك ويقوم بتنفيذ عمل ما بناء عليها مما يسهل 

عملية البرمجة وهذه عملية يجب على مطوري البرامج القيام بها. ومجال الأسماء 0y‏ يستخدم هذه الفكرة لتقديم الكثير من الوظائف الهامة 
للجميع حيث يمكنك اعتبارها مكتبة كاملة لتحسين الإنتاجية حيث يقدم مجال الأسماء ٧y‏ العديد من الإجرائيات مصنفة ضمن العديد من 

الفئات المختلفة My.Settings, My.User, <‘My.Application, My.Computer, My.Forms, My.Resources‏ 
sئMy.WebService‏ وفي العادة يقدم وصولا سهلا للمعلومات ضمن احد تصنيفات أساسية في الفريمggورك «My.Appl|iCation‏ 


My.Settings, My.WebServices ‘My.Forms, My.Resources عgڙشall‎ s My.Computer, My.User 


My.Application 
يوفر معلومات حول‎ OpenForms يوفر للمطورين معلومات حول التطبيق والخدمات كمعلومات التطبيق والعنوان والوصف ... الخ ف‎ 
يوفر إمكانيات للتعامل مع السجلات كتسجيل سجل للأخطاء الحاصلة في البرنامج انظر الكود‎ 10g النوافذ المفتوحة في المشروع الحالي و‎ 

لتالي كمثال 


Dim winINIFile As String 
Try 
winINIFile = My.Computer.FileSystem. ReadAllText ("c:\windows\wind.ini") 
Catch ex As 10.FileNotFoundException 
My.Application.Log.WriteException (ex, TraceEventType.Error, 
"Error Accessing INI File") 


End Try 


و مجموعة "۴٠۲"١‏ هم0 أضافت إمكانية شبيهة لما كان موجودا في ۷86 حيث توفر مثلا وسيلة سهلة للتنقل عبر جميع النوافذ المفتوحة 
في التطبيق من دون عناء عمل متغيرات عامة أولا انظر الكود 
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For Each f As Form In My.Application.OpenForms 
Debug.WritelLine (f.Text) 
f.WindowState = FormWindowState.Minimized 
Next 


My.User And My.Computer 
اءر؟5ء|أ۴ توفر إجرائيات سهلة للعمل‎ ٠" يمكنك من التنقل عبر الخدمات والمعلومات حول الكمبيوتر المضيف فالفئة‎ My. c0mpمutع‎ 
الخاص بالمستخدم الحالي إلى‎ My Pictںاعو والاستعلام حول الملفات فمثلا الكود التالي یستخدمها لنسخ جمیع الصور الموجودة في مجلد‎ 


المجلد عم ةمااةW‏ مهt)ومD|:‏ ويعرض مؤشر تقدم إن كانت عملية النسخ تأخذ وقتا أكثر من لحظات قليلة 


Dim myPics As String = _ 
My.Computer.FileSystem.SpecialDirectories.MyPictures 


My.Computer.FileSystem.CopyDirectory( _ 
myPics, "C:\Desktop Wallpaper", 
FileIO.UIOption.AllDialogs, _ 
FileIO.UICancelOption.DoNothing) 


MessageBox. Show (My.Computer.FileSystem.GetFiles( _ 
myPics, Filel1O0O.SearchOption.SearchAllSubDirectories, 
NE IPG Tg TE BDMEOT)COURE) 


الفئة Ny.c0mputer.۴ os‏ تجعل عملية القراءة والكتابة من المدخل التسلسلي عملية بسيطة وهذه تعتبر من العمليات الصعبة ضمن 


الفريموورك فلعمل نفس وظيفة الكود التالي كان يتطلب كتابة الكثير من الكود سابقا 


Dim comport As 10.Ports.SerialPort 
comport = My.Computer.Ports.OpenSerialPort ("COM1") 
AddHandler comport.ReceivedEvent, AddressOf DataReceived 


My.c0mputer.Audio‏ یمکنك من عزف ملف خاص بالمستخدم أو أحد أصوات النظام 


Dim musicFile As String 

musicFile = My.Computer.FileSystem. 
GetFiles ("C: \WINDOWS\Media", _ 
FileIlO.SearchOption.SearchAllSubDirectories, 
"*.wav") (0) 


My.Computer.Audio.Play (musicFile) 


My.Computer.Network‏ يوفر مجالا واسعا من استدعاءات الشبكة كإرسال واستقبال ping‏ من آلة بعيدة أو رفع وتحميل الملفات أو 


تحديد وضع اتصالك وبعض الأعمال الأأخرى 
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If My.Computer.Network.IsAvailable Then 
If My.Computer.Network. Ping ("www.duncanmackenzie.net") Then 
Debug.WriteLine ("Site Available") 


My.Computer.Network.DownloadFile( _ 
"http ://www.duncanmackenzie.net/Articles/", 
System. IO.Path.Combine( _ 
My.Computer.FileSystem. SpecialDirectories.MyDocuments, 
"articles.html") ) 
End If 
End If 


وهناك العديد من الفئات المثيرة للاھتمام My.Computer.Registry, My.Computer.Screen ‘My.Computer.Keyboard Jin‏ 
يمكنك محاولة استكشافها بنفساك 


My.User 
من أبسط الفئات ضمن المجال ومع ذلك فهي توفر الوصول لمعلومات هامة حول المستخدم الحالي للتطبيق‎ 


If My.User.IsAuthenticated Then 

If My.User.IsInRole ("BUILTIN\Administrators") Then 
MsgBox ("tsk, tsk... running as Admin are we?") 

End If 

End If 


عرض الإعدادات وأشياء أخرى من تطبيقك 
القسم الذي يركز على تطبيقك ضمن المجال My‏ يتضمن WebServices, Forms «Settings, Resources‏ الاثنان الأولان یتعاملان مع 
البيانات المرتبطة بتطبيقك فمن ضمن بيئة التطوير يمكنك ضبط العديد من عناصر المصادر المختلفة وفي حالتي ضبط ال ءعءں0ءمR‏ أو 
ئ ett‏ لمشروعك يمكنك الوصول المباشر إليها عبر Ny‏ ففور إضافتها لمشرو عك تور llفlûٽت My.Settings , My.Resources‏ 
تعاملا سهلا مع تلك المعلومات فالكود التالي يقرأ ويعدل قيمة إعداد للمستخدم ثم يستخدم الفئة ئNResource. My‏ لقراءۃة نص مخصص 
Dim lastRun As Date My.Settings.LastRun‏ 
My.Settings.LastRun = Now ()‏ 
Dim myMessage As String = _|‏ 

String.Format (My.Resources.LastRunMessage, 


lastRun.ToShortDateString) 


MsgBox (myMessage) 


بالإضافة إلى ذلك جميع النوافذ في مشروعك موجودة ضمن الفئة 565 و أي خدمات ويب موجودة ضمن الفئة 
ئMy.WebService‏ و هذا يعني أنه يمكن الوصول إليهم مباشرة |i‏ عملت ربط نخدnة webservicex.net ùa WeatherForecast‏ 


متلا يمكنك قراءة درجة الحرارة كالكود 
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Dim tempService As New net.webservicex.www.WeatherForecast () 
Dim wf As net.webservicex.www.WeatherForecasts 

Wwf = tempService.GetWeatherByZipCode ("98052") 

MsgBox (wf.ToString () ) 


ويمكنك تبسيط الأمور كما يلي 
MsgBox (My.WebServices.WeatherForecast.GetWeatherByZipCode ("98052") .ToString () )‏ 


My.Forms‏ يختلف عن Forms‏ ication.OpenاMy.App‏ بسبب أنه یوفر تواجدا لکل فئة من فئات نماذجك بدون شرط 
أن تكون مفتوحة حاليا فإذا كنت مبرمج ۷86 سابقا ستجد أنها مفيدة كثيرا كالمثال 


Private Sub showForm2 Click (ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) Handles showForm2.Click 
My.Forms.Form2. Show () 
End Sub 


Private Sub updateFrorm2 Click (ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) Handles updateFrorm2.Click 
My.Forms.Form2.Text = "Updated..." 
End Sub 


وفي الختام يوفر مجال الأسماء My‏ في ۷82005 طريقة سريعة وسهلة للوصول إلى وظائف عميقة ضمن 
الفريموورك بدون استخدام الفريموورك بشكل مباشر بالإضافة إلى استعادة بعض المفاهيم القديمة 
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كيف تقوم بإاضافة إجراءاتك الخاصة إلى مجال الأسماء ر١‏ 


لإضافة فئة جديدة إلى مجال الأسماء و كل ما عليك عمله هو إضافة كتلة مءمموم ”هل تحمل اسم ل فإذا أردنا إضافة فئة جديدة إلى 
مجال الأسماء NM,‏ مثلا وووا٣†ءم٠‏ يحتوي على دالة وع ١١٠۴ءںل‏ سنقوم ببساطة بكتابة الكود التالي 


Namespace My 
Public Class TestClass 


Public Shared Function JustForTest(ByVal SomeText As String) As String 
Return SomeText & ", " & Now.ToString("dddd") 
End Function 


End Class 


End Namespace 


و أصبح الآن بإمكاننا استخدامه كبقية الفئات الموجودة سابقا في مجال الأسماء ,× 


TextBox2.Text = My.TestClass.JustForTest(TextBox1. Text) 


ولكن تجدر الملاحظة هنا أن الدالات التي ستستخدمها هنا يجب أن تكون ١ه٣هم؟‏ أو أن تقوم بتضمينها في ماu‏ كه" بدلا من وها وذلك 
لأن جميع الدالات والخصائص الموجود في eاں‏ له" تكون 4١٥٣هم؟‏ دائما. 


كما يمكنك اعتماد على الميزة الجديدة وهي الفئات الجزئية ءءها اهنهم أيضا إضافة عناصر أخرى لبعض فئات مجال الأسماء و مب 
الفئة ما uمص0) My.‏ أو الفئة "٠ااةءااممA. N‏ ولفعل ذلك نقوم بإنشاء فئة جزئية بالاسم الصحيح وإضافة العناصر الجديدة التي نريد 
حيث يجب عليك تعريف هذه الفئة باستخدام ل ٥‏ أ۴ حتى تتطابق مع الفئة الأصلية الموجودة سابقا 


Namespace My 


١ 


Extend My.Application Class 
Partial Friend Class MyApplication 


Public Function AppTestO As String 
Return "For Test Purposes" 


End Function 


End Class 


End Namespace 


واستخدامه أيضا كبقية الفئات الموجودة سابقا 


TextBox3.Text = My.Application.AppTest 


وبهذا يصبح الكود الكامل لمثالنا هنا كالتالي 
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Public Class Form1 


Private Sub Buttonl1_Click(ByV al sender As System.Object, _ 
ByVal e As System.EventArgs) Handles Button1.Click 


TextBox2.Text = My. TestClass.JustForTest(TextBox1.Text) 
TextBox3.Text = My.Application.App Test 
End Sub 
End Class 
Namespace My 


' Add New Class 
Public Class TestClass 


Public Shared Function JustForTest(ByVal SomeText As String) As String 
Return SomeText & ", " & Now.ToString("dddd dd/MM/yyyy") 


End Function 


End Class 


Extend My.Application Class 
Partial Friend Class MyApplication 


Public Function AppTestO As String 
Return "For Test Purposes" 
End Function 


End Class 


End Namespace 


ويمكنك الآن توسيع مجال الأسماء ۷y‏ بحسب حاجتك وهذا ليس محدودا بتطبيق معين حيث يمكنك إنشا ء مكتبة ر٣‏ طأا ووا خاصة بك 
تضيف بعض الأشياء لمجال الأسماء ,1 واستخدامها في تطبيقاتك وذلك بإضافة مرجع لهذه المكتبة من داخل التطبيق 
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كيف تستطيع إطلاق أحدائك ائخاص RaiseEvent Tutorial‏ 


أنشئ مشرو عا جديدا وسمه وع ءا" ع۴۷هءأهR‏ ثم أضف له ووه|٣‏ واقبل الاسم الافتراضي 1ءءها>) 
حتى نطلق أحداثنا الخاصة ونلتزم بالصيغة التي نشاهدها في الأحداث الخاصة بالتحكمات مثل 


Private Sub Button1_Click(ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) Handles Button1.Click 


حيث نجد أن لكل حدث قيمتان دوما هي ۲٥ل‏ ۸ءء المرسل للحدث و م القيم الممررة بواسطة الحدثت 


سنقوم أولا باشتقاق فئة من llفأة System.EventArgs‏ ونضمنها القيم التي نريد تمريرها وفائدة هذا الإجراء هو مرونة البرنامج لاحقا عندما 
تريد التعديل فإذا أردت إضافة قيمة جديدة ليتم تمريرها لن تحتاج سوى لإضافتها هنا و هذا نص الفئة الجديدة 


أدخل هذا الكود في الملف الجديد 1ءءواع 


Public Class CustomEventArgs 


Inherits System.EventArgs 


Private m Memberl As String 
Private m Member2 As Integer 


Public ReadOnly Property Member1 () As String 
Get 
Return m Memberl 

End Get 

End Property 


Public ReadOnly Property Member2() As Integer 
Get 
Return m Member2 

End Get 

End Property 


Public Sub New (ByVal M1 As String, ByVal M2 As Integer) 
m Memberl = M1 
m_ Member2 = M2 

End Sub 

End Class 


حیث عرفنا خاصیتین ۲1٥۳ع"‏ و be۲2‏ ص عم لتعیدا القيم التي نریدها و نشأنا سwعم‏ طںء لتھيئة القيم قبل الإرسال الآن بعد تعريف 
1ءهاءأدخل تعريف الحدث الذي نريد إطلاقه كما يلي 


Public Class Classl 


Public Event TestEvent (ByVal sender As Object, ByVal e As CustomEventArgs) 


ثم سنضيف إجراء لنطلق الحدث الذي نريده من داخل 1كهاء كالكود التالي حيث نمرر القيم التي نريد إرسالها كمحددات للمشيد 
constructorالخاص‏ بالفنةً custo neve n†2 gs‏ ثم نستخدم الأمر ٤٣٥۷ععءاهم‏ لإطلاق الحدث 


Public Sub DoTestEvent () 
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1500) 


Dim e As New CustomEventArgs ("Member No 1", 


Rais 
End Sub 


Event TestEvent (Me, ) 


وبهذا نكون قد انتهينا من إنشاء 1ءءهاع ولم يبق سوى أن نختبره وهذا النص الكامل له 


Object, ByVal e As CustomEventArgs) 


As String 


As Integer 


ByVal M2 As Integer) 


1500) 


و لاختبار ما فعلناه اذهب إلى ۴٥۲۳1‏ وضع عليها زرا وانقر عليه 


ventArgs ("Member No 1", 


Public Class Classl 


Public 


Event TestEvent (ByVal sender As 


Public Class CustomEventArgs 
Inherits System.EventArgs 


Private m Memberl As String 
Private m Member2 As Integer 


Public ReadOnly Property Member1 () 
Get 
Return m Memberl 
End Get 
End Property 


Public ReadOnly Property Member2 () 
Get 
Return m Member2 

End Get 

Property 


End 


Public Sub New (ByVal M1 As String, 
M1 
M2 


m_ Member1 


m_ Member2 
End Sub 


End Class 


Public Sub DoTestEvent ( 
Dim e As New Custom 
Event TestEven 


r 
E, 


Rais 
End Sub 


tL (Me, e) 


End Class 


نقرا مزدوجا فتنتقل لمحرر الكود حيث سنقوم بتعريف متغير يشير إلى 


1هاعوذلك خارج إجراء حدث النقر على الزر في منطقة التعريفات العامة في الفئة 


لاحظ استخدام llعبارة withevents‏ في تعريف المتغير الذي يشير 
المنسدلة اليسارية فوق محرر الكود اختر واع ثم من القائمة المنسدلة 
الحدث الخاص بنا أدخل الكود ضمن محرر الشيفرة ليصبح الإجراء 


As Object, 
Handles cls.TestEvent 


Private WithEvents cls As New Class1l 


ل 1ءءواء حتى نستطيع التعامل مع الأحداث التي يطلقها ثم من القائمة 
اليمينية اختر الحدث ٠۷٠۸۲‏ ءه] فيضيف محرر الكود إجراء التعامل مع 
الجديد كالتالي 


Private Sub cls _TestEvent (ByVal sender 


ByVal e As Class1.CustomEventArgs) 
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MsgBox (e.Memberl1 & ControlChars.CrLf & e.Member2) 


الآن انتقل إلى حدث النقر على الزر وعدله ليصبح كالتالي 


Private Sub Buttonl1l Click (ByVal sender As System.Object, 


Handles Button1.Click 


mventArgs) 
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End Sub 


ByVal e As System. 


cls.DoTestEvent () 
End Sub 


Extension Methods الطرائق الَسَعة‎ 


يقدم فيجول بايزيك 8 الطرائق المُرَسّعة sلهط†مM‏ «nهاءممt»ع‏ التي تمكن المطور من إضافة وظائف مخصصة لأنواع 
البيانات المعرفة سابقا من دون إنشاء نوع جديد مشتق. مما يمكنك من كتابة طريقة يمكن أن تستدعى كما لو كانت من ضمن النوع الموجود. 
والطريقة الموسعة يمكن أن تكون إجراء طك أو وظيفة ٣٥ااءمں۴‏ ولا يمكن أن تكون خاصية ,ممه" أو حقل لامام أو حدث 
Event‏ وجمیع الطرائق الموسعة يجب تعليمھا بlلصغفة System.Runtime.CompilerServices slaw! Jlجم jم <Extensi0n()>‏ 
وتحدد الوسيطة الأولى في الطرائق الموسعة نوع البيانات المراد الذي سيطلق الطريقة. 


في المثال التالي يتم تحديد الطريقة Print‏ لتوسیع نوع البیانات ع اء والتي تستخدم ¬٥‏ |اع†¡e.WrاConso‏ لإظھار النص حيیث 
يؤسس الوسیط "1٣5ج‏ أن الطريقة آ٣٥‏ توسع الفنُةٌ عأ٣†Š‏ 


Imports System. Runtime.CompilerServices 


Module StringExtensions 


<ExteNSION (2 

PUOLLE SUB PELNEBYVAL ASEEING AE SEEILDNO) 
Console.WriteLine (aString) 

End SüUb 


End Module 


لاحظ أن تعريف الطريقة الموسعة محدد بالصفة >۴xtensi0)(<‏ ويكون تعليم ال ءاں كه الحاوية للطريقة اختياري ولكن كل 
طريقة موسعة يجب أن يتم تعليمها بالصفة المذكورة كما يجب استيراد مجاJ‏ Jlٺسمlء System.Runtime.CompilerServices‏ حتى 
نتمكن من الوصول إلى تلك الصفة. ولا يمكن تعريف الطرائق الموسعة إلا ضمن م االم" ونموذجيا تعرف الطريقة الموسعة في نفس ال 
ماModu‏ التي ستستدعيها وبدلا عن ذلك يتم استيرادها في المكان الذي سنحتاج لاستخدامها فيه فبعد ال ماله التي تحتوي على الطريقة 
"ام يمكن استدعاء الطريقة عندما يكون هناك طريقة لا تأخذ وسائط متثل ممم له 


Imports ConsoleApplication2.StringExtensions 
Module Modulel 
Sub Main () 
Dim example As String = "Hello" 
' Call to extension method Print. 
example.Print () 
' Call to instance method ToUpper. 


example. ToUpper () 
example. ToUpper.Print () 


EB Sub 


End Module 


وفي المتال التالي تكون عاهں†ء A م١٥ u‏ امام طريقة موسعة أخرى للنوع ع٠‏ ا٣5‏ وفي هذه المرة تمتلك وسيطتين الأولی ع" ٣5ج‏ تحدد 
أن الطريقة توسع النوع ع" ا٣ك‏ وتكون الوسيطة الثانية ٥م‏ عبارة عن سلسلة من علامات الترقيم التي ستمرر عند استدعاء الطريقة التي 
تظهر نصا متبوعا بعلامات الترقيم 


SEXEERNSTON™ | 
UDLLE ‘SUD. BPEINEANOPUNEEUAEE(BYVAL ASEEINTS Ae SEEING, 
BYVAL punê AS" SEFIL) 
Console.WriteLine (aString & punc) 
Enid: SUB 


0 
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حيت يتم استدعاء الطريقة بتمرير وسيطة نصية example. PrintandPunctuate (".") ںأn punc d‏ 


ويظهر المثال التالي تحدıد‏ lyتدle«ء System. Runtime.CompilerServices al رıتwls PrintAndPunctuate s Print‏ الذي 
يمكن من الوصول إلى الصفة التي تحدد الطرائق الموسعة 


Imports System. Runtime.CompilerServices 


Module StringExtensions 


<Extension(Jz _ 

PUDLEE SUS. BEINE(BYVAL @SEEINIT AS SEEING) 
Console.WriteLine (aString) 

End Sub 


<EXEENSION(J™ | 
UDETE: SUS. BEIRNEANOPUNGEUAEEBYVAL: ASEEIRG AS. SEEING, 
ByVal punc As String) 
Console.WritelLine (aString & punc) 
ERAQ Sub 


End Module 


ثم يتم استدعاء الطرائق الموسعة 


TIMPOEFES CONSOLSAPPLLEAETION2.SEEINGExXteNsions 
Module Modulel 


Sub Main () 


Dim example As String = "Example string" 
example.Print () 


xample = "Hello" 
example.PrintAndPunctuate (".") 
example.PrintAndPunctuate ("!!!!") 


End Süûb 
End Module 


كل ما يتطلبه تشغيل طرائق موسعة كهذه هي أن تكون ضمن مجال رؤية الكود فإن كانت اكه ضمن المجال فستكون الطريقة مرئية 
من قبل ۸56 ٥5||ا|6"|‏ ويمكن استدعاؤها كما لو كانت من ضمن الطرائق الاعتيادية. 


لاحظ انه عندما يتم استدعاء الطرائق الموسعة لا يتم تمرير قيم للوسيطة الأولى فالوسيطة 9 في الطريقة السابقة تحدد أنها 
يجب أن تستدعى من النوع 9 "٣1ء‏ والمترجم سيستخدم المتغير النصي كقيمة لتلك الوسيطة 


ويمكن تحديد طرائق موسعة على معظم الأنواع التي يمكن استخدامها في فيجول بايزيك ضمن قائمة الوسائط متضمنا التالي: 


Classes (Reference Types) (ةيaجرnلئl ه الفئات (الأنواع‎ 

Structures ترك‎ e 

Interfaces تٽlqجlgll‎ 

Delegates الإجراءات المفوضة‎ ٠ 

ByVal şı ByRef bil, 

Generic عاiٺJl‎ bil, e 

A۲ھys المصفوفات‎ ٠ 
توفر الطرق الموسعة طريقة مريحة وقوية لتوسيع نوع موجود ومع ذلك كي يمكن استخدامهم بنجاح هناك بعض النقاط التي يجب أخذها‎ 
أا ها٥ ولكنها يمكن أن تؤثر على أي تطبيق يستخدم‎ ۲4١ بعين الاعتبار وهي تنطبق بشكل رئيس على مطوري مكتبات الفئات ك۴‎ 
الطرائق الموسعة. وبشكل عام فالطرائق الموسعة التي تضيفها للأنواع التي لا تملكها تكون أضعف من تلك التي تملك التحكم عليها لوجود‎ 
عدد من الأشياء التي قد تحدث عندما تضاف طرائق موسعة للأنواع التي لا تملكها فيمكن أن تتداخل تلك الطرائق مع عمل طريقتك الموسعة‎ 
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ه عند وجود عنصر عضو في الفئة يملك توقيعا متوافقا مع وسائط التعبير المستدعي بدون حدوث تحويل تضييق "2۲۲0۷١9‏ 
80ا0 مطلوب من الوسائط فيملك ذلك العنصر الأفضلية على طريقتك الموسعة لذلك يمكن عند إضافة بعض الخصائص 
للفئة أن لا يعود بالإمكان الوصول لطريقتك الموسعة 

ه لا يمكن أن يمنع كاتب الطريقة الموسعة المبرمجين الآخرين من كتابة طرائق موسعة تتعارض مع طريقته 

٠‏ يمكنك تحسين قوة إجراءاتك الموسعة بوضعها ضمن مجال أسماء م0 2م405" خاص بهم لتمكين مستخدمي مكتبتك من 
استيراد أو استبعاد كامل مجال الأسماء أو اختيار المناسب من مجالات أسماء المكتبة 

هه يکون توسیع الواجھات ces‏ ھ؟nterf|‏ آمن من توسیع الفئات sمءوجا©‏ وخاصة إذا كنت لا تملك تلك الواجهة أو الفئة فكل تغيير 
في واجهة سيؤثر على جميع الفئات التي تعتمد عليها لذلك فالمبرمج قليلا ما يغير في الطرائق الموجودة في الواجهة 

ه قم بتوسيع نوعا محددا قدر الإمكان فعندما توسع نوعا تشتق منه أنواع أخرى تكون هناك طبقات من الاحتمالات من الطرائق 
العادية والموسعة التي قد تتداخل مع طريقتك 

عندما يتطابق توقيع طريقة عادية M6٣0١‏ ع٥٣‏ ه†ءم| مع طريقة موسعة Extension Meh 0d‏ في نفس المجال لا يمكن الوصول 
للطريقة الموسعة بالنتيجة. لهذا لا يمكن أن نقوم باستخدام طريقة موسعة لاستبدال طريقة عادية ومع ذلك يمكن للطرائق الموسعة امتلاك نفس 
الاسم مع الطرائق العادية ولكن مع توقيع مختلف فتكون كلتا الطريقتان متوفرتان طالما أن التوقيع مختلف فمثلا إن كانت الفئة 
eCssاEx»amp‏ تحتوي على طريقة ١0٣N6ءام"ه×ه‏ لا تأخذ أية وسائط يمكن لطريقة موسعة تمتلك نفس الاسم أن تتواجد ولكن 


Imports ConsoleApplication2.ExtensionExample 
Module Modulel 


Sub Main () 
Dim ex As New ExampleClass 
' The following statement calls the extension method. 
ex.exampleMethod ("Extension method") 
' The following statement calls the instance method. 
ex.exampleMethod () 

End Süb 


Class ExampleClass 
' Define anh instance method named exampleMethod. 
Public Sub exampleMethod () 
Console.WriteLlLine ("Instance method") 
ERG Sub 
End Class 


End Module 
Imports System. Runtime.CompilerServices 


' Define an extension method named exampleMethod. 
Module ExtensionExample 
<EXtEERNSTON (ZS _ 
Sub. exampleMetRod (ByVal et As ExampLleCclass;y ._ 
ByVal stringParameter As String) 
Console.WriteLine (stringParameter) 
ERA. SUB 


End Module 


والخرج الناتج عن الكود السابق يكون كما يلي 


Extension method 


Instance method 


عندما يكون لطريقتين موسعتين توقيعان مطابقان في نفس مجال الوصول يتم استدعاء الطريقة التي تملك الأسبقية العليا حيث يتم تحديد هذه 
الأسبقية عبر طريقة إدخال هذه الطريقة ضمن المجال وتمثل القائمة التالية تسلسل الأسبقية التالي: 
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×"هdںuا٥ الطرائق الموسعة الموجودة سابقا ضمن نفس ال‎ .١ 

۲. الطرائق الموسعة المعرفة ضمن أنواع البيانات في مجال الأسماء الحالي أو أحد آبائه حيث تملك مجالات الأسماء الأبناء أسبقية 
على الآباء 

الطرائق الموسعة المعرفة ضمن أي نوع تم استيراده للملف الحالي 

الطرائق الموسعة الموجودة ضمن أي مجال أسماء مستورد ضمن الملف الحالي 

الطرائق الموسعة المعرفة ضمن أي نوع مستورد على مستوى المشروع 

الطرائق الموسعة المعرفة ضمن أي مجال أسماء مستورد على مستوى المشروع 

فإن لم تحل تلك الأسبقية المشكلة يمكنك عندها استخدام الاسم الكامل للطريقة الموسعة لتحديد الطريقة التي تقوم باستدعائها فإن كانت الطريقة 
ا في المثال السابق محددة ضمن ال Module‏ المسماة ء”i0اns trin Ext‏ يكون الاسم الكامل للطريقة الموسعة هو 
String Extensions.Print(example)‏ بد example.Print(). je‏ 


8 i 5 
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Mجنرّةقيرطلا‎ 


Module gil 
يدعم فيجول ستوديو وحدة بناء برمجية تدعى ماله" والتي يتم التصريح عنها باستخدام الكلمة المحجوزة ماله فعندما تقوم بإنشاء‎ 
تطبيق كونسول متلا يتم إنشاء ملف ط» من أجلك يحتوي على الكود التالي:‎ 


Module Modulel 
Sub Main () 


End Sub 
End Module 


وفي الواقع فإن ال ماuںل١هM‏ هي عبارة عن فئة وووجا٣‏ مع بعض الاختلافات الواضحة فأي إجراء أو وظيفة عامة ›iااںم‏ يتم تعريفها ضمن 
ال eاModu‏ تكون عنصر مشترك ۲٥ط" N٥‏ ۵4٥h2۲؟‏ يمكن الوصول اليه مباشرة من جمیع أنحاء التطبيق وبذلك فأنت لست مضطرا 
لكتابة اسم ال eاuںdu٥M‏ عندما ترید استخدام عناصرها 


Module Modulel 

Sub Main () 
' Show banner. 
DisplayBanner () 
' Get user's name and say howdy. 
GreetUser () 


End Süb 


Sub DisplayBanner () 

' Get the current color of the console text. 
Dim currColor As ConsoleColor = Console.ForegroundColor 
' Set text color to yellow. 

Console.ForegroundColor = ConsoleColor.Yellow 
Console.WriteLlLine ("******* Welcome to FunWithModules ***x*x*x**") 
Console.WriteLine ("This simple program illustrates the role") 
Console.WriteLine ("of the Module type.") 


Console.WritelLine ("xXxxxXxxXxxXxXxXxkxXkxkxXkXxkXxkXxkXxkXkkXkkXkXXxXkX XXX X TT ) 


' Reset to previous color of your console text. 
Console.ForegroundColor = currColor 


Console.WriteLine () 
End Sub 


Sub GreetUser () 

Dim userName As String 

Console.Write ("Pleas nter your name: ") 

userName = Console.ReadLine () 

Console.WriteLine ("Hello there {0}. Nice to meet ya.", userName) 
End Sub 

End Module 


لاحظ في المثال السابق أن الطريقة "زه يمكنها استدعاء الطريقة عول†ممإ6 لأنها معرفة ضمن نفس ال مeاںdه‏ ولست مضطرا لكتابة 
اسم ال ماu‏ كه" كبادئة عند استدعاء عنصر فيها. وفي التطبيق الذي يحتوي على أكثر من مءاu١ه"‏ أنت لست مضطرا لكتابة اسم أي 
eاu Mod‏ كبادئة عند استدعاء العناصر المحتواة في تلك ال sعاں‏ كه" إلا إذا كانت هناك عدة طرائق في أكثر من ءاuلdه"‏ تحمل نفس 
الاسم. 
كما أن ال ماuله"‏ لا يمكن أن يتم استخدامها كنوع عند التصريح عن متغير باستخدام الكلمة المحجوزة سه لأنها غير قابلة للإنشاء م0١‏ 
ماeatabاC‏ وإن استخدمت كودا شبيها بالكود التالي فإن المترجم سيعطيك خطاً 
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' Nope! Error, can't allocated modules! 
Dim m as New Module1 () 


كما يمكن لل ماله" أن تحتوي على عناصر أخرى إضافة للوظائف والإجراءات كحقول البيانات مثلا كما في المثال 


Module MyModule 
Public UserName As String 


Sub GreetUser () 
Console.WriteLine ("Hello, {0}.", UserName) 
End Sub 


End Module 


وكأي عنصر آخر ضمن عا كه يمکننا استخدام الحقل ۳ ۲۸۵٥ءل‏ مباشرة 
Sub Main ()‏ 


' Set user's name and call second form of GreetUser(). 
UserName = "Fred" 
MyModule.GreetUser () 


End Sub 


الطريقَة Main‏ 
أي تطبيق ۷2008 يجب أن يحتوي على نوع يحدد الطريقة ١ج‏ التي تشكل نقطة الدخول للتطبيق وهي تكون موجودة عادة ضمن 
eاModuو‏ هي طريقة مشتركة دوما لطاع" لماك مع انه يمكن أن تتواجد ضمن فة ءوءها٣‏ عندها يجب عليك التصريح عنها 

باستخدام الكلمة المحجوزة 5۸۲٥١.‏ وكمثال على ذلك أنشئ تطبيق كونسول جديد واستبدل كامل الكود المولد بالكود التالي 


Class Program 


' Unlike Modules, members in a class are not 

' automatically shared. Thus, we must declare Main () 
' with the Shared keyword. 

Shared Sub Main () 


End Sub 


End Class 


فإن حاولت تشغيل البرنامج عند هذه النقطة فسوف تتلقى خطأ بأنه لا يمكن إيجاد الطريقة ماج ولحل هذه المشكلة يجب عليك تحديد الفئة 
صram‏ عدا كعنصر بدء للتطبيق وذلك في اءعزطا0 مں†اه†S‏ من الصفحة ٥۸‏ ا†ھicاممA‏ في خصائص MyProject‏ 


معالجة محددات سطر الأوامر 

إحدى المهام الرئيسية للطريقة ١ة‏ هي معالجة محددات سطر الأوامر التي يتم تمريرها للتطبيق فمثلا مترجم سطر الأوامر ع×ع.٥ط۷‏ 
يمتلك العديد من الخيارات مثل اعع۲ه† و ااه وغيرها فعندما تريد إنشاء طريقة ١اه‏ تقوم بمعالجة محددات سطر الأوامر الممررة 
للتطبيق ستجد أنه لديك عدة طرق للقيام بذلك. وأول طريقة يمكننا استخدامها لهذا الغرض هو استخدام الط¦طريقة GetCommandLineArgs‏ 
المعرفة ضمن المجال ٤٥۸۳٥٣٤‏ m.Enviعtءرك‏ التي تعيد مصفوفة من العناصر من النوع ع١٣5‏ وأول عنصر في هذه المصفوفة هو 
اسم الملف التنفيذي للتطبيق بينما تشكل باقي عناصر المصفوفة محددات سطر الأوامر الممررة للتطبيق 


Class Program 


Shared Sub Main () 
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Console.WritelLine ("***** Fun with Main () *****") 
' Get command-line args. 
Dim args As String() = Environment. GetCommandLineArgs () 


Dim s As String 


For Each s In args 
Console.WritelLine ("Arg: {0}", 5s) 

Next 

End: Sb 


End Class 


وإن لم ترغب باستخدام الطريقة السابقة يمكنك تحديد مصفوفة عم آ٣5‏ كدخل للطريقة اج كما في الكود 


Shared Sub Main (ByVal args As String ()) 
Console.WriteLine ("***** Fun with Main () *****") 
' Get command-line args. 
Dim s As String 


For Each s In args 
Console.WritelLine ("Arg: {0}", s) 

Next 

End Sub 


استخدام 1ج1 كوظيفة وليست إجراء 
يمكننا أيضا تعريف ١ج1‏ كوظيفة تعيد قيمة من النوع ٣ععهم|‏ الأمر الذي يعد من الموروتات من لغة ٤‏ حيث يعيد البرنامج القيمة 0 عند 
انتهائه بصورة طبيعية أو يمكن إعادة أي قيمة أخرى تمثل خرجا ما أو رقما للخطأ الذي أدى إلى انتهاءالبرنامج كما في الكود 

Shared Function Main (ByVal args As String()) As Integer 


Console.WritelLine ("***** Fun with Main () *****") 


Dim s As String 


For Each s In args 
Console.WriteLlLine ("Arg: {0}", s) 

Next 

' Return a value to the OS. 

Return 0 

End Function 


وبغخض النظر عن الطريقة التي نقوم فيها بتعريف ”1ه كإجراء أو وظيفة يبقى الهدف الأساسي منها هو التعامل مع الأنواع التي تشكل 
وظيفية البرنامج وتذكر دوما أنه عند انتهاء ”اة أو الخروج منها فإن البرنامج سيتم إنهاؤه حتما بالنتيجة 


تمرير محددات سطر الأوامر من داخل بيئة التطوير 

يمكننا فيجول ستوديو من تمرير محددات سطر الأوامر للتطبيق عند اختباره من داخل بيئة التطوير الأمر الذي يسهل علينا عملية الاختبار لما 
يوفر علينا من عناء تمرير تلك المحددات يدويا حيث يمكننا تمرير ها أثناء الاختبار بإدخالها في مرڊg Command Line Arguments‏ في 
الصفحة ug‏ طe‏ 0 من خصائص MyProject‏ 
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Operators Overloading تںںnlعaئأ‎ دئاjلا التحميل‎ 


يعرف فيجول بايزيك معاملات للتعابير التي تستخدم الأنواع القياسية للبيانات مثل المنطقية أو الحقيقية. وهي تحدد بعض المعاملات الخاصة 
بالأغراض وء زط0 مثل | أو |١0‏ ولكن بعض المعاملات مثل * و ١ه‏ لا تعني شيئًا بالنسبة لتلك الأغراض بشكل عام. 


ومع ذلك يمكنك تعريف معاملات ك١هه٣‏ عم بالنسبة للتراكيب وع ں†ع ں٣5‏ والفثات وعءءها٣‏ بحيث تكون الصيغة العامة للمعامل 
اratoهمO‏ كما يلي 


[ <attributes> ] Public [| Overloads ] Shared [| Shadows ] _ 
[ Widening | Narrowing ] Operator symbol ( operands ) As type 


End Operator 
وتكون أقسام هذه الصيغة العامة كما يلي:‎ 


Attributes‏ خصائص المعامل 

icاPub‏ و Shared‏ جميع المعاملات يجب تعریفها باستخدام محدد الوصوJ Shared وÎ Public‏ 

sلdهدا0ver‏ نستخدمه عندما يكون لدينا معامل يأخذ محددين من فئة أساسية وفئة مشتقة وفي هذه الحالة يعني أنك تتجاوز المعامل 
الموجود في الفئة الأساسية ۰ ۰ 

٠‏ كس0لهمك المعامل يستبدل معامل مماثل موجود في الفئة الأساسية 

٠‏ ع" Widen‏ يبين أن المعامل يحدد تحويل تعريض ينجح دوما في زمن التشغيل وبالتالي فهذا المعامل يجب عليه التقاط مؤشر 
لجميع الأخطاء الممكن حدوتها. والمعامل مم رآ٤‏ يجب أن يحتوي على أحد الكلمتين الأساسيتين Narrowing şİ Widening‏ 

Narrowing‏ يبين أن المعامل يحدد تحويل تضييق ربما يفشل في زمن التشغيل. والمعامل مم۷آ) يجب أن يحتوي على أحد 
الكلمتين الأlwسيتjı Narrowing ڃİ Widening‏ 

Mod <=< «=> »> >< >< >= >>> << 8 ^ | ›/ * ›- + امطصرك رمز المعامل ويجب أن يكون أحد القيم التالية:‎ 
Not, And, Or, Xor, Like, IsTrue, IsFalse, CType 

sلeranم‏ تعريف الأغراض التي تتم معالجتها من قبل المعامل بحيث تأخذ المعاملات +<-« Not, IsTrue, and IsFalse‏ 
محدد واحد والمعاملات + CType Mod, And, Or, Xor, Like, «=< «=> «< «> «<> «= <<< «>> «& «^ «| «| * o‏ 
تأخذ محددين 


ه مما جميع المعاملات يجب أن يكون لها نوع بيانات معاد 


والتحميل الزائد للمعاملات يكون محددا بعدة ضوابط 


ه بعض المعاملات تأتي على شكل أزواج وإن قمت بتعريف واحد منها يجب عليك تعريف الآخر وهي: 
<>y= o‏ 
0 کو چ 
O‏ =>وg‏ => 
IsFalse gy IsTrue o‏ 
ه في المعاملات العادية والمنطقية يجب أن تظهر الفئة المعرفة للمعامل في المعامل. ومن أجل معاملات تحويل النوع يجب على الفئة أو 
التركيب الظهور في المعامل أو القيمة المعادة 
ه المعاملان عں٣‏ ءا و عءاج۴ء!| يجب أن يعيدا قيمة منطقية 


e‏ المعامل الثاني ل >> و << يجب أن يكون عدد صحيح 
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ا عرفت تاهاد خط يرل برك اة لت السامل وا اها ك کن او ن زفت مانن فان یجول بابر ن 
المعامل =+ تلقائيا 


طالما أنه لا يمكنك استخدام المعاملين عں٣آء|‏ و عءاهج۴ء| بشكل مباشر فيمكنك استخدامهما بشكل غير مباشر فان قمت بتعريف المعامل 
عمu٣آء!|‏ لفئة ما يستخدمها فيجول بايزيك لتحديد فيما اذا كان استخدام ذلك الغرض كقيمة True‏ في التعبير المنطقي. فعلى سبيل المتال 
تستخدم العبارة التالية لتحدید فیما إذا کان الغرض c1‏ یمکن اعتبارہ مں ٣آ‏ 


Ifc1 Then ... 


وإن عرفت المعاملان ل١۸‏ و ءءاه۴ء!| فيقوم فيجول بايزيك باستخدامهما لمعالجة المعامل ۸۸۵۸0 أيضا ومن أجل أن يعمل هذا يجب 
على المعامل لم۸ إعادة نفس نوع الفئة أو التركيب الذي عرفته ضمنها. فإن افترضنا أنك عرفت ل۸ و عءاج۴ء| في الفة Composite‏ 
والمتغيرات ۲1 و ٥2‏ و ٥3‏ هي تواجدات وع" هءم| لتلك الفئة انظر العبارة 


C3 = C1 AndAlso C2 


فهنا يستخدم فيجول بايزيك المعامل مءءاه۴ء!| لتقييم 1 فإن أعاد المعامل ءءاه۴ء!| القيمة مں ۲٣‏ فلن يزعج البرنامج نفسه بتقييم قيمة ٤2‏ 
ويفترض أن قيمة العبارة كاملة هي مءاهع ويعيد القيمة هء|هع بالنسبة للتعبير بكامله وذلك لأن مءاه۴ء!| أعادت القيمة ں٣‏ بالنسبة ل C1‏ 
ويعرف فيجول بايزيك تلقائيا أنه إذا كانت قيمة C1‏ هي ءءاه۴ فيجعل قيمة C3‏ مساوية لقيمة ٥1‏ وهذا يسبب بعض التشويش ومما يجعل 
الأمر منطقيا أكثر هو التفكير بأن فيجول بايزيك يقيم التعابير المنطقية التي تستخدم المعامل 0ءا۸۸04۸ العادي. وبشكل مشابه يمكن تعريف 
المعاملین 0۲ و ع ں |۶۲٣‏ فيقوم فيجول بايزيك تلقائیا بتزویدنا بالمعامل ءا٤0۲‏ 


طالما أنك بشكل عام لا يمكنك عمل إجراءين في فيجول بايزيك يختلفان فقط بالقيمة المعادة ولكن يمكن عمل ذلك فقط بالنسبة لمعاملات 
مم الخاصة بالتحويل بين الأنواع فعندما يحاول البرنامج التحويل بين الأنواع يمكنه تحديد أي معامل يجب عليه استخدامه بمعرفته لنوع 
القيمة المعادة 


وفي الكود التالي نرى الفئة مامه التي تمثل ر قم معقد وتحدد المعاملات + و - و * لتعريف عمليات الجمع والطرح والضرب للأرقام 
المعقدة ويحدد أيضا المعاملات = و <> ومعاملات التحويل التي تحول الرقم المعقد لقيمة معادة من النوع ماه لإعطائها أهميتها 


Public Class Complex 
Public Re As Double 
Public Im As Double 


' Constructors. 
Public Sub NewÛO 


End Sub 


Public Sub New(ByVal real_part As Double, ByVal imaginary_part As Double) 
Re = real_part 
Im = imaginary_part 

End Sub 


' ToString. 

Public Overrides Function ToString() As String 
Return Re.ToString & " +" & Im.ToString & "1" 

End Function 


' Operators. 
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Public Shared Operator *(ByVal c1 As Complex, ByVal c2 As Complex) As Complex 
Return New Complex( _ 
c1.Re * c2.Re - c1.Im * c2.Im, _ 
c1.Re * c2.Im + c1.Im * c2.Re) 

End Operator 


Public Shared Operator +(ByVal c1 As Complex, ByVal c2 As Complex) As Complex 
Return New Complex( _ 
c1.Re + c2.Re, _ 
c1.Im + c2.Im) 

End Operator 


Public Shared Operator -(ByVal c1 As Complex, ByVal c2 As Complex) As Complex 
Return New Complex(c1.Re - c2.Re, c1.Im - c2.Im) 
End Operator 


Public Shared Operator =(ByVal c1 As Complex, ByVal c2 As Complex) As Boolean 
Return (c1.Re = c2.Re) AndAlso (c1.Im = c2.Im) 
End Operator 


Public Shared Operator <>(ByVal cl As Complex, ByVal c2 As Complex) As Boolean 
Return (c1.Re <> c2.Re) OrElse (c1.Im <> c2.Im) 
End Operator 


Public Shared Operator -(ByVal c1 As Complex) As Complex 
Return New Complex(c1.Im, c1.Re) 
End Operator 
Public Shared Narrowing Operator CType(ByVal c1 As Complex) As Double 


Return System.Math.Sqrt(c1.Re * c1.Re + c1.Im * c1.Im) 
End Operator 


End Class 
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إنشاء مكتبة تضيف وظائف جديدة للتحكمات الموجودة بدون استخدام الوراثة 


آنشئ مشرو عا جديدا من النوع ۸٥tiةicاApp Windows Forms‏ کي نقوم بالعمل عليه تم من قائمة ٥ذ۴‏ ومن القائمة الفرعية ۸00 
أضف مشرو عا جديدا للمشروع الحالي من النوع راج طذا وا٤‏ وقم بتسميته طأ]اعہاك"ع×٤1ءه۲‏ وفي ملف الكود الخاص بالمكتبة أضف 
في بدايته المراجع التالية الضرورية لعمل مثالنا هنا بعد التأكد من أنك قد أضفت المراجع المناسبة لها من صفحة ءع"عام۴مR‏ من 
خصائص)عe‏ ز٥۲۲ My‏ 


Imports System. Runtime.CompilerServices 
Imports System.Math 

Imports System. Drawing 

Imports System.Windows.Forms 


Public Class Classl 


End Class 


Public Module TestExtending 


End Module 
انتهت عملية التهيئة الآن وأصبحنا جاهزين لإضافة توسعاتنا‎ 


سأبداً1 بإضافة الوظيفة ۸٠۲۲‏ لصندوق النصوص التي ستحول لون الخلفية له إلى الأحمر والكتابة إلى الأصفر عند استدعائها - داخل 
تعريف ال ماله السابق أدخل الكود التالي 


<Extension()> _ 

ub Alert (ByVal TxtBx As TextBox) 
TxtBx.Font = New Font (TxtBx.Font, FontStyle. Bold) 
TxtBx.ForeColor = Color.Yellow 
TxtBx.BackColor = Color.Red 

End Sub 


n 


وسنضيف وظيفة أخرى لتوسيع النوع ع” 5)٣‏ بحيث تحول القيمة الموجودة في السلسلة النصية إلى ماطاںه0 ثم تضربها بالعدد الممرر 
<Extension()> _‏ 
Function Multiply (ByVal InString As String,‏ 

ByVal Multply As Double) As Double 


Return CDbl (InString) * Multply 
End Function 


قم بعمJ TestExtending ةبتكn Build‏ 
من أجل التجربة انقر بزر الفأرة اليميني على تطبيق ويندوز الذي أنشأناه في البداية ثم اضغط ع٣ ۴٠۴٠۲٠۸‏ ل١۸‏ وأضف مرجعا للمكتبة 
التي أنشأناه للتو ثم أضف الاستيراد التالي في بداية كود النموذج 


Imports TestExtendingLib.TestExtending 


أضف ×0 ۲۵×8 و ۸ Butt‏ و ×180ءا للنموذج ثم انقر نقرا مزدوجا على الزر لإنشاء حدثت النقر عليه ثم أدخل الكود التالي لاختبار 
الوظيفتين اللتان أضفناهما سابقا 


Me.TextBoxl1.Text = "123.456" 
Me.TextBox1.Alert () 
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Dim s As String = Me.TextBox1. Text 
MsgBox (s.Multiply (13) ) 


شغل البرنامج واضغط على الزر وانظر النتيجة 


كما ترى أضفنا لصندوق النصوص وظيفة جديدة لم تكن موجودة سابقا تسمى ۸|٠٣۲‏ يمكننا الاستفادة منها وتطبيقها على أي صندوق نصوص 
في أي مشروع نریدہ فقط بإضافة المكتبة والاستیراد المناسب کما رأینا سابقا كما أضفنا أيضا الوظیفة راما†اں" لنوع البیانات ع١‏ ا٣†S‏ 
ويمكن استخدامه أيضا في أي مشروع بنفس الطريقة 


يمكننا أيضا إضافة وظيفة ل ×180ء] لتفريغها وملنها ببعض البيانات متلا بنفس الطريقة حيث يمكنك إضافة الكود التالي للمكتبة ثم عمل 
0ا8 لها وتجربة كيف أن صندوق القائمة أصبح يمتلك الوظيفة الجديدة 


<Extension()> _ 
ub ClearAndFillComputerCorp (ByVal LstBx As ListBox) 


n 


LstBx.Items.Clear () 
LsStBx.Items.Add ("Micrsoft"™) 
LstBx.Items.Add ("Sun") 
E 
LstBx. Items. Add ("IBM") 
LstBx.Items.Add ("Borland") 
LStBx.Items.Add ("CyberLink") 
LstBx.Items.Add ("Nvidia") 
LStBx.Items.Add ("Gigabyte") 
LStBx.Items.Add ("MSI") 

End Sub 


كما يمكننا أيضا إضافة وظيفة للتحكم ٠٥ر8‏ تغير من مظهره بنفس الطريقة 


<Extension()> _ 

Sub YellowOnDarkBlue (ByVal Btn As Button) 
Btn.Font = New Font (Btn.Font, FontStyle.Bold) 
Btn.ForeColor = Color.Yellow 
Btn.BackColor = Color.DarkBlue 

End Sub 


mS E SN‏ الفئات الموجودة وأصبحت وكأنه وظائف أساسية وذلك بإنشاء المكتبة 


في ملف الكود الخاص بالمكتبة طا )عملم ه†×عءه٣‏ فقط قم باستبدال السطر التالي في بداية الملف 


Public Module TestExtending 


نار 


<Global.Microsoft.VisualBasic.HideModuleName ()> _ 
Public Module TestExtending 


وبذلك عند استخدام المكتبة يمكنك أن تستبدل سطر الاستيراد التالي 


Imports TestExtendingLib.TestExtending 


بسطر الاستيراد التالي 


Imports TestExtendingLib 


وشرح التعديل هو بما أن كودنا في المكتبة ضمن مء اكه" ويمكننا استخدام الدالات الموجودة في ال عاu‏ كه" باسمها فقط لذا أضفنا 
الوIصiة HideModuleName‏ التي تسبب إخفاء اسم آ— Module‏ وبالتالي اختصار الاستيراد عند استدعاء المكتبة 


طبعا بعد التعديل لا تنس عمل 4اا طم للمكتبة حتى تسري التعديلات الجديدة 
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My Extensibility مIدختlڊ‎ My ءlaسألا‎ Jاجم توسيع‎ 


تم تقديم مجال الأسماء My‏ بدءا من 2005 ءھ8 اهنءا۷ ليوفر اختصارات للطرائق واستدعاءات |۸۴ الشائعة ومنذ ذلك الوقت 
كان يمكن للمستخدمين كتابة توسعاتهم الخاصة لمجال الأسماء و مضيفين له مكتبات الكود الخاصة بهم. وقد قدم i†yاآآوہ My ٤×‏ كجديد 
في 2008 اه8 اهںء۷ مما سهل توسيع المجال .×y‏ ومع ميزة رااااطایمع»×ع ۷y‏ الجديدة أصبح بالإمكان تفعيل وإلغاء تفعيل “Ny‏ 
ityاExtensibi‏ من خلال مصمم المشاريع أو عندما يتم ربط أو إزالة مرجع لمجمع في المشروع الأمر الذي جعل عملية توسيع بيئة تطوير 


studio‏ امuءVi‏ أكثر بساطة. 


طرق توسيع المجال ر« 
هناك القليل من نماذج الكود التي يمكن استخدامها لتوسيع المجال .y‏ والطريقة الأسهل لعمل ذلك هي تلك التي نعرفها سابقا 


فعملية إضافة أي شئ للمجال 0y‏ هي عملية مماثلة لعملية إضافة أي شئ لأي مجال أسماء آخر كما في المثال 


Namespace My.HandyStuffForMy 
<Global.Microsoft.VisualBasic.HideModuleNameO> _ 


Friend Module HandyStuffForMyModule 
Sub Foo0 


End Sub 
Property Bar) 


End Property 
End Module 
End Namespace 


الذي يجعل الإجراء ۴٠١‏ و الخاصية ه8 يظهران ضمن المجال ۲۷۷١u۴۴۴†كرdمaه۲H‏ ضمن المجال ۷y‏ . حيث استخدمنا الواصفة 
attribute‏ المسماۃ Hide Module Name‏ التي تمنع اسم ال عما١هم‏ من الظهور لأنك لا تحتاجه للوصول إلى العناصر المحتواة ضمنه. 
وإن أردت إضافة هذه العناصر للمجال ٧y‏ بدون إنشاء مجال فرعي عدل اسم المجال في الكود السابق ليصبح 1y‏ فقط كما يلي 


Namespace My 


<Global.Microsoft.V isualBasic.HideModuleName()> _ 
Friend Module HandyStuffForMyModule 
Sub Foo0 


End Sub 
Property Bar) 


End Property 
End Module 
End Namespace 


وإن استخدمت اسم مجال موجود سلفا ضمن المجال My‏ ك ءعcاں‌موءمR‏ متلا فهذه العناصر سيتم إضافتها لذلك المجال مما يعطيك مرونة 
کیره فن كف افركرل إلى فشاك رالقي الى بجت اهاه ابه هى مخ الرضصول هة الرضرل. ۴٠١0.٠‏ مرح نمت المجمات 
الأخرى من الوصول إلى هذه العناصر وإن استخدمت محدد الوصول عااuم‏ ربما تتضارب هذه العناصر مع رموز معرفة في المشاريع 


الأخرى التي تستخدم المجال ١,‏ 
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التوسيع باستخدام الورقة المفردة Singleton‏ 

My.Computer‏ و My.Settings‏ و icationاMy.App‏ هي تواجدات وحیدة الورقة ۸٥e‏ ھ†sہ!ا‏ et0۸اچSin‏ للفئات 
My.MyComputer‏ و My.MySettings‏ و icationاMy.MyApp‏ حيث يمكننا إضافة عناصر لهذه الفئات بسهولة باستخدام ميزة 
الفئات المجزأة كا اه۴arti‏ فمثلا الكود التالي يضيف إجراء يدعى My.Computer ضرغئl Shutdown‏ 


Namespace My 
Partial Class MyComputer 
Sub ShutdownO 


End Sub 
End Class 
End Namespace 


كما يمكن استخدام هذا الكود لتوسيع ١0ا†ةiاممMy.A‏ و كع ttiهكS. My‏ أيضا حيث تمكنك ميزة الفئات المجزأة من إضافة عناصر إلى 
فئات معرفة في مكان آخر وهذا يتضمن فئات مثل ٣عاام‏ "ه٤۸۷‏ في مشاريع اوج8 اعدء۷ حيث يقوم المترجم بحقن الفئات قبل أن يتم 
ترجمة الكود. 


وإذا أردت جعل عناصرك التي قمت بإضافتها يمكن الوصول إليها كورقة مفردة مثل الفئات المذكورة يجب عليك إضافة خاصية للقراءة فقط 
للمجال ٧y‏ تعيد تواجدا عاما يماثل ذلك المزود من (۲ v¡4e)0۴ه٣۴†ءءزط0ءafكلnrea"ا‏ الذي يقوم بإنشاء صورة من تلك الفئة على 
مستوى المسلك ه٠۲٣1‏ والكود التالي يرينا كيفية إضافة My.cust0o "MN y0bز ect‏ مع عناصرہ 


Namespace My 
<Global.System.ComponentModel.EditorBrowsable _ 
(Global.System.ComponentMode1.EditorBrowsableState.Never)> _ 
Partial Friend Class MyCustomMyObject 
Public Sub Foo(0) 


End Sub 
Public Property Bar) 


End Property 
End Class 


<Global.Microsoft. VisualBasic.HideModuleName(> _ 
Friend Module CustomMyObjectModule 
Private instance As ThreadSafeObjectProvider(Of MyCustomMyObject) 


ReadOnly Property CustomMyObject() As MyCustomMyObject 
Get 
Return instance.GetInstance() 
End Get 
End Property 
End Module 
End Namespace 
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سنبدا بتشغيل Studi‏ اuaءVi‏ وإنشاء تطبيق كونسول جديد وتسميته ھل iاةMy۷‏ وأضافة ماله" جديدة للمشروع 


وتسميتها ا۷. ١٥هل‏ iاة‏ 0۷ تم استبدل كامل الكود الموجود بالكود التالي 


Imports System. Text.RegularExpressions 
Imports System 


Imports System. Linq 
Imports Microsoft. VisualBasic 


Namespace My. Validation 
<Global.Microsoft. VisualBasic.HideModuleName(> _ 
Public Module MyValidationMod 
Public Function IsEmpty(By Val value As Object) As Boolean 
If (value Is Nothing) OrElse _ 
(value Is System.DBNul!. Value) OrElse _ 
(value.ToString = String.Empty) OrElse _ 


(TypeOf value Is Date AndAlso CDate(value) = Date.MinValue) _ 
Then 


Return True 
Else 
Return False 
End If 
End Function 


Public Function IsAlphaNumeric(By Val value As String, _ 
Optional ByVal emptyOK As Boolean = False, Optional ByVal _ 
whitespaceOK As Boolean = False) As Boolean 

If IsEmpty(value) Then Return emptyOK 


Dim expr As String 


If whitespaceOK Then 
expr = "^[a-zA-Z0-9\s]+$" 
Else 
expr = "^[a-zA-Z0-9]+$" 
End If 


Return Regex.IsMatch(value, expr) 
End Function 


Public Function IsCanadianProvince(ByVal st As String) As Boolean 
Dim allProv = "lABIBCIMBINBINLINTINSINUIONIPEIQCISKIYT" 


Return st.Length = 2 AndAlso allProv.IndexOf("l" & st) <> -1 
End Function 


Public Function IsSUSAState(ByRef st As String) As Boolean 
Dim allStates = "IALIAKIAZIARICAICOICTIDEIFLIGAIHIIDIILIINIIAI" & 


"KSIKYILAIMEIMDIMAIMIIMNIMSIMOIMTINEINVINHINJINMINYINCINDIOHI" & _ 
"OKIORIPAIRIISCISDITNITXIUTIVTIVAIWAIW VIWIIW Y" 


Return st.Length = 2 AndAlso allStates.IndexOf("l" & st) <> -1 
End Function 
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Public Function IsUSAPostalCode(ByVal zip As String) As Boolean 
If String.IsNullOrEmpty(zip) Then Return False 


Return Regex.IsMatch(zip, "^™\d{5 }(\d{4})?$") 
End Function 


Public Function IsCanadianPostalCode(ByVal zip As String) As Boolean 
If String.IsNullOrEmpty(zip) Then Return False 


Return Regex.IsMatch(zip, "^[A-Z]\d[A-Z] \d[A-Z]\d$") 
End Function 


Public Function IsNorthAmericanPhone(ByRef phone As String) As Boolean 
If String.IsNullOrEmpty(phone) Then Return False 


Dim expr As String = "^(?2:\([2-9]\d{2}\\ 2I[2-9]\d{2}" & _ 
"04:1-9 )[2-9]\d{2}[- 1 \d{4}$" 


Return Regex.IsMatch(phone, expr) 
End Function 


Public Function IsEmail(ByRef email As String) As Boolean 
If String.IsNullOrEmpty(email) Then Return False 


Dim localPartCharset = "[0-9a-zA-Z!#$%*/9\{ FPF ~&c'+\-=_]" 

Dim domainPartCharset = "[0-9a-zA-7\-]" 

Dim expr = String.Format("*{0}+(\.{0}+)* @ {1}+(\.{1}+)*", _ 
localPartCharset, domainPartCharset) 


Return Regex.IsMatch(email, expr) 
End Function 
End Module 
End Namespace 


عليك أن تکون حذرا عندما تقوم بإنشاء قالب ۸٥او‏ »ع 0y‏ يمكن أن يستخدم في تعريف أي مشروع فيجب عليك الانتباه بشكل خاص إلى 
القيم المحتملة ‫ Option Explicit‏ و Option Strict‏ و Option Compare‏ و nferا Option‏ عندھا یمکنك کتابة کودك لیعمل ضمن 
التعريف الأقل مرونة أو تحديد كل تعريف بشكل خاص في بداية كل ملف كود في توسعتك الذي يعتبر الأمر الأفضل. 


كما يجب أن تأخذ إمكانية الاستيرادات المختلفة في المشاريع لتجنب التضارب في الرموز المعرفة على مستوى المشروع وهنا عليك تعديل 
أي رموز غير معرفة في قالبك بالكلمة المحجوزة اobaاG‏ أو My‏ فمثلا بدلا من استخدام reXt.En coding‏ استخدم 
rext.Encoding.اobaاG‏ فإن استخدمت ع ال‌هع" .×۲ فقط فلن يعمل قالبك في تطبیقات ۴٥۲۳‏ sس‏ لہا۷ التي ستستورد عندھا 
مجالي أسماء مسمیان ۲٥×٤‏ فإن حذفت اهطه‌ای واستخدمت فقط ع أله" .٠٠×۲.٤‏ "ء5 فربما لن يعمل قالبك الذي يحدد مجال أسماء 
يدعى ۳٠ء5.‏ ويعتبر اختبار كودك جيدا قبل توزيعه على الآخرين من الأفكار الجيدة ولا تشذ وہه‌اوم My ٤×»‏ عن هذه القاعدة. 

دعنا نستخدم ال معاںله"N‏ التي تم إنشاؤها آليا باسم 1ءاںله" لكتابة تجربة ل وہ ه‌ایم ٤×»‏ ۷ ويجدر الانتباه إلى انه سيكون من 
الصعب إعادة استيراد التوسعات عندما تجد شائبة عںط لذا عليك محاولة جعل التوسعة تعمل بشكل كامل قدر الإمكان والتأكد من أنها مختبرة 
جيدا قبل أن تقوم بتصدير ها للمرة الأولى. قم بفتح .1ء اله" وذلك بالنقر المزدوج علیها في ١٤٣٥oام×٤‏ ٣٥ا‏ ںام واستبدل الكود 
الموجود بالكود التالي ثم اضغط ۴5 لتشغيل المشروع 
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Module Modulel 
Private testNumber As Integer 
Private testGroup As String 


Sub StartTestGroup(ByVal name As String) 
testGroup = name 
testNumber = 0 

End Sub 


Sub Test(ByVal result As Boolean, ByVal expected As Boolean) 
testNumber += 1 


If result <> expected Then 
Console. WriteLine(" Test #{0} of group {1} FAILED.", _ 
testNumber, testGroup) 
End If 
End Sub 


Sub Main) 


StartTestGroup("IsAlphaNumeric") 
Test(My. Validation.IsAlphaNumeric("123HH2", True, True), True) 


StartTestGroup("IsCanadianPostalCode") 
Test(My. Validation.IsCanadianPostalCode("HOH OHO"), True) 


StartTestGroup("IsCanadianProvince") 
Test(My. Validation.IsCanadianProvince("ON"), True) 


StartTestGroup("IsEmail") 
Test(My. Validation.IsEmail("a@ b.com"), True) 


Console. WriteLine _ 
("Tests are finished. No FAILED messages indicates success.) 
Console. WriteLine("Press any key to continue.") 


Console.ReadKey(True) 
End Sub 
End Module 


توضيب التوسعات كقوالب 

بعد أن تمت كتابة التوسعة واختبرت بشكل كامل حان الوقت لتوضيبها كقالب 0y Extension‏ . ولعمل ذلك اترك المشروع 
مفتوحا واختر الأمر عatام۲rem Export‏ من القائمة e|ذ۴‏ فيظھر ك llaج Export Template‏ حي iwختlر item Template‏ مù‏ 
نافذة المعالج كما يتوفر لك خیار في الأسفل لاختيار اسم المشروع الذي سنصدر القالب منه ثم اضغط ×عم ومن قائمة Item to export‏ 
اختر ط۸.۷ 0ال ااةy۷ N‏ ثم اضغط ا1×هم ثم عليك اختيارا جميع المراجع الضرورية لعمل قالبك ومن أجل هذا المشروع اختر 
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Automatically import the رlيخll وقم بإزالة الإشارة عن‎ rem pاate‎ Description ثم اضغط ا×ne تم املأھ‎ System.Core 
الذي يجعل بيئة التطوير لا تقوم باستيراد القالب مباشرة بعد تصديرہ ثم اضغط اا۴‎ tem ماate‎ into Visuaا‎ Studio 


My Extensions as Templates 
كما هو الحال في جميع قوالب 0اهںا؟ اجuءا۷ تكون جميع محددات القالب متوفرة وهي عبارة عن‎ My Extension في قالب‎ 
عندما یتم إضافتھا للمشروع ف 5٥یماک یتم استبدالھا برقم‎ My ٤× ہی٥١ سلاسل نصیة خاصة یمکن إدراجھا آلیا ضمن کود‎ 
سيتم استبدال ۶$عمصهa”"ءاأعfهء$ بقيمة العنصر <ع ۳ه" ا|uهf 0> في الملف‎ Mu ٤× ہوا٥ النسخة الحالية ل ٣اع وفي حالة القالب‎ 

الذي يحمل اللاحقة vstemplate‏ والذدي يساوي اسم الملف الذي يحوي كود القالب بدون لاحقته. 


وأي شئ آخر يمكن عمله في قالب نظامي يمكنك عمله في القالب ۸ دایم My ٤×٥‏ فضبط القيمة ٥<‏ ل >١‏ في الملف عاهام "اء إلى 
عءاه۴ يمكنك من إضافة القالب إلى صندوق الحوار "عا سwع‏ كك۸ عندما تضيف العناصر للمشروع كما يمكنك إجبار إضافة مجمعات 
للمشروع عند إضافة القالب وذلك ضمن القسم >R eferences>‏ ويمكن إضافة عائلة من ملفات الكود عند انتهائها کالتي یتم إنشاؤها من قبل 
محرر نماذج ويندوز ذا بالإضافة إلى كود المستخدم. 


كما توجد بعض الاختلافات الأساسية بين القوالب الأساسية وقوالب yإtاااطایمع†»×ع My‏ فلكي تمكن قالب العنصر عاةام۳٠۲‏ صءt|‏ كي 
يتم إدارتها من قبل صفحة مایم My ٤×‏ في مصمم مشاريع اوج8 اجںءا۷ يجب عليك القيام بعدة خطوات لتعريفها بشكل ملائم. 


في البداية يجب عليك إضافة العنصر <عDataSig”a†ur custom‏ > للملف عatاate.vstempاNyremp‏ المتواجد في ملف ما الذي تم 
تصديره الذي يشير إلى أن قالب العنصر یجب معاملته ک داوم عا×ع My‏ كما يجب عليك منع القالب من الفتح بشكل آلي عندما يتم إضافته 
للمشروع وذلك بإضافة بعض الصفات للعنصر ٥<‏ ا|†ء‌زه ۴۲> بسبب أن كود ۸هاومع»×٤My‏ يجب أن يكون غير مرئي للمستخدم كما 
يجب عليك إضافة العنصر <عللi١۲>‏ للملف مهام صم tءv.مatاemp My‏ كي لا يظهر القالب ضمن قائمة القوالب المثبتة عندما يختار 
المستخدم إضافة عناصر لمشروعه من خلال صندوق الحوار صع†ا سم 4ل وأخيرا عليك إضافة ملف باللاحقة a†ةل‏ وبع للرزمة 
وذلك لتوفير معلومات لا تنطبق على القوالب القياسية مثل 4| unique‏ و Version number‏ و .trig ger assembly‏ ولعمل هذا علیك 
فك الملف ذو اللاحقة ما والقيام بالتعديلات المناسبة ثم إعادة ضغط الملفات الضرورية ثانية. 


في البداية قم بفك محتويات القالب الذي قمنا بتصديره سابقا إلى مجلد فارغ تم افتح الملف عام عtءv.عatامصem‏ ارہ وقم بالتعديلات كما 
في الكود 


<VSTemplate Version="2.0.0" 
xmlns=http://schemas.microsoft.com/developer/vstemplate/2005 
Type="Item"> 
<TemplateData> 
<DefaultName>MyV alidation.vb</DefaultName> 
<Name>MyValidation</Name> 
<Description>Extends the My namespace with a set of string 
validation methods.</Description> 
<ProjectType>VisualB asic</ProjectType> 
<SortOrder>10</SortOrder> 
<lIcon>Templatelcon.ico</Icon> 


<!-- Configures the template to not be shown as an option 
when the user selects to add an item template to his project --> 
<Hidden>true</Hidden> 


<!-- Indicates it is to be treated as a My Extension. --> 


<CustomDataSignature>Microsoft. VisualBasic.MyExtension 
</CustomDataSignature> 
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</TemplateData> 
<TemplateContent> 
<References> 
<Reference> <Assembly>System.Core</Assembly> </Reference> 
</References> 
<ProjectItem SubType="Code" TargetFileName="$fileinputname$.vb" 
ReplaceParameters="true" OpenlInEditor="false" 
OpenInWebBrowser="false" OpenInHelpBrowser="false">MyValidation.vb 
</ProjectItem> 
</TemplateContent> 
</VSTemplate> 


أنشئ ملفا جديدا - سوف نضيفه للرزمة لاحقا - وسمه ه2ل" 0ا†كidation.cuاMyVa‏ وافتحه بواسطة ال معام وأضف إليه الكود 


التالي 


<VBMyExtension Template 
ID="MyValidationMyNamespaceExtension" 
Version="1.0.0.0" /> 


والواصفة AssemblyFullName‏ التي تم حذفها في هذا المثال تشير إلى أنه عندما یتم إضافة هذا المجمع للمشروع فسوف يتم دعوة 
المستخدم لإضافة ٣0یہ‏ ع†Ex My‏ وعندما یزال المجمع من المشروع فسوف يتم دعوة المستخدم لإزالة My Extension‏ ولإضافة مجمع 
قدح راا" عءءA‏ ۲مععا٣آ‏ يمكن إضافة قسم كالتالي للملف "data‏ 0اءcu‏ 


<VBMyExtension Template 
ID="MyValidationMyNamespaceExtension" 
Version="1.0.0.0" 
AssemblyFullName="System. Windows.Forms" /> 


قم الآن بإعادة نسخ جميع الملفات لداخل للف Windows Explorer مlدختwlڊ zip‏ 


املف ز٥٣‏ م‌vb‏ 

التعامل مع My Extension‏ هو عملية مخفية آلية ولکي یقوم oاdںا؟‏ اھںءا۷ بمعالجتھا بسلاسة باستخدام دخل قلیل من 
اكك اصح ت افرع الاي بتري ى الرس يكن السفاك الخ ا ك را ذا فة شت اف فة 
زهإم ط۷ الخاص بالمشروع الذي قمت بإضافة التوسعة ۸اه لاج۷ إليه بأي محرر نصي فسوف ترى شيئا شبيها بالتالي 


<lItemGroup> 


<Compile Include="My Project\MyExtensions\My Validation.vb"> 
<VBMyExtensionTemplateID> 
MyValidationMyNamespaceExtension 
</V BMyExtensionTemplateI]D> 
<VBMyExtension Template Version> 
1.0.0.0 
</V BMyExtension Template Version> 
</Compile> 


</HtemGroup> 
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ولكن إذا ألقيت نظرة على القسم الخاص بملف كود أساسي مثل الملف ط1.۷ءاں ١ه"‏ فسوف ترى 


<ItemGroup> 
<Compile Include="Module1.vb" /> 
</HtemGroup> 


وكما ترى هناك بعض الاختلافات فالملف ط۷. اة لiاة۷۷۷‏ سوف يتم تخزينه في مجلد المشروع وهذا يعني آنه سوف يکون غير مرئي 
إلا إذا فعلت خیار Sh 0w A ites‏ في Explorer‏ utionاهك‏ وستجد أن له قطعتان إضافيتان من البيانات توافق القيم المضافة في الملف 
idation.customdataاMyVa.‏ وبتخزين هذه المعلومات يمكن ل 0الناء اهنء۷ أن يسمح للمستخدم بإضافة وإزالة التوسعات من 
صفحة 0۸۶ای عا»×ع My‏ في خصائص المشروع بدلا عن إضافة الملف بشكل يدوي وإن كان هناك مؤشر لمجمع قادح وتمت إزالته فسيقوم 
ل Studio‏ امuء۷i‏ بتحذير المستخدم من أن ٣هاومع†×ع "١y‏ لن يستطيع العمل ويعطيه خيارا لإزالته كما تمنع من تواجد أكثر من نسخة 
من التوسعة في نفس المشروع. 
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جعل صندوق النصوص يقبل العمليات الحسابية بدون استخدام الخاصية ×٠آ"‏ 
ودوال تحویل الأنواع 


يعتبر هذا الموضوع تطبيقا على مفهوم بعنوان التحميل الزائد للمعاملات ع"diھهاا‏ ما0 ك٣هاةإ‏ مم0 فيرجى مراجعة الموضوع المذكور 
إن لك يكن لديك إطلاع عليه 


فإن كنت تريد القيام بعملية ضرب قيمة ما يوجد داخل صندوق النصوص ب10 مثلا فللجميع سيقول أن بيئة التطوير لن تقبل الكود التالي 


a = TextBoxl1l * 10 


وفي مقالي هذا سأقوم بإقناع بيئة التطوير بقبوله تطبيقا على مفهوم التحميل الزائد للمعاملات 

أنشئ مشروعا جديدا وضع فيه صندوق نصوص و زر أوامر فقط تم من قائمة مزه اختر الأمر sوها٣‏ ل۸ و سم الفئة الجديدة 
y7 ×80×‏ حيث سنقوم بوراتتها من صندوق النصوص العادي المستخدم تم أدخل الكود التالي في الفئة الجديدة الذي سيكون الكود 
الكامل للفئة 


Public Class MyTextBox 
Inherits TextBox 


Public Shared Operator *(ByVal Op1 As MyTextBox, ByVal op2 As Integer) As 
Integer 

Return (CInt (Op1.Text) * op2) 
End Operator 


Public Shared Operator *(ByVal op2 As Integer, ByVal Op1 As MyTextBox) As 
Integer 

Return (CInt (Op1.Text) * op2) 
End Operator 


End Class 
اعمل إااںط للمشروع‎ 


في orerامE×p‏ utionاSo‏ اضغط الزر 9٥ا۴‏ اا۸ سهطك ثم وسع العقدة ط۲۳1.۷١٠۴‏ وافتح محرر الكود الخاص بالملف 
Form 1.Designer.vb‏ واستبدل النص ×s.۴0۲"s.۲e×80سtem.Wind0wءرS‏ أينما ورد في الملف المذكور باسم فئتنا الجديدة 
y۲ e×80×‏ تم قم بالحفظ وأغلق كافة الملفات المفتوحة ثم قم بفتح محرر النماذج الخاص ب ۴٥۲۳1‏ وانقر نقرا مزدوجا على الزر ليتم 
إضافة معالج حدث للنقر على زر الأوامر وضع فيه الكود التالي 


Dim a As Integer = TextBoxl1l * 34 
65 * TextBox1l 


Dim b As Integer 
MsgBox (a.ToString & vbCrLf & b.ToString) 


سترى نتيجة الكود الذي وضعناه في فئتنا الجديدة أن صندوق النصوص أصبح يقبل عملية الضرب مباشرة بدون استخدام الخاصية ×16 و 
دوال التحويل بين الأنواع 


وهذه فئة موسعة عن الفئة المذكورة سابقا تتضمن القيام بالعمليات الحسابية الأربع ولنوع البيانات ٣ععع]م|‏ حيث يمكنك عمل إجرائيات كي 
تنفذ العمليات الحسابية على أي نوع تريده 
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Public Shared Operator /(ByVal a As MyTextBox, ByVal b As Integer) As Double 


Public Shared Operator /(ByVal b As Integer, ByVal a As MyTextBox) As Double 


Public Class MyTextBox 


Inherits TextBox 


Public Shared Operator * (ByVal Op1 As MyTextBox, ByVal op2 As Integer) 
As Integer 


Return (CInt (Op1.Text) * op2) 
End Operator 


Public Shared Operator *(ByVal op2 As Integer, ByVal Opl1 As MyTextBox) 
As Integer 


Return (CInt (Op1.Text) * op2) 
End Operator 


Public Shared Operator +(ByVal a As MyTextBox, ByVal b As Integer) 
As Integer 


Return (CInt (a.Text) + b) 
End Operator 


Public Shared Operator +(ByVal b As Integer, ByVal a As MyTextBox) 
As Integer 


Return (CInt (a.Text) + b) 
End Operator 


Public Shared Operator -(ByVal a As MyTextBox, ByVal b As Integer) 
As Integer 


Return (CInt (a.Text) = b) 
End Operator 


Public Shared Operator -(ByVal b As Integer, ByVal a As MyTextBox) 
As Integer 


Return (b - CInt(a.Text) ) 


End Operator 


Return (CInt (a.Text) / b) 
End Operator 


Return (b / CInt(a.Text) ) 
End Operator 


Class 
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القسم التاسع - تعدد المسارات 


ويحتوي على الموضوعات التالية: 


Threading in Windows Forms Applications ® 
Using the Thread pool استخدام بحيرة المساراٽ‎ 


Thread Synchronization ٽIرlسnlاl‎ jlj 
ه كيفية تنفيذ عملية في مسار آخر وإظهار النتيجة في التحكمات على النموذج‎ 
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Threading in Windows Forms Applications 


تكمن المشكلة في أغراض Windows Frm‏ هو أن التحكمات والنموذج ذات نفسه هو أنه يجب الوصول إليهم حصريا من 
خلال المسار الذي قام بإنشائهم وفي الحقيقة كل أغراض ء٣۲٥۴‏ sسهلكماW‏ تعتمد على امله۷M‏ 5۲۸ وذلك بسبب أنها جميعا معتمدة على 
هيكلية رسائل ۷1۸32 والتي ترث مسارات الغرفة لعل ةء۲٣-٤٣ع‏ "هم۸ مما يعني أنه يمكنك إنشاء النموذج أو التحكم على أي مسار 
تريده ولكن جميع الطرق المرتبطة به يجب استدعاؤها من نفس المسار. مما يؤدي إلى ظهور العديد من المشاكل بسبب أن أقسام الدوت نيت 
الأخرى تستخدم املم" ع”الةء۲ط۲-ععا۴ ومزج كلا النوعين بدون حكمة تعتبر فكرة سيئة وحتى لو لم تقم بإنشاء مسار بشكل واضح في 
كودك ربما ستظهر لك بعض المشاكل في جميع الأحوال فمثلا عندما تحاول الوصول إلى عنصر واجهة مستخدم ٣٤۸۲‏ ٠|اع‏ الا من خلال 
الطريقة ماج۴ لنوع ما ونحن نعلم أن الطريقة مأاه ۴٠‏ يتم تتفيذها على مسار مختلف عن المسار الرئيسي 


The ISynchronizelnvoke Interface 

عناصر التحكم الوحيدة التي يمكنك استدعاؤهم من مسار آخر هم الذين يتم عرضهم من خلال الواجهة ISynchronizelnvoke‏ 
التي تمتلك الطرائق e‌k)ەBeginInvo‏ و Endınvoke‏ و الخاصية 4ءRequireءvokeم!‏ القابلة للقراءة فقط. حيث تعيد الخاصية 
InvokeRequired‏ القیمة م ں٣٣‏ إذا کان المستدعي لا يستطیع الوصول إلى التحكم مباشرة وذلك عندما يعمل المستدعي على مسار مختلف 
عن المسار الذي تم إنشاء التحكم فيه ففي هذه الحالة يحب على المستدعي استدعاء الطريقة ٠)ه۷ه٠‏ للوصول إلى أي عنصر خاص بالتحكم 
وهذه الطريقة متزامنة لهذا يتم إيقاف المسار المستدعي حتى يكمل مسار |ل تتنفيذ الطريقة. أو يمكن للمسار المستدعي استخدام الطرائق 
Beginlnvoke‏ و nvokeاEnd‏ لتنفیذ العملية بشکل لا متزامن. 
تأخذ الطريقة م )ه |١۷‏ إجراء مفوض يشير إلى طريقة (طن؟ أو ۸٣هام‏ ں۴) ويمكنه أخذ مصفوفة من النوع اء عزط0 كمحدد ثاني إذا كانت 
الطريقة تتوقع واحد أو أكثر من المحددات وتضمن هيكلية نماذج ويندوز أن الإجراء الذي يشير إليه المفوض يتم تنفيذه في المسار إل لهذا 
يمكنه بأمان الوصول إلى أي تحكم على النموذج. 
سنرى كيف يمكننا استخدام الطريقة ء)ه۷,| للوصول إلى تحكم من مسار غير المسار ال حيث يظهر لنا المثال التالي كيف يمكننا زيارة 
جميع المجلدات ضمن شجرة مجلد من مسار تانوي بينما يتم إظهار السم المجلد في تحكم |عطهج] وأول شئ سنقوم بعمله هو تحديد طريقة 
تقوم بعمل الإظهار المطلوب التي يمكنها أن تكون مجرد إجراء بسيط 


' This method must run in the main UI thread. 
Sub ShowMessage (ByVal msg As String) 
Me.lblMessage.Text = msg 
Me.Refresh () 
End Sub 


فک لجرا ء قوی كبر لك ار رر بح فن ذف مقر کن جوا ع ی افر کی کے مارک ن 
جميع الطرائق ضمن النموذج 


' A delegate that can point to the ShowMessage procedur 
Delegate Sub ShowMessageDelegate (ByVal msg As String) 

'" An instance of the delegate 

Dim threadSafeDelegate As ShowMessageDelegat 


وستحتاج لطريقة تبدأ المسار الثانوي مثلا إجراء معالجة الحدث )اح لزر أوامر 0۸غBut‏ 


' Parse the c:\Windows directory when the user clicks this button. 
Private Sub btnSearch Click (ByVal sender As Object, ByVal e As EventArgs) 
Handles btnSearch.Click 
Dim t As New Thread (AddressOf SearchFiles) 
tL.Start ("c:\windows") 
End Sub 


وأخيرا تقوم بكتابة الكود الذي سيعمل على المسار الثانوي حيث أنه من الضروري لذلك الكود أن يستطيع الوصول للتحكم معهءءمM|اط|‏ 
باستدعاء الطريقة معةءومWN«٥۸؟‏ وهذا يتم من خلال الطريقة ع)هم۷م| في فئة النموذج ءءهاZ٣‏ ص۳٣٠۴‏ أو الطريقة م)م۷م| لأي تحكم 
توخو غل اللعزذج والئى تكرن اة ها سا 


' (This method runs in a non-UlI thread.) 
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Sub SearchFiles (ByVal arg As Object) 

' Retrieve the argument. 

Dim path As String = arg.ToString () 
' Prepare the delegat 


threadSafeDelegate = New ShowMessageDelegate (AddressOf ShowMessage) 
' Invoke the worker procedure. (The result isn't used in this demo.) 
Dim files As List (Of String) = GetFiles (path) 


' Show that execution has terminated. 

Dim msg As String = String.Format ("Found {0} files", files.Count) 
Me. Invoke (threadSafeDelegate, msg) 

End Sub 


' A recursive function that retrieves all the files in a directory tree 
' (This method runs in a non-UlI thread.) 

Function GetFiles (ByVal path As String) As List (Of String) 

' Display a message. 

Dim msg As String = String.Format ("Parsing directory {0}", path) 

Me. Invoke (threadSafeDelegate, msg) 

' Read the files in this folder and all subfolders. 

Dim files As New List (Of String) 

For Each fi As String In Directory.GetFiles (path) 

files.Add(fi) 

Next 
For Each di As String In Directory.GetDirectories (path) 
files.AddRange (GetFiles (di) ) 

Next 

Return files 

End Function 


وستتعقد العملية أكثر إن احتجنا لاستخدام الطريقة ShowMessage‏ لی جمیع المسارات فالطريقة 6٥٤۴|٥5‏ مثلا يمكن استدعاؤها من 
المسار إلا وفي هذه الحالة عمل الاستدعاء باستخدام الطريقة مء |۷٥)‏ يضيف استباقا للأمور يجب تجنبه لذلك يجب علينا فحص قيمة 
الخاصية dع۲اu‏ »م۸ )م۷م| واستخدام الطريقة العادية إن كانت تعيد القيمة عمءاه۴ 


' (Inside the SearchFiles and GetFiles methods) 
If Me.InvokeRequired Then 
Me. Invoke (threadSafeDelegate, msg) 
Else 
ShowMessage (msg) 
ERAN LEÊ 


والطريقة الأفضل من ذلك بدلا من فحص الخاصية vokeRequiredم|‏ من أجل كل مستدعي سنقوم بفحصها من داخل الطريقة 
ShowMessage‏ 


' This method can run in the UI thread or in a non-UlI thread. 
Sub ShowMessage (ByVal msg As String) 
' Use the Invoke method only if necessary. 


If Me.InvokeRequired Then 
Me. Invoke (threadSafeDelegate, msg) 
Return 

End If 


Me.lblMessage.Text = msg 
Me.Refresh () 
End Sub 


فبعد هذا التغيير أي قطعة من الكود ستحتاج لإظهار رسالة على التحكم معهءءم|ط| ستحتاج فقط لاستدعاء م عةءوم N‏ W«٥م؟‏ بدون القلق 
حول أي مسار يتم تنفيذ الكود عليه 

وفي بعض الظروف في فيجول بايزيك 2005 أو الفريموورك رقم 2 يقوم التطبيق بالوصول للتحكم عن طريق مسار غير مسار الإظهار 
thre‏ الا-nهم‏ بدون التسبب باية مشاكل فيمكن حدوث ذلك متلا عندما تحاول الوصول إلى تحكمات بسيطة مثل |عطج] أو عندما تقوم 
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بعمليات لا تسبب إرسال رسائل ۷1,32 في الخلفية كما أن العديد من الخصائص يمكن قراءتها وليس تعديلها بدون التسبب بمشاكل وذلك 
لأن قيمة تلك الخصائص مخزنة في عنصر ضمن تحكم الدوت نيت 


The BackgroundWorker Component 

على الرغم من أن الواجهة nvokeاonizeاSynch‏ تجنبك من الوقوع في المشاكل المتعلقة بالمسارات في تطبيقات نماذج ويندوز 
يحتاج معظم مطوري فيجول بايزيك لطريقة أفضل وأقل أخطاء فأنت تحتاج مثلا لطريقة بسيطة لإلغاء طريقة غير متزامنة بأسلوب آمن 
الشئ الذي لا توفره الواجهة المذكورة بشكل تلقائي. ومن أجل هذا السبب قامت مايكروسوفت بإضافة المكون Background Worker‏ إلى 
صندوق الأدوات واستخدامه سهل جدا مما يسهل عملية إنشاء تطبيقات ويندوز متعددة المسارات. 


يمتلك المكون Back grou n4 Wk)‏ خاصيتان مثيرتان للاهتمام فالخاصية WorkerReportsPr ogress‏ تکون قیمتھا مں۲r‏ إذا أطلق 
المكون الحدث dع‏ ع ProgressCha‏ والخاصية WorkerSupportsCcancellation‏ تكون قیمتھا مں"۲ إذا كان المكون يدعم الطريقة 
ance syn‏ وتكون القيمة الافتراضية لكلا الطريقتين عءاج۴ لذا يجب عليك ضبط قيمتهم إلى عں] إذا أردت الاستفادة من جميع مزايا 
هذا التحكم والمثال الذي سيطرح هنا یفترض أنه قد تم ضبط کلتا القیمتین إلى e‏ ں۲۲ ويتطلب استخدام lئaكوj Background Worker‏ 
بشكل عام العمليات التالية: 


.١‏ إنشاء إجراء معالجة للحدث )ه00۷ وملؤها بالكود الذي تريد أن يتم تنفيذه على المسار الثانوي ويتم تشغيل هذا الكود عندما يتم 
استدعاء الطريقة R١۷۲) ٠۲۸ءر ۸٥‏ وهي تقبل محددا يتم تمريره لإجراء معالجة الحدث 00۷٥۲)‏ حيث لا يمكن للكود 
الموجود هناك الوصول مباشرة للتحكمات على النموذج لأنه يعمل في مسار آخر 

۲. استخدم الطريقة ءوعاعه ۴٣‏ ۲۲مممR‏ من داخل الحدث )ه0۷ عندما تريد الوصول إلى عنصر على النموذج وهذه الطريقة 
تطلق الحدث 4٥ع Zz‏ ءءء ror‏ إذا كانت قيمة الخاصية ssئReportsProgre-Worker‏ هي rue‏ وإلا سیتم إطلاق استثناء 
Worker-ReportsProgress‏ في حالة كون قيمتها ماج۴ والكود في إجراء معالجة الحدث 4عع"Z۸2٣ءءمrعPro‏ يعمل في 
نفس المسار الا ولهذا يمكنه الوصول بأمان لأي من تحكمات النموذج 

۳. استخدم الطريقة ء٣‏ رء4|عء۸ھCa‏ للتحكم Worker‏ undداعBack‏ لإيقاف المسار الثانوي مباشرة وهذه الطريقة تستدعي ضبط 
llخlصية WorkerSupportsCancellatio n‏ إلى rue‏ وإلا سیتم إطلاق wlتڎliء d0 peration Exception‏ iاnvaا‏ في حالة 
كون قيمتها مءإه۴ ويجب على الكود في )ه0۷ التحقق دوريا من الخاصية ع”أل١‏ ه۸۴ هااةاامء" ه٤‏ والخروج بأمان عندما 
تصبح قیمتھا مں ٣آ‏ 

.٤‏ كتابة إجراء معالجة للحدث لء†ءام Run N ork er0»‏ إن كنت تريد القيام بأية أعمال عندما ينتهي عمل المسار الثانوي إما 
بشكل طبيعي أو بواسطة الإلغاء والكود في إجراء معالجة هذا الحدث يعمل في المسار |ل لذا يستطيع الوصول لجميع عناصر 
ا 

وبشكل عام فالكود في معالج الحدث )ه00۷ يجب أن يعيد قيمة للمسار الأساسي بدلا من تعيين هذه القيمة في حقل على مستوى الفئة فعلى 
الكود تعيين هذه القيمة للخاصية ااإuءمR‏ للغرض ع۸۲٥۷٤‏ )اه 0W‏ فتكون هذه القيمة متوفرة للمسار الأساسي بواسطة الخاصية 
Result‏ للغرض Run WorkerCcompاleted EventArgs‏ الممرر للحدٿث etedاWorkerComp Run‏ وهذا کود نموذجي یستخدم 
illصر BackgroundWorker‏ 


' The button that starts the asynchronous operation 


Private Sub btnStart Click (ByVal sender As Object, ByVal e As EventArgs) 
Handles btnStart.Click 
Dim argument As Object = "abcde" ' The argument 


BackgroundWorker1.RunWorkerAsync (argument) 

' Disable this button, and enable the "Stop" button. 
btnStart.Enabled = False 

btnStop.Enabled = True 

End Sub 


' The button that cancels the asynchronous operation 


Private Sub btnStop_ Click (ByVal sender As Object, ByVal e As EventArgs) 
Handles btnStop.Click 

BackgroundWorker1.RunWorkerAsync (argument) 

End Sub 
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' The code that performs the asynchronous operation 
Private Sub BackgroundWorkerl DoWork (ByVal sender As Object, _ 
ByVal e As DoWorkEventArgs) Handles BackgroundWorker1. DoWork 
' Retrieve the argument. 
Dim argument As Object = e.Argument 
Dim percentage As Integer = 0 


' The core of the asynchronous task 
Do Until BackgroundWorker1.CancellationPending 


' Report progress when it makes sense to do s0. 
BackgroundWorker1.ReportProgress (percentage) 
Loop 
' Return the result to the caller. 

.Result = primes 
End Sub 


' This method runs when the ReportProgress method is invoked. 

Private Sub BackgroundWorkerl ProgressChanged (ByVal sender As Object, 
ByVal e As ProgressChangedEventArgs) Handles _ 
BackgroundWorker1.ProgressChanged 


' Tt is safe to access the user interface from here. 

' For example, show the progress on a progress bar or another control. 
ToolStripProgressBarl.Value = e.ProgressPercentag 

End Sub 


' This method runs when the asynchronous task is completed (or canceled). 
Private Sub BackgroundWorkerl RunWorkerCompleted (ByVal sender As Object, 
ByVal e As RunWorkerCompletedEventArgs) Handles _| 
BackgroundWorker1.RunWorkerCompleted 
' It is safe to access the user interface from here. 


' Reset the Enabled state of the Start and Stop buttons. 
btnStart.Enabled = True 

btnStop.Enabled = False 

End Sub 


يظهر لك المثال التالي كيف يمكن استخدام العنصر )اه 4W‏ مuهاع)cه8B‏ للبحث عن الملفات في مسار غير متزامن وهي نفس المشكلة 
التي طرحت عند الحديث عن ءcه؟إهnt|‏ Synchronizelnvokeا‏ مط في هذا الموضوع سابقا وبهذا يمكنك مقارنة الطريقتين بسهولة. 
وستكون النسخة الجديدة المعتمدة على 0)۲ ٣0W‏ uهاع‏ )عمط أكثر تعقيدا بقليل بسبب أنها تدعم الإلغاء لعمل غير متزامن 


' The result from the SearchFiles procedure 

Dim files As List (Of String) 

' We need this variable to avoid nested calls to ProgressChanged. 
Dim callInProgress As Boolean 


' The same button works as a Start and a Stop button. 

Private Sub btnStart Click (ByVal sender As Object, ByVal e As EventArgs) 
Handles btnStart.Click 

If btnStart.Text = "Start" Then 

lIstFiles.Items.Clear () 

Me.BackgroundWorker1. RunWorkerAsync ("c:\windows") 


Me.btnStart.Text = "Stop" 
Else 
Me.BackgroundWorker1.CancelAsync () 
End If 
End Sub 


' The code that starts the asynchronous file search 
Private Sub BackgroundWorkerl DoWork (ByVal sender As Object, 
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ByVal e As DoWorkEventArgs) Handles BackgroundWorker1. DoWork 


' Retrieve the argument. 

Dim path As String = e.Argument.ToString () 
' Invoke the worker procedure. 

files = New List (Of String) 


SearchFiles (path) 
' Return a result to the RunWorkerCompleted event. 
Dim msg As String = String.Format ("Found {0} files", files.Count) 


e.Result = msg 
End Sub 


' A recursive function that retrieves all the files in a directory tree. 
Sub SearchFiles (ByVal path As String) 
' Display a message. 


Dim msg As String = String.Format ("Parsing directory {0}", path) 
' Notice that we don't really use the percentage; 

' instead, we pass the message in the UserState property. 
Me.BackgroundWorker1.ReportProgress (0, msg) 


' Read the files in this folder and all subfolders. 

' Exit immediately if the task has been canceled. 

For Each fi As String In Directory.GetFiles (path) 
If Me.BackgroundWorker1.CancellationPending Then Return 
files.Add (fi) 


Next 
For Each di As String In Directory.GetDirectories (path) 


If Me.BackgroundWorker1.CancellationPending Then Return 
SearchFiles (di) 

Next 

End Sub 


te Sub BackgroundWorkerl ProgressChanged (ByVal sender As Object, 
ByVal e As ProgressChangedEventArgs) _ 

Handles BackgroundWorkerl1l.ProgressChanged 

' Reject nested calls. 

If callInProgress Then Return 


Priva 


callInProgress = True 

' Display the message, received in the UserState property. 
Me.lblMessage.Text = e.UserState.ToString () 

' Display all files added since last call. 


For i As Integer = l1stFiles.Items.Count To files.Count = 1 
1IstFiles.Items.Add(files (i) ) 


Next 


Me.Refresh () 
' Let the Windows operating system process message in the queue. 


' If you omit this call, clicks on buttons are ignored. 
Application. DoEvents () 
callInProgress = False 
End Sub 
Private Sub BackgroundWorkerl RunWorkerCompleted (ByVal sender As Object, 


ByVal e As RunWorkerCompletedEventArgs) _ 

Handles BackgroundWorker1.RunWorkerCompleted 

' Display the last message and reset button's caption. 
Me.lblMessage.Text = e.Result.ToString () 
btnStart. Text = "Start" 

End Sub 


والكود هنا يشرح نفسه ماعدا إجراء الحدث changed‏ ressعدPr‏ حيث يجب أن يتضمن الكود استدعاء للطريقة 
sئication.DoEventامAp‏ وإ لن يتمكن التطبيق من معالجة الأحداث المنطلقة مثل حدث النقر على الزر مه6 أو أي عمل آخر ممكن 
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إضافته للواجهة ومع ذلك فاستدعاء هذه الطريقة سيسبب استدعاءات معششة للإجراء ۵4ع" ۸۵٤ء۶٥‏ عه" مما قد يسبب إطلاق استثناء 
stack verflow Exception‏ ومن أجل عدم حدوث هذا یتم استخدام حقل منطقي مساعد ‰5 nاااca‏ لتجنب حدوث مثل هذه 
الاستدعاءات المعششة 

لاحظ أيضا أن هذا التطبيق لا يحتاج للإعلام عن نسبة التقدم للمسار الرئيسي ويستخدم الطريقة ۲٥559‏ ع٥0۲۲۴‏ مء R8‏ فقط لتنفيذ جزء من 
الكود في المسار الرئيسي للبرنامج والرسالة الفعلية للإظهار يتم تمريرها للخاصية عtة†؟۲هءل‏ وإن كان تطبيقك یستخدم ۵۲ط ۶ء عٍه۲م أو 


أي مؤشر آخر للتقدم يجب عليك تجنب استدعاء الطريقة و٥۲‏ عه۲ 0۲۲۴ مه8 بدون داعي لأنها تتسبب بتبديل المسارات وتكون مكلفة كثيرا 
عندما يتعلق الأمر بوقت المعالجة وفي هذه الحالة يجب عليك تخزين مؤشر التقدم في حقل في الفئة واستدعاء الطريقة فقط في حالة حدوث 


Dim currentPercentage As Integer 


Private Sub BackgroundWorkerl DoWork (ByVal sender As Object, _ 
ByVal e As DoWorkEventArgs) Handles BackgroundWorker1. DoWork 


Const TotalSteps = 5000 
For i As Integer = 1 To TotalSteps 
' Evaluate progress percentag 
Dim percentage As Integer = (i * 100) \ TotalSteps 
' Report to UI thread only if percentage has changed. 
If percentage <> currentPercentage Then 
BackgroundWorker1.ReportProgress (percentage) 
currentPercentage = percentag 
End If 
Next 
End Sub 
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Using the Thread pool استخدام بحيرة المسارات‎ 


إنشاء العديد من المسارات قد يسبب انخفاض أداء النظام بسرعة وخاصة عندما تصرف هذه المسارات معظم وقتها في حالة سبات 
أويعاد تشغيلها بصورة دورية بغرض قراءة مصدر ما أو تحديث الإظهار. ولتحسين أداء كودك يمكنك إعادة ترتيب بحيرة المسارات بشكل 
يضمن أكفأً استخدام للموارد باستخدام بعض الأغراض وا عزط0 الموجودة في مجال الأسماء عاك ة٥۲٣‏ ."ء6 بحيرة المسارات 


The ThreadPool Type 
والتي تحتاج لإجراء مفوض‎ "hreadP001.QueueUserWorkltem يتم إنشاء بحيرة المسارات عندما تقوم باستدعاء الدالة‎ 
وغرض اءهزط0 اختياري يستخدم لتمرير البيانات للمسار والإجراء المفوض یجب أن یشیر إلى طںء يمرر‎ WaitCallback delegate 
له محدد وحيد من النوع زط0 بحيث تكون قيمته محتوية على البيانات التي نريد تمريرها للمسار أو ع, ۸1اه عندما لا توجد بيانات‎ 

نريد تمريرها وقطعة الكود التالية تبين لك كيف يمكنك استخدام عدد كبير من المسارات لاستدعاء إجراء في فة ووها٣‏ 


For i As Integer = 1 To 20 

' Create a new object for the next lightweight task. 

Dim task As New LightweightTask () 

' Pass additional information to it. (Not used in this demo.) 
task.SomeData = "other data" 
' Run the task with a thread from the pool. 
' (Pass the counter as an argument.) 
ThreadPool.QueueUserWorkItem (AddressOf task.Execute, i) 


Next 


وقطعة الكود التالية تحتوي على الكود الذي يتم تنفيذه فعلا عندما يتم سحب المسار من البركة 


Class LightweightTask 

Public SomeData As String 
' The method that contains the interesting code 
(Not really interesting in this example) 
Sub Execute (ByVal state As Object) 

Console.WriteLine ("Message from thread #{0}", state) 
End Sub 
End Class 


والمسار العامل يمكنه تحديد فيما إذا كان قد أخذ من بحيرة المسارات أم لا بتحري قيمة الخاصية 

hread.Current Thread. lsThread Pool Thread‏ ويمكنك معرفة العدد الأقصى للمسارات في البركة باستدعاء الطريقة الساكنة 
Threads‏ hreadPo01.GetMaxا‏ وعدد المسارات المتاحة حاليا باستدعاء الطريãة ThreadPool.GetAvaila ble Threads iS‏ . 
كما تم إضافة طريقة جديدة ءلةء Na»‏ ء5 في الفريموورك 2 .2.0 )ا0 w‏ ع۴2۳ N۲‏ تمكنك من تغيير العدد الأقصى للمسارات 


الموجودة في البركة 


' Maximum 30 worker threads and maximum 10 asynchronous I/O threads in the pool 
ThreadPool.SetMaxThreads (30, 10) 


في بعض الأحيان قد تحتار في نقطة تساؤل هل أقوم بإنشاء المسار بنفسي أم أستعيره من بحيرة المسارات. وتظهر هنا قاعدة جيدة: استخدم 
فئة المسارات وءهاء 1۸۲٠2١0‏ عندما تريد تنفيذ عملية تريد تنفيذها بأسرع وقت أو عندما تريد القيام بعملية تستهلك الوقت ولا يتم تنفيذها 
كثيرا وفي معظم الحالات بشكل عام يجب عليك استخدام بحيرة المسارات. 
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The Timer Type 

تقدم الفريموورك عدة أنواع من المؤقتات كل منها يمتلك نقاط قوته وضعفه. فمثلا يجب عليك استخدام التحكم 
stem.Windows.Forms.rimerرS‏ عندما تقوم بالعمل علی تطبیق من النوع کہه‌اځھicاممa Windows ۴٥۲m5‏ وان لم یکن برنامجك 
يمتلك واجهة للمستخدم يجب عليك عندها استخدام الفنة |r‏ 1.عSystem.rhreadin‏ أو الفئة System .rimers. Primer‏ وتعتبر ھاتان 
الفئتان متساويتين في العمل تقريبا والشرح التالı system.Threading.Timer le‏ isطبق‏ يض Jeذآ” System. Timers. Timer‏ 


الفئة ime‏ في مجال الأسماء ع” أل ه٠۲٣‏ .”مورك يقدم طريقة بسيطة لمؤقت يستدعي إجرائية محددة حيث يمكنك استخدام 
هذ اففة لجدرنة عمل ف رفك مين فى الستقل ركن قفد الك ران آلذي ناجه ما كن انتا من مرة ورالحكة قما فرق وات المرقت 


يأخذ أربعة محددات` 


٠‏ إجراء مفوض مtهعءاعل‏ )عهطااج٣۲مصiآ‏ يشير إلى الإجراء الذي يستدعى عندما ينتهي زمن المؤقت ويجب أن يكون هذا 
الإجراء من النوع انك يأخذ محدد واحد من النوع زط0 

ه غرض اء عزط0 يتم تمريره للإجراء الذي يشير إليه المفوض ويمكن أن يكون من عدة أنواع كسلسلة نصية أو مصفوفة أو 
مجموعة 0۸†ءمااهع أو أي نوع بيانات آخر يحتوي على البيانات التي سيتم تمريرها للإجراء وإن لم تكن تحتاج لتمرير قيم 
استخدم ع ااه بکل بساطة 

قيمة من النوع TimeSpan‏ تحدد زمن المؤقت الذي سیتم استدعاء الإجراء بعده كما يمكن تحدیدها باستخدام قيمة من النوع Long‏ 
أو مععtمال‏ وفي هذه الحالة يقاس الزمن بالميللي ثانية ( 1000/1 من الثانية) وعند تمریر ع اہ ا۴ ہ|.t ٦|٣‏ كقيمة لا يتم 
إطلاق المؤقت أبدا أو القيمة 0 صفر لإطلاق المؤقت مباشرة 

ه قيمة من النوع ١م5٠" ٣|‏ تحدد زمن المؤقت والتي بدورها تحدد زمن تكرار إطلاق المؤقت بعد المرة الأولى. وهذه أيضا يمكن 
تحديدها بقيمة من النوع ع”١٠|1‏ أو ١ععهامال‏ وهنا أيضا يصبح الوقت مقاسا بالميللي تانية ويمكنك تمرير القيمة 1 أو 
finite‏ nا.imeoutا‏ لإطلاق المؤقت مرة واحدة فقط. 


وهذه القيم التي تمررها لباني المؤقت غير متوفرة كخصائص. وبعد تشغيل المؤقت يمكنك تغيير هذه القيم فقط با ستخدام الطريقة Change‏ 
method‏ والتي تأخذ محددين يحددان وقت التشغيل وفترة زمن المؤقت ويمتلك Stop ءlڙج| Timer object‏ الذي يقوم بايقاف المؤقت 
الذي يتم إيقافه عبر استدعاء الإجراء مممءا0 وترينا قطعة الكود التالية مثالا عما تحدثنا عنه حول المؤقت 


Sub TestThreadingTimer () 

' Get the first callback after one second. 

Dim dueTime As New TimeSpan (0, 0, 1) 

' Get additional callbacks every half second. 

Dim period As New TimeSpan (0, 0, 0, 0, 500) 

' Create the timer. 

Using t As New Timer (AddressOf TimerProc, Nothing, dueTime, period) 
' Wait for five seconds in this demo, and then destroy the timer. 
Thread.Sleep (5000) 

End Using 

End Sub 


The callback procedure 
Sub TimerProc (ByVal state As Object) 
' Display current system time in console window. 


Console.WriteLine ("Callback proc called at {0}", Date.Now) 
End Sub 


وفي النهاية تجدر ملاحظة أن الإجراء المستدعى يتم تنفيذه على مسار مأخوذ من بركة المسارات لذا يجب عليك التحكم بالمتغيرات 
والمصادر الأخرى المستخدمة من قبل المسار الرئيسي للبرنامج عبر استخدام ما يدعى بتزامن المسارات 
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Thread Synchronization ٽارlسمئlا تزامن‎ 


The SyncLock Statement 
خلال زمن التشغيل لا يوجد شئ يضمن لك أن يسير الكود بشكل نظامي بدون مقاطعات وتكون عملية التشغيل بدون مقاطعات عملية قاسية‎ 
على نظام التشغيل وخاصة عندما يكون عبارة عن بيئة متعددة المهام وفي معظم الحالات التي ستحتاجها ستكون قانعا بالدقة ضمن البرنامج‎ 
الواحد وذلك عند معالجة الكود فعلى سبيل المثال يكون كافيا لك ضمان أن مسار تنفيذ واحد ضمن التطبيق الحالي يستطيع تنفيذ قطعة معينة‎ 

من الكود في وقت محدد ويمكنك تحقيق ذلك بتضمين قطعة الكود تلك ضمن كتلة )عءماء"ر؟ ك"٤...)ءماعمرك‏ والذي يحتاج إلى متغير 
كمحدد له محققا المتطلبات التالية. 


ه يجب أن یكون مشترك بین جمیع المسارات ويکون في العادة متغير على مستوى الفئة وبدون اlخاصيû ThreadStatic‏ 
٠‏ يجب أن يكون من نوع مرجعي مثل ع” ا٣‏ أو †ءعزط0 واستخدام أنواع القيمة ينتج عنه خطأ في الترجمة 
٠‏ يجب أن لا يحتوي على القيمة عه وفي حال تمرير القيمة عم ٤ه‏ سيسبب أخطاء في زمن التنفيذ 


وفيما يلي مٿال عن كتلة )ckماSync‏ 


' The lock object. (Any non-Nothing reference value will do.) 
Private consolelock As New Object () 


Sub SynchronizationProblem Task (ByVal obj As Object) 
Dim number As Integer = CInt (obj) 
' Print a lot of information to the console window. 
For i As Integer = 1 To 1000 
SynclLock consoleLlLock 
' Split the output line in two pieces. 
Console.Write(" ") 
Console.Write (number) 
End SyncLock 
Next 
End Sub 


والكود السابق يستخدم المتغير )ع ماع امءمهء للتحكم بالوصول للغرض ا0١٥‏ وهو يشكل المصدر الوحيد المشترك بين جميع 
المسارات في المثال ولهذا فهو المصدر الذي يجب عليك تحقيق التزامن من أجله والتطبيقات الحقيقية يمكن أن تحوي العديد من كتل 
)ع0اncرك‏ والتي يمكن أن تستخدم نفس المتغير المحلي أو عدة متغيرات مختلفة من أجل اختلاف البصمة وهنا يجب عليك استخدام متغيرا 
مميزا من أجل كل نوع من أنواع المصادر المشتركة التي يجب عمل التزامن من اجلها أو من أجل مجموعة التعابير التي يجب تنفيذها ضمن 
المسار في نفس الوقت. 


وعندما تستخدم کتلة )مارک یتضمن الکود تلقائیا کتلة ۷٣آ ٣...۸‏ مخفية من أجل ضمان تحریر القفل بشکل صحیح إذا تم إطلاق 
استثناء ومن أجل هذا لا يمكنك القفز لعبارة داخل الكتلة )عماعءمرك. وإن كانت الكتلة )عءماءم رك موضوعة داخل إجراء خاص بتواجد 
معمهاtءم!|‏ لفئة ما وجميع المسارات العاملة ضمن إجراء في ذلك التواجد مء" هاءم| للفئة يمكنك تمرير م" لعبارة ال )عماءمرك وذلك 
بسبب أن هذا الغرض يحقق كل المتطلبات (يمكن الوصول إليه من جميع المسارات - وهو قيمة مرجعية - وبالتأكيد هو ليس عأط†هN)‏ 


Class TestClass 
Sub TheTask () 
SynclLock Me 
' Only one thread at a time can access this code. 


End SyncLock 
End Sub 
End Class 


ملاحظة: يمكنك استخدام 1٥‏ بهذه الطريقة فقط إن كنت تريد عمل التزامن على مصدر وحيد كملف محدد متلا أو نافذة الكونسول عاموئ"ه٤‏ 
سWind0w‏ وإن كان لديك عدة كتل تزامن التي تحمي عدة مصادر ستستخدم بشكل تلقائي عدة متغيرات كمحددات لكتلة )عءماء"ر؟. والشئ 
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الذي له أهمية أكبر مما ذكر هو أنه يجب عليك استخدام م كمحدد فقط إذا كانت الفئة غير مرئية خارج المجمع الحالي عدا ذلك يمكن 
لتطبيق آخر استخدام نفس التواجد ع هءم| للفئة ضمن كتلة )ءماءم رك مختلفة وبهذا فلن يتم تنفيذ عدة كتل من الكود بدون سبب حقيقي 
محدد وبشكل عام لا يجب عليك استخدام غرض ٥زط0‏ عام مرئي من مجمعات أخرى کمحدد لکتلة .Syncloc)‏ وتجدر الملاحظة أن 
العديد من الأكواد التي تراها على الانترنت تستخدم العامل GetType‏ للحصول على نوع الغرض المستخدم للقفل object‏ )ع0ا وذلك 
لحماية الطريقة الساكنة. 


عندما تستخدم عبارات )عماء مرك معششة للقيام بالتزامن لأغراض مختلفة من الضروري استخدام تسلسل تعشيش متطابق أينما احتجت له 
في تطبيقك فالتحري عن الأقفال بالتسلسل المطابق ذاته يجنبك الوصول إلى حالة الأقفال الميتة خلال العديد من أجزاء التطبيق وهذه القاعدة 
تنطبق أيضا عندما تقوم دالة تحتوي على )ماع مرك باستدعاء دالة أخرى تحتوي على )عماء"S۷‏ 


' Always use this sequence when locking objLockl and objLock2. 
SyncLock objLock1l 
SyncLock objLock2 


End SyncLock 
End SyncLock 


اعتبارات الأداء وlلتواجد‏ الكصوJ Performance Considerations and Lazy Instantiation‏ 
تضمين جميع الأكواد التي تستخدم متغيرات مشتركة ضمن كتلة )ءاءSyn‏ يؤدي إلى إبطاء تطبيقك كثيرا أو تخفيض أداؤه بشكل 
ملحوظ وبشكل خاص عندما يتم تشغيله على حاسب متعدد المعالجات فإن استطعت تجنب استخدام كتلة «kعماء‏ "رك بدون تعريض تكامل 
البيانات للخطر يجب عليك القيام به قطعيا فمتلا تخيل أنك تستخدم نمط وحيد بتواجد كسول ٣‏ 0ا†هآ† ةما رها في بيئة متعددة المسارات 


Public Class Singleton 
Private Shared m_ Instance As Singleton 
Private Shared sharedLock As New Object () 


Public Shared ReadOnly Property Instance() As Singleton 
Get 
SyncLlLock sharedLock 
If m Instance Is Nothing Then m Instance = New Singleton 
Return m Instance 
End SyncLock 
End Get 
End Property 
End Class 


تكمن المشكلة في الكود السابق أن معظم الوصولات للخاصية لا يحتاج إلى تزامن وذلك لأن المتغير الخاص ع٥١هاء"ا_"‏ يتم تعيينه مرة 
واحدة في المرة الأولى التي يتم فيها قراءة الخاصية وفي ما يلي طريقة أفضل لتحقيق التصرف المطلوب 


Class Singleton 
Private Shared m_ Instance As Singleton 
Private Shared sharedLock As New Object 


Public Shared ReadOnly Property Instance() As Singleton 

Get 

If m Instance Is Nothing Then 
SynclLock sharedLock 

If m Instance Is Nothing Then m Instance = New Singleton () 
End SyncLock 
End If 
Return m Instance 
End Get 
End Property 
End Class 
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synchronized Objects ةialjتnll الأغراض‎ 

مشكلة أخرى متعلقة بالمسارات في الدوت نيت هي أن ليس جميع أغراض الدوت نيت N۲ object.‏ قابلة للمشاركة بأمان عبر 
المسارات N۲ objects are thread-safe‏ . ااج n0t‏ فعندما تقوم بكتابة تطبيق متعدد المسارات يجب عليك التأكد دوما من الوثائق للتأكد 
من أن الأغراض والطرائق التي تستخدمها آمنة للاستخدام عبر المسارات فعلى سبيل المتال جميع الطرق الساكنة للفئات ×مReg‏ و Match‏ 
أمنة عبر المسارات ولكن الطرق الغير ساكنة غير آمنة فيجب عدم استخدامها ضمن مسار مختلف وكذلك بعض أغراض الدوت نيت متثل 
Windows Forms objects and controls‏ لها العديد من الحدود التي تجعل فقط المسار الذي أنشأها يمكنه استدعاء طرقها وخصائصها 


Synchronized .NET Types iمازتملا أنواع دوت نيت‎ 
g Stack gs SortedList s Queue ڪs‎ Hashtable s ArrayList العديد من الأغراض الغير آمنة عبر المسارات بطبيعتها مثل‎ 


" 


extReaderاو ext Writer‏ و التعابير النظامية تقدم طريقة ساكنة قابلة للتزامن تعيد غرض أمن للمسارات thread-safe object‏ 
مکافئ للذي تم تمریره کما أن معظمها يعرض الخاصية IsSynchronized‏ التي تعید م ں٣‏ عندما تتعامل مع نسخة آمنة عبر المسارات 


' Create an ArrayList object, and add some values to it. 

Dim al As New ArrayList () 

al.Add(1): al.Add(2): al.Add (3) 

' Create a synchronized, thread-safe version of this ArrayList. 
Dim syncAl As ArrayList = ArrayList.Synchronized (al) 


' Prove that the new object is thread-safe. 
Console.WriteLine (al.IsSynchronized) ' => False 
Console.WritelLine (syncAl.IsSynchronized) ' => True 


' You can now share the syncAl object among different threads 


تذكر دائما أن التعامل مع هذه النسخة المتزامنة يكون أبطأً من النسخة الغير متزامنة وذلك بسبب أن كل طريقة تمر عبر سلسلة من 
الفحوصات الداخلية وفي معظم الحالات يمكنك كتابة كود فعال أكثر إذا استخدمت المصفوفات والمجموعات العادية regular arrays and‏ 
ns‌ectiااع‏ وقمت بمزامنة عناصرها باستخدام كتلة )مارك العادية 


The Synchronization Attribute 

استخدام الخاصية System .Runtime.Remoting.Contexts.Synchroniation‏ هي أبسط طریقة لتحقیق الوصول 
المتزامن للغرض اء زط0 بأكمله وبذلك يستطيع مسار واحد فقط الوصول إلى حقوله وطرائقه وبذلك أي مسار يستطيع استخدام الفئة ولكن 
مسار واحد فقط يستطيع تنفيذ أحد طرائقه إذا كانت الطريقة تنفذ كودا ضمن الفئة وءءداع وأي مسار يحاول استخدام هذه الفئة عليه الانتظار 
وبكلمات أخرى وكأن هناك كتل )ءماء مرك تغلف كافة طرائق الفئة مستخدمة نفس متغير الإقفال. والكود التالي يبين كيف يمكنك مزامنة فئة 
باستخدام الخاصية ع Synchronization att r|ط u‏ لاحظ أیضا أن الفئة یجب أن یتم وراٹتھا من conte×18B ou n0 bز ect‏ لیتم تعلیمھا ک 
context-bound object‏ 


System. Runtime. Remoting.Contexts.Synchronization()> _ 
Class Display 
Inherits ContextBoundObject 


End Class 


و خاصية التزامن عا طا†at‏ ynchronizationك‏ تضمن الوصول المتزامن لجميع الحقول والخصائص والطرق ولكنها لا توفر التزامن 
للأعضاء الساكنين static members‏ وهي تأخذ محددا اختیاریا یمکن أن تکون قیمتھ عں٣‏ أو False‏ أو أحد الثوابت التي توفرها الفئة 
Synchronization Attribute‏ والتي يمكنك الاطلاع علیها من مکتبة ۷805۸ 
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The MethodImpl Attribute 
في معظم الحالات مزامنة فئة كاملة ستقتل التطبيق وحماية بعض الطرائق في تلك الفئة يكون كافيا في معظم الحالات حيث يمكنك‎ 
تطبيق هذا بتغليف كود الطريقة بكتلة )0اعSyn أو يمكنك استخدام تقنية أبسط مبنية على الصفة‎ 


System.Runtime.CompilerServices.Methodlmpl 


Class MethodImplDemoClass 
' This method can be executed by one thread at a time. 
<MethodImpl (MethodImplOptions.Synchronized)> _ 
Sub SynchronizedMethod () 


ERQ Sib 
End Class 


فتطبيق الصفة امصا١ه "٤۲‏ على عدة طرائق في الفئة يؤدي نفس الغرض من تغليف كامل تلك الطرائق بكتلة )ءماءمر؟ والتي تستخدم 
م1 كمتغير إقفال وبكلمات أخرى أي مسار يستدعي طريقة معلمة بالخاصية |ام" اكهط†" سوف يمنع أي مسار آخر من استدعاء 
الطريقة المعلمة بالخاصية |ام" ال١هط†م"‏ كما يمكنك استخدام هذه الخاصية على الطرائق الساكنة ويكون متغير الغرض الذي يستخدم 
ضمنيا لقفل الطرائق الساكنة مختلف عن متغير الغرض المستخدم لقفل الطرائق الأخرى للفة ءلهطاعص عع" هاءم؛ وبهذا فالمسار الذي 
يستدعي طريقة ساكنة معلمة بالصفة امصالهط†م" لا يمنع مسار آخر من استدعاء الطرائق الغير ساكنة ولهطام" عع هtاءم¡‏ والمعلمة 
بنفس الصفة 


Volatile Read and Write Operations عمليات القراءة والكتابة ائمتغيرة‎ 

عندما تتم مشاركة متغير عبر عدة مسارات والتطبيق يعمل على حاسب متعدد المعالجات يجب عليك وضع احتمال حدوث أخطاء 

إضافية في الحسبان وتكمن المشكلة في النظام متعدد المعالجات في أن لكل معالج الكاش الخاص به ولهذا فإذا قمت بالكتابة على حقل في فئة 
على مسار سيتم كتابة القيمة الجديدة في الكاش المرتبط مع المعالج الحالي ولا يتم نشرها مباشرة إلى الكاش الخاص ببقية المعالجات بحيث 
يمكنهم جميعا رؤية القيمة الجديدة. كما تحدث مشكلة مشابهة في الأنظمة ذات المعالج 64 بت الذي يمكنه إعادة ترتيب تنفيذ كتل عبارات 
الكود متضمنا عمليات القراءة والكتابة في الذاكرة وعملية إعادة الترتيب لم يكن لها تأثير ظاهر حتى الآن من أجل مسار واحد يستخدم جزءا 
معينا من الذاكرة ولكن ربما سيسبب ذلك مشكلة عندما يتم الوصول إلى نفس الجزء من الذاكرة بواسطة عدة مسارات. وتوفر الفريموورك 
حلان لهذه المشكلة وهما وزج من الطرائق 4ء Rء|ن†ةاهV‏ و VolatileWrite‏ والطريقة Memory Bie‏ ویوفر ھا جمیعا النوع 
Thread‏ 


تمكنك الطريقة ٥۷ء‏ |اهاه۷ من كتابة متغير والتأكد من أن القيمة الجديدة يتم كتابتها آليا في الذاكرة المشتركة بين جميع المعالجات ولا 
تبقى في المسجل الخاص بالمعالج حيث تكون مخفية عن بقية المسارات وبالمثل تمكنك الطريقة 4ه٠۴۸ء|ا†ةاه۷‏ من قراءة المتغير بطريقة 
آمنة لأنها تجبر النظام على تفريغ جميع ذواكر الكاش الموجودة قبل تنفيذ العملية وكلا الطريقتان محملتان تحميلا زائدا لمل ههام0۷ بحيث 
تأخذ متغيرات رقمية أو غرضية زط0 وبالمرجع كما في قطعة الكود التالية 


Class TestClass 
Private Shared sharedValue As Integer 


Function IncrementValue () As Integer 
Dim value As Integer = Thread.VolatileRead(sharedValue) 
value += 1 
Thread.VolatileWrite (sharedValue, value) 
Return value 
ENG FUTHCEETLON 
ENG TCIaASS 


والطريقتان المذكورتان تعملان بشكل جيد عندما نتعامل مع المتغيرات الرقمية أو الغرضية اءهزط0 ولكن لا يمكن استخدامهما من أجل 
أنواع أخرى من المتغيرات لأنه لا يمكنك استخدام نسخة الدالة التي تأخذ متغير من النوع اء زط0 بسبب عدم إمكانية الاعتماد على عملية 
التحويل عندما يكون المتغير ممررا بالمرجع مما يقودنا إلى الطريقة ١ء٣83‏ "م" التي تقوم بتفريغ محتويات جميع ذواكر الكاش 
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الخاصة بالمعالجات إلى الذاكرة الرئيسية وبهذا تضمن لك أن جميع المتغيرات تحتوى أحدث نسخة من البيانات التى تمت كتابتها إليهم فمثلا 
1 وبهدا تضمن جمیع تحتو من البي إِلْي 
يضمن الكود التالي أن الفنُةَ ٣ء‏ اعماك تعمل جيدا حتى على نظام متعدد المعالجات 


Class Singleton 
Private Shared mM Instance As Singleton 
Private Shared sharedLock As New Object () 


Public Shared ReadOnly Property Instance() As Singleton 
Get 
TÊ mM Instance. Tê Nothing Then 
SyncLlLock sharedLock 
TE mM InStance LS NOENIRNGS THEN 
Dim tempInstance As Singleton = New Singleton () 
' Ensure that writes related to instantiation are flushed. 
Thread.MemoryBarrier () 


m_ Instance = tempInstance 
ERG TÊ 
ENA SFISLOEK 
EH TE 
ReEûÛEn M Instance 
Had: Gêl 


End Property 
ENG CIQAS 


ويجب عليك استدعاء الطريقة ما٣2 ٣۷8‏ 0ه" مباشرة قبل أن يتم نشر القيمة الجديدة إلى بقية المسارات وفي المثال السابق يتم التأكد من 
اكتمال وضع القيمة في المتغير مء" هوام ص٠‏ قبل أن توضع في المتغير الذي ستتم مشاركته عبر المسارات 


The Monitor Type 
توفر كتلة )عاcعnصرك طريقة سهلة لاستخدام طريقة تتعامل مع مسائل التزامن ولكنها تكون غير ملائمة في العديد من الحالات‎ 
فمثلا لا يمكن للمسار اختبار كود في كتلة ععماءمرك وتجنب منعه من ذلك إذا كان مسار آخر ينفذ كتلة )عءماءمرك مرتبطة مع نفس‎ 
الغرض اءعزط0 وكتل )عماء مرك معرفة داخليا بواسطة ءاعءعزطه ٣ه†امه التي يمكن استخدامها مباشرة للحصول على مرونة أكثر‎ 
ويتم ذلك على حساب زيادة التعقيد في الكود. ولا يمكنك استخدام اءعزطه مامه" وحيد وفي الحقيقة جميع طرق عم همه التي‎ 
سيتم عرضها هي طرائق ساكنة وتعتبر ١٠ع هي الطريقة الأهم وهي تأخذ محدد من النوع اءعزط الذي يعمل كالمحدد الممرر لكتلة‎ 
وتكون له نفس الشروط من كونه من نوع مرجعي ومشترك ولا يمكن أن يحمل القيمة ,٣۸اه" وإن لم تمتلك المسارات‎ Sync) 
الأخرى قفلا على هذا الغرض فيقوم المسار الحالي بطلب ذلك القفل ويضبط قيمة العداد إلى 1 وإن امتلك مسار آخر القفل يجب على المسار‎ 
الطالب انتظار أن يقوم المسار الآخر بتحرير القفل حتى يصبح متوفرا وإن كان المسار الطالب يمتلك القفل أساسا يؤدي كل استدعاء للطريقة‎ 
إلى زيادة قيمة العداد. وتأخذ الطريقة †أ×۴.١0†اره غرض القفل †ءعزطه )ءه| كمحدد لها وتنقص قيمة العداد وعندما‎ Monitor .Enter 
تصل قيمة العداد للصفر يتم تحرير القفل ممكنا بقية المسارات من الحصول عليه ويجب أن يتم الموازنة بين استدعاء الطريقة‎ 

Monitor .Enter‏ والطریقة †|× 010۲.۴ أو لن یتم تحرير القفل أبدا 


' A non-Nothing module-level object variable 
Dim objLock As New Object () 
EFEY 
' Attempt to enter the protected section; 
' wait if the lock is currently owned by another thread. 


Monitor.Enter (objLock) 
' Do something here. 


Finally 
' Release the lock. 
Monitor.Exit (obj Lock) 
End Try 
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إذا كان هناك احتمال في أن تطلق العبارات الموجودة بين الطريقتان ۲ع و »ع استثناء يجب عليك عندها وضع كامل الكود ضمن كتلة 
۷٣آ‏ ...را لأنه من الضروري أن تقوم بتحرير القفل دوما وإن طلب مسار طريقة على مسار آخر تنتظر داخل الطريقة 

Monitor .Enter‏ سوف يستقبل ذلك المسار استثناء hreadlnterrupted Exception‏ الذي یعتبر سببا إضافیا لاستخدام كتلة 

ry‏ y...Endآ‏ والطریقتان ۲٥ع‏ و †|»×ع الخاصتين ب اع زط0 Monitor‏ يسمحان لك باستبدال كتلة )ءماءمرك؟ ولكنهما لا يقدمان لك 
أية فوائد إضافية وسوف ترى المرونة الزائدة للفئة مام M٥‏ عندما تطبق الطريقة ۷٤٥۲‏ وهي مشابهة للطريقة ٣٥ع‏ ولكنها تخرج 
وتعيد ماج۴ إذا كان لا يمكن الحصول على القفل خلال فترة زمنية محددة فمتلا يمكنك محاولة الحصول على ١هاامه"‏ خلال 10 ميللي 
ثانية تم التخلي عن ذلك دون أن توقف المسار الحالي مدة غير محددة ويقوم الكود التالي بإعادة كتابة المثال السابق المعتمد على )عماعمرS‏ 
مستخدما ا عزطه ۲م† امه" ويظهر لك المحاولات الفاشلة للحصول على القفل 


Try 
Do Until Monitor.TryEnter (consoleLlock, 10) 
Debug.WriteLine ("Thread " + Thread.CurrentThread.Name + _ 
" failed to acquire the lock") 


Loop 
' Split the output line in pieces. 
Console.Write(" ") 
Console.Write (Thread.CurrentThread.Name) 
Finally 

' Release the lock. 

Monitor.Exit (consoleLock) 
End Try 


The Mutex Type 
یمکن امتلاکه من قبل مسار واحد‎ Windows kernel object مبدأً آخر للتزامن حیٹ أن ال ×عMute هو‎ Mute× يوفر النوع‎ 
فقط في الوقت نفسه ويكون في حالة إشارة ع أاهاء ءاه" عاو هج عندما لا يمتلكه أي مسار. ویطلب المسار ملكية ال ×عاں باستخدام‎ 

الطريقة الساكنة ع"0۸أةW.×عاں"‏ والتي لا تعود إلا بعد أن يتم تحقيق الملكية ويتم تحريرها باستخدام الطريقة الساكنة 
Mutex.ReleaseMutex‏ والمسار الذي يطلب ملكية عزطه ×ع†ں" المملوك من قبله سلفا لا يمنع نفسه من الحصول على الملكية فيجب 
عليك في هذه الحالة استدعاء ×ع†ں N‏ ءءهءامR‏ بعدد مساوي من المرات وهذا مثال عن كيفية تعريف قسم متزامن باستخدام Mutex‏ 
object‏ 


' This Mutex object must be accessible to all threads. 
Dim m As New Mutex () 


Sub WaitOneExample () 
m.WaitOne () 
' Enter the synchronized section. 


' Exit the synchronized section. 
m.ReleaseMutex () 
End Sub 


وفي التطبيقات الحقيقية عليك استخدام كتلة ر٣۲‏ لحماية كودك من الأخطاء ووضع استدعاء ×ع†easeMu|اeِR‏ في قسم ھا۴ وإن قمت 
بتمرير محدد اختياري للطريقة 0€ Wait‏ كزمن انتهاء فستعيد التحكم للمسار عندما يتم تحقيق الملكية بنجاح أو عندما ينتهي الوقت المحدد 
ويمكن معرفة الفرق بين النتيجتين باختبار القيمة المعادة حيث أن ع٣1‏ تعني تحقيق الملكية و ماج۴ تعني انتهاء الوقت 


' Attempt to enter the synchronized section, but give up after 0.1 seconds. 
If m.WaitOne (100, False) Then 


' Enter the synchronized section. 


' Exit the synchronized section, and release the mutex. 
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m.ReleaseMutex () 
HEGE Ê 


عند استخدام هذه الطريقة يوفر النوع ×عاں" آلية مكافئة للطريقة ۲ع" ٤۲۷١.١0أ"هN‏ بدون تقديم أية خصائص إضافية ويمكنك رؤية 
المرونة الإضافية للنوع »ع عندما ترى الطريقتين الساكنتين رم ة۷ و ١ا14ةW۷‏ الخاصتين به والطريقة رم۷ تأخذ مصفوفة 
من ءاcعزطاه‏ ×عMut‏ وتعود عندما تحقق ملكية واحد من كاءعزطه ×ع†ں N‏ من تلك القائمة وفي هذه الحالة يصبح ال ×عاں ا" في حالة 
إشارة أو عندما ينتهي الوقت المحدد بالمحدد الاختياري والقيمة المعادة تكون عبارة عن مصفوفة من كاءعزطه »عا التي أصبحت في 
حالة إشارة أو قيمة خاصة هي 258 عندما ينتهي الوقت المحدد. وتستخدم مصفوفة من ءأءعزطاه ×ه†ں" عندما يكون لدينا عدد محدود من 
الموارد ونريد أن نربط کل واحد منھا بمسار حالما يصبح ذلك المصدر متوفرا وفي هذه الحالة يصبح ال Mutex objects‏ الذي في حالة 
إشارة يعني أن المصدر الموافق متوفر عندئذ يمكنك استخدام الطريقة ر١14 u».‏ لمنع المسار الحالي حتى يصبح واحدا من ال 
Mutex objects‏ في حالة إشارة و النوع ×عاں" يرث الطريقة رم W4‏ من ءالمة ١ه‏ الخاصة بفئته الأب وهذا هيكل لتطبيق 


يستخدم هذه التقنية 


An array of thr Mutex objects 
Dim mutexes() As Mutex = {New Mutex(), New Mutex(), New Mutex () } 


Sub WaitAnyExample () 
' Wait until a resource becomes available. 
(Returns the index of the available resource.) 
Dim mutexNdx As Integer = Mutex.WaitAny (mutexes) 
' Enter the synchronized section. 
(This code should use only the resource corresponding to mutexNdx.) 


' Exit the synchronized section, and release the resourc 


mutexes (mutexNdx) .ReleaseMutex () 
End Sub 


والطريقة الساكنة |ا4†ةW‏ أيضا موروثة من ءال" ه ه۷ الخاصة بالفئة الأب حيث تأخذ مصفوفة من ءأعءعزطاه ×عاں" وتعيد التحكم 
للتطبيق فقط عندما يصبح جميعهم في حالة إشارة وهي مفيدة بشكل خاص عندما لا يمكنك المتابعة إلا عندما تكون جميع المسارات الباقية قد 
أنهت عملها 


' Wait until all resources have been released. 


Mutex.WaitAl 1l (mutexes) 


وهناك مشكلة صغيرة متعلقة بالطريقة ا۷314 هي أنه لا يمكن استدعاؤها من المسار الرئيسي في تطبيق مسار الغرفة الوحيدة ماعماك 
rhread Apartment )STA) application‏ مثل تطبیق الکونسول i0nاa‌iاممھ‏ eامیnهع‏ أو تطبیق نماذج ویندوز ءس0هہWi‏ 
icationاapp‏ ه۴ ففي المسار الرئيسي لتطبيق 5۲۸ يجب عليك التوقف حتى يتم تحرير مجموعة من ال ×عاں" عندها يجب عليك 
استخدام |ا14ة۷ من مسار منفصل ثم استخدام الطريقة ”1هل.4١‏ ه٠۲٣1‏ على ذلك المسار لإيقاف المسار الرئيسي حتى تعود الطريقة 
اة وفي فيجول بايزيك 2005 والنسخة 2 من الفريموورك يوجد الطريقة الساكنة الجديدة اأة4W١۸|ه١‏ عاك تمكنك من وضع 
ectزob Mute‏ في حالة إشارة وانتظار ct‏ عeزطہ‏ ×teںM‏ آخر 


' Signal the first mutex and wait for the second mutex to become signaled. 


Mutex.SignalAndWait (mutexes (0), mutexes (1) ) 


وخلافا لجميع أغراض التزامن التي تم ذكرها حتى الآن يمكن ل كاءعزطه ×ع†ں" أن يرتبط باسم الأمر الذي يعد من أهم المزايا لهذه 
الأغراض فأغراض واءعزط ٥‏ ×عاں"/ التي تمتلك نفس الاسم يمكن مشاركتها عبر العمليات ويمكنك إنشاء تواجد ٥ء‏ هءم| لها كما يلي 


Dim m As New Mutex (False, "mutexname”" ) 
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وإن كان الاسم موجودا سابقا في النظام يحصل المستدعي على مرجع له وإلا سيتم إنشاء اءعزطاه ×عاں" جديد بحيث تمكنك هذه الآلية من 
مشاركة objects‏ ×عMut‏ عبر عدة تطبيقات مختلفة وبهذا تتمكن هذه التطبيقات من مزامنة عمليات الوصول للمصادر المختلفة وقد تم 
اکان اي جد فى ازور د2 وف ل ارك 2005 كك من ار ا كن ف السار اتی که ر 


Dim ownership As Boolean 
Dim m As New Mutex (True, "mutexname", ownership) 
If ownership Then 

' This thread owns the mutex. 


End If 


من الاستخدامات الشائعة ل وع×عاںص لع"ص هم هو تحديد فيما إذا كان التطبيق العامل هو الأول أو الوحيد الذي تم تحميله وإن لم تكن هذه 
الحالة يمكن للتطبيق الخروج مباشرة أو الانتظار حتى تنتهي النسخة الأخرى من مهامها كما في المثال 


Sub Main () 
Dim ownership As Boolean 
Dim m As New Mutex (True, "DemoMutex", ownership) 
If ownership Then 
Console.WriteLlLine ("This app got the ownership of Mutex named DemoMutex") 
Console.WriteLine ("Press ENTER to run another instance of this app") 
Console.ReadLine () 
Process.Start (Assembly.GetExecutingAssembly () .GetName () .CodeBase) 
Else 
Console.WriteLlLine ("This app is waiting to get ownership of Mutex named 
DemoMutex"™) 
m.WaitOne () 
ERG ZE 
' Perform the task here. 


Console.WriteLine ("Press ENTER to release ownership of the mutex") 
Console.ReadLine () 

m.ReleaseMutex () 

End Sub 


والطريقة الساكنة ع |ااءأ×٤‏ "هم0 جديدة أيضا في الفريموورك 2 وتقدم طريقة أخرى لفتح ×عاں" على مستوى النظام إdعصه"‏ 
system-wide Mutex object‏ وبعكس باني ال ×ع†ں" تمكنك هذه الطريقة من تحديد درجة التحكم التي تريدها على ال ×مMut‏ 


TEY 

' Request a mutex with the right to wait for it and to release it. 
Dim rights As MutexRights = MutexRights.Synchronize Or MutexRights.Modify 
Dim m As Mutex = Mutex.OpenExisting ("mutexname", rights) 


' Use the mutex her 


Catch ex As WaitHandleCannotBeOpenedException 
' The specified object doesn't exist. 
Catch ex As UnauthorizedAccessException 
' The specified object exists, but current user doesn't have the 
' necessary access rights. 
Catch ex As IOException 
'"' A Win32 error has occurred. 
End Try 


وفي فيجول بايزيك 2005 والفريموورك 2 تظهر الميزة الجديدة الأهم في النوع ×ه ا وهي إمكانية الوصول لقوائم التحكم بالوصول 
access control lists (ACLs)‏ في illمgذج‏ عبر llئغرض System .Security.AccessControl.MutexSecurity object‏ حیث 
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یمکنك تحدید ۸٣1‏ عندما تنشئ غرض ×ع†ں ۷ جدید مستخدما lلÙطرڍڌة JlJ Jوصحلل GetAccessContro|l‏ غرض MutexSecurity‏ 
المرتبط ب ×ع†ں ۷ محدد وتطبیق ۸٣1‏ جدید باستخدام ال¦طرıةڌة SetAccessControl‏ 


Dim ownership As Boolean 
Dim m As New Mutex (True, "mutexname", ownership) 
If Not ownership Then 
' Determine who is the owner of the mutex. 
Dim mutexSec As MutexSecurity = m.GetAccessControl () 
Dim account As NTAccount = DirectCast (mutexSec.GetOwner( _ 
GetType (NTAccount) ), NTAccount) 
Console.WritelLine ("Mutex is owned by {0}", account) 
End If 


The Semaphore Type 

تقدم الفريموورك 2 و فيجول بايزيك دوت نیت نوعا جدیدا وهو eضty Semaphore‏ الذي yرتjs‏ leذ” Win32 semaphore‏ 
tءهزطه‏ وخلافا لبقية أغراض المسارات الموجودة في المكتبة طامعءمم فهذا النوع تم تعريفه في المكتبة |ا١.٠اءلء‏ وهو يستخدم عندما 
تريد تحديد حد أقصى (عدد )١‏ من المسارات التي يمكن تنفيذها في جزء معين من الكود أو للوصول إلى مصدر معين ويمتلك عددا ابتدائيا 
وعددا أقصى ويجب عليك تمرير هذه القيم لبانيه 


' A semaphore that has an initial count of 1 and a maximum count of 2. 


Dim sem As New Semaphore (l1, 2) 


يحاول المسار أخذ ملكية ال ٠إ0طمةم”ءء‏ باستدعاء الطريقة ۷0٠‏ وإن كان العدد الحالي أكبر من الصفر يتم إنقاصه وتعود الطريقة 
مباشرة وإلا تنتظر حتى یحرر مسار آخر semaphore‏ أو إنقضاء الوقت المحدد بالمحدد الاختياري ويحرر المسار semaphore‏ 
باستدعاء الطريقة مءهم|مR‏ مما يزيد العدد بمقدار 1 أو بقيمة محددة ويعيد قيمة العدد السابق 


a 


Dim sem As New Semaphore (2, 2) 

Next statement brings count from 2 to 1. 
sem.WaitOne () 

' Next statement brings count from 1 to 2. 
sem. Release () 

' Next statement attempts to bring count from 2 to 3, but 
throws a SemaphoreFullException. 

sem. Release () 


وبشکل أساسي ستستخدم الغرض las Semaphore‏ يلي 


' Initial count is initially equal to max count. 


Dim sem2 As New Semaphore (2, 2) 


Sub Semaphore Example () 
' Wait until a resource becomes available. 
sem2.WaitOne () 
' Enter the synchronized section. 
' Exit the synchronized section, and release the resourc 
sem2.Release () 
End Sub 
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تذکر دوما استخدام الكتلة Try...Finally‏ للتأكد من أن ال semaphore‏ قد تم تحریرہ حتی لو حدث استثناء ما وتماما کال وم×عاںم یمکن 
ل semaphores‏ امتلاك اسم ومشاركته عبر العمليات وعندما تحاول إنشاء غرض ۸٥۲٤۴5‏ مھ ٣ءء‏ موجود سابقا یتم تجاهل العدد والحد 


م 


الاقصى 


Dim ownership As Boolean 
Dim sem3 As New Semaphore (2, 2, "semaphoreName", ownership) 
If ownership Then 

' Current thread has the ownership of the semaphore. 


End If 


ويدعم الغرض ١۲٥۸مة‏ "ه5 أيضا ال وا٣۸‏ التي يمكن تمرير ها للباني حيث تتم القراءة بواسطة الطريقة |هإ٤"هZ٣ءءعع‏ ۸م والتعديل 
بواسطة الطريقة ا0٣٣‏ ه٣٤‏ ءءعءء ۸ه ومن الضروري أن تلاحظ أن النوع ×عاں" والنوع ١٠۴مطمةص‏ ء5 تتم وراتتهما من الفئة الأساسية 
WaitHandle‏ لذا یمکن تمریر هما كمحددات للطرائa‏ iSlullة laa WaitHandle gill SignalAndWait sı WaitAll ı WaitAny‏ 
يمكنك من مزامنة المصادر بسهولة والتي تكون محمية بواسطة أيا من هذه الأغراض كما في الكود 


' Wait until two mutexes, two semaphores, and one event object become signaled. 
Dim waitHandles() As WaitHandle = {mutex1l, mutex2, sem1l, sem2, event1} 
WaitHandle.WaitAll (waitHandles) 


The ReaderWriterLock Type 

العديد من المصادر في العالم الحقيقي يمكن إما القراءة منها أو الكتابة إليها وهي تدعم في الغالب إما مجموعة قراءات متعددة أو 

عملية كتابة وحيدة يتم تنفيذها في لحظة معينة فمثلا يمكن لعدة عملاء القراءة من ملف بيانات أو جدول في قاعدة بيانات ولكن إن تمت الكتابة 
للملف أو الجدول فلا يمكن حدوث أي عمليات قراءة أو كتابة على ذلك المصدر حيث يمكنك تعريف قفلا لكتابة واحدة أو عدة قراءات بدلالة 
الغرض )ع ٥‏ امامل Rea‏ واستخدام هذا الغرض يعتبر رؤية إلى الأمام فكل المسارات التي تريد استخدام مصدر معين يجب عليها 
استخدام نفس الغرض )ع 0ا۲ع|٣‏ مه هم8 وقبل محاولة القيام بأي عملية على ذلك المصدر يجب على المسار استدعاء إما الطريقة 
AcquireReaderLock‏ أو الطريقة )ع ما ع†i Acquire Wr‏ وذلك اعتمادا على العملية التي يتم تنفيذها وهذه الطرائق تقوم بإيقاف المسار 
الحالي حتى يتم الحصول على ذلك المصدر وأخيرا على المسار استدعاء الطريقة ockاReleaseReader‏ أو الطريقة 
ReleaseWriterLock‏ عندما تنهي عملية القراءة أو الكتابة على ذلك المصدر والمتال التالي يقوم بإنشاء 10 مسارات تقوم بعملية قراءة أو 
كتابة على مصدر مشترك 


Dim rwl As New ReaderWriterLock () 
Dim rnd As New Random () 


Sub TestReaderWriterLock () 
For i As Integer = 0 To 9 
Dim t As New Thread(AddressOf ReaderWriterlLock_ Task) 
te. SEAEE(L) 
Next 


End Sub 


Sub ReaderWriterLock Task (ByVal obj As Object) 
Dim n As Integer = CInt (obj) 
' Perform 10 read or write operations. (Reads are more frequent.) 
For i As Integer = 1 To 10 

If rnd.NextDouble < 0.8 Then 
' Attempt a read operation. 
rwl.AcquireReaderLock (Timeout.Infinite) 
Console.WritelLine ("Thread #{0} is reading", n) 
Thread.Sleep (300) 
Console.WritelLine ("Thread #{0} completed the read operation", Nn) 
rwl.ReleaseReaderLock () 

Else 
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' Attempt a write operation. 
rwl.AcquireWriterLock (Timeout. Infinite) 
Console.WriteLlLine ("Thread #{0} is writing", n) 
Thread.Sleep (300) 
Console.WritelLine ("Thread #{0} completed the write operation", Nn) 
rwl.ReleaseWriterLock () 
End If 
Next 
End Sub 


وعندما تشغل هذا الكود سترى أن عدة مسارات يمكنها القراءة بنفس الوقت والمسار الذي يقوم بالكتابة يوقف جميع المسارات الأخرى ويمكن 
للطريقتاj Acquire ReaderLock‏ و Acquire WriterLock‏ أخذ محدد عبارة عن زمن انتهاء timeout‏ وذلك بقيمة من النوع 
٣ةمكهnصiا‏ أو بعدد من الميللي ثانية ويمكنك اختبار فيما إذا تم الحصول على القفل بنجاح باستخدام الغخصlئûصض lsReaderlockHeld‏ و 
|W riterLockHeld‏ القابلة للقراءة فقط إذا مررت قيمة غير Timeout.|nfi nite‏ 


' Attempt to acquire a reader lock for no longer than 1 second. 
rwl.AcquireWriterLock (1000) 
If rwl.IsWriterLlLockHeld Then 

' The thread has a writer lock on the resource. 


End If 


والمسار الذي يمتلك قفل القراءة يمكنه الترقية إلى قفل للكتابة باستدعاء الطريقة )ع مااع † | 0W‏ اeهdمraىمpل‏ والعودة ثانية لوضع القراءة 
باستخدام الطريقة ow ngrade-From Wri † er] 0c)‏ والشئ الرائع بخصوص الأغراض )ع هاا عامل Rea‏ هي أنها أغراض خفيفة 
بحيث يمكن استخدامها عددا كبيرا من المرات دون أن تؤّثر على الأداء بشكل ملحوظ وبما أن الطرائق AcquireReaderLock‏ و 
iter lock)‏ uireWوc‏ تأخذان وقت انتهاء فالتطبيق المصمم بشكل جيد يجب أن لا يعاني من أقفال ميتة ومع ذلك يمكن حصول حالة قفل 
ميت عندما يكون مساران ينتظران مصدرا محجوزا من قبل مسار لا يقوم بتحريره حتى انتهاء العملية الجارية 


The Interlocked Type 
يزودنا النوع ckedداnter!ا بطريقة للقيام بعمليات دقيقة لزيادة أو إنقاص قيمة متغير مشترك وهذه الفئة تعرض فقط طرائق‎ 
ساكنة (لا نحتسب هنا ما تمت وراثته من ء#زط0) انظر إلى الكود التالي‎ 


' Increment and Decrement methods work with 32-bit and 64-bit integers. 
Dim lockCounter As Integer 


' Increment the counter and execute some code if its previous value was zero. 
If Interlocked. Increment (lockCounter) = 1 Then 


BEBQd LÊ 
' Decrement the shared counter. 
Interlocked. Decrement (lockCounter) 


والطريقة ۸50 جديدة في الفريموورك 2 وهي تمكنك من زيادة أعداد حقيقية ٣ع‏ "| من عيار 32 أو 64 بت بقيمة محددة 


If Interlocked.Add (lockCounter, 2) <= 10 Then... 


وتوفر الفئة لع )هام١٠‏ طريقتان ساكنتان أخريان الطريقة مع هطء×»ع التي تمكنك من تحديد قيمة من اختيارك إلى متغيرات من النوع 
Integer‏ أو Long‏ أو Single‏ أو eاDoub‏ أو ntPtrا‏ أو ectزطO‏ وتعيد القيمة السابقة وبما أن لها نسخة محملة زائدا تأخذ محددا من 
النوع زط0 لهذا يمكنك أن تجعلها تعمل لأي نوع مرجعي كالنوع ع" آ٣‏ كما في المثال 
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Dim s1 As String E 
Dim s2 As String = Interlocked.Exchange (s1, "abc") 
Console.WriteLlLine ("s1={0}, s2={1}", s1, 5S2) 


والطريقة مع ة۸ع×۴ مهمه تعمل بأسلوب مشابهة ولكنها تقوم بالتبديل فقط إذا كان موقع الذاكرة مساوي لقيمة محددة يتم تمريرها لها 


The ManualResetEvent, AutoResetEvent, and EventWaitHandle Types 


هذه الفئات الثلاثة تعمل بشكل متشابه Event WaitHandle sy AutoResetEvent s ManualResetEvent‏ والفئة الأخيرة 
هي الفئة الأب للفئتان الأولان وقد تمت إضافتها في الفريموورك 2 على الرغم el AutoResetEvent s ManualResetEvent jÎ ja‏ 
يتم إهمالهما بعد وأثناء العمل يمكنك استبدالهما بالفئة الجديدة عءال٣‏ ه١۸۲۷‏ هع التي تعطيك مزيدا من المرونة عند التعامل. والنوعان 
ManualResetEvent‏ و utoResetEvent‏ مفیدان بشکل خاص عندما ترید إیقاف مسار أو أکثر بشکل مؤقت حتی یخبرنا مسار آخر 
بأنه لا مانع من المتابعة وتستخدمهما لإيقاظ مسار مثل إجراء معالجة الحدث في مسار متوقف ولكن لا تنخدع بوجود "۷ع في أسمائهما 
فلا يمكنك استخدام إجراءات معالجة الحدث التقليدية مع هذه الأغراض. وكائن من أحد هذين النوعين يمكن أن يكون في حالة إشارة أو عدم 
إشارة كعاة١عاك5مل/ءاهمعاك‏ وهذه القيمة لا تملك أي معنى خاص بحيث يمكنك اعتبارها كحالة تشغيل/إيقاف حيث ستمرر الحالة الابتدائية 
للباني وأي مسار يستطيع الوصول لذلك الغرض يمكنه ضبط تلك الحالة إلى 4ء اه عك باستخدام الطريقة م5 أو يستخدم الطريقة موم 
لإعادة الحالة إلى لعاة١عاكمل‏ ويمكن للمسارات الأخرى استخدام الطريقة "٠‏ 0ة للانتظار حتى تصبح في حالة إشارة Qع‏ اه" عاك أو 
حتى انتهاء فترة الانتظار 


' Create an auto reset event object in nonsignaled state. 
Dim are As New AutoResetEvent (False) 

' Create a manual reset event object in signaled state. 
Dim mre As New ManualResetEvent (True) 


والاختلاف الوحيد بين الغرضان Manua|Rese Event‏ و AutoResetEvent‏ هو أن الأخير يعيد ضبط نفسه آليا (إيصبح في حالة عدم 
إشارة d١عاة”عاومل)‏ وذلك مباشرة بعد أن يتم صد المسار عندما تبداً الطريقة ۷۲0۸٥‏ ویوقظ الغرض ٥۸٥٥۲٤۷٥۸۲‏ ں۸ فقط واحد 
من المسارات المنتظرة عندما يصبح في حالة إشارة بينما الغرض ٤۷٥۴۸1‏ ا٥ء‏ ۸|مuمa"‏ يوقظ جميع المسارات المنتظرة ويجب أن یتم 
إعادة ضبطه يدويا إلى حالة عدم إشارة كما هو ظاهر من اسمه وكما ذكر سابقا يمكنك استبدال الغرضين gy ManualResetEvent‏ 
AutoResetEvent‏ بالغرض eالEveniWai1H12d‏ کما یظھر بالکود التالي 


' These statements are equivalent to the previous code example. 
Dim are As New EventWaitHandle (False, EventResetMode.AutoReset) 
Dim mre As New EventWaitHandle (True, EventResetMode.ManualReset) 


وتكون أغراض ال "هع مفيدة خاصة في حالات المنتج والمستهلك فربما يكون لديك إجراء وحيد في مسار يقوم بتقييم بعض البيانات أو 
بالقراءة من القرص أو منفذ تسلسلي أو غيرها ويستدعي الطريقة ام5 على غرض متزامن فيتم إعادة تشغيل مسار أو أكثر لمعالجة تلك 
البيانات ويجب عليك استخدام الغرض Auto Resء†٤ ۷e۸‏ أو الغرض ع ال a112۸‏ ventWع‏ مع الخيار Aut0 Rest‏ إذا كان هناك مسار 
مستهلك وحيد سيقوم بمعالجة تلك البيانات كما يجب عليك استخدام lئغرض ga Event WaitHandle ضرغll şİ ManualResetEvent‏ 
الخيار ٥ء٥‏ ua|۸ںمه"‏ إذا كان يجب معالجة البيانات باستخدام جميع المسارات المستهلكة. 


رفن فال الفالی كيت بك أن كر نفك د اراك منتجة كى معاية الحك حن ملف في عة مطاف فة في شن لر قك لن 
يوجد مسار مستهلك وحيد يقوم بجمع النتائج من تلك المسارات ويستخدم المثال الغرض ٥۸٤‏ ۷٤†عءع‏ ۸ ٥ں‏ لإيقاظ المسار المستهلك عندما 
يتم إضافة اسم ملف جديد للقائمة (ع” ٣ك‏ 1)0۴ءآا ويستخدم أيضا الفئة لع)عهاام†م!| لإدارة عدد المسارات العاملة حتى يعلم المسار 
الرئيسي أنه لم تعد توجد أي بيانات أخرى لاستهلاكها 


' The shared AutoResetEvent object 
Public are As New AutoResetEvent (False) 
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The list where matching filenames should be added 


r f 


Public fileLlist As New List (Of String) () 


The number of running threads 


rı f 


Public searchingThreads As Integer 


'" An object used for locking purposes 


Public lockOb] As New Object () 


Sub TestAutoResetEvent () 


' Search *.zip files in all the subdirectories of C. 


For Each dirname As String In Directory.GetDirectories ("C:\") 


Interlocked. Increment (searchingThreads) 
' Create a new wrapper class, pointing to a subdirectory. 
Dim sf As New FileFinder () 
sf.StartPath = dirname 
sf.SearchPattern = "*.Zzip" 
' Create and run a new thread for that subdirectory only. 
Dim t As New Thread (AddressOf sf.StartSearch) 
t.Start () 
Next 


' Remember how many results we have so far. 


Dim resCount As Integer = 0 

Do While searchingThreads > 0 
' Wait until there are new results. 
are.WaitOne () 


SyncLock lockOb] 
' Display all new results. 


For i As Integer = resCount To filelist.Count - 1 
Console.WriteLlLine(fileLlList (i) ) 
Next 
' Remember that you've displayed these filenames. 
resCount = filelist.Count 
End SyncLock 


Loop 
Console.WritelLine ("") 

Console.WriteLine ("Found {0} files", resCount) 
d Sub 


vu 
Ln 


وكل مسار إجرائي يعمل ضمن غرض ۴|٠۴”‏ مختلف الذي يجب أن يكون قادرا على الوصول إلى متغيرات عامة محددة في الكود 


السا 


بی 


ass FileFinder 
PUBLIC  StartPath AS SEETAG ' The starting search path 
Public SearchPattern As String ' The search pattern 


Sub StartSearch () 
Search (Me.StartPath) 
' Decrease the number of running threads befor xiting. 
Interlocked. Decrement (searchingThreads) 


' Let the consumer know it should check the thread counter. 


are.Set () 
End Sub 


' This recursive procedure does the actual job. 
Sub Search (ByVal path As String) 
' Get all the files that match the search pattern. 


Dim files() As String = Directory.GetFiles (path, SearchPattern) 
' Tf there is at least one file, let the main thread know about it. 


If files IsNot Nothing AndAlso files.Length > 0 Then 
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C1 


Ensure found files are added as an atomic operation. 
SyncLock lockOb] 
' Add all found files. 
filelList.AddRange (files) 
' Let the consumer thread know about the new filenames. 
are. Set () 
End SyncLock 
E 


epeat the search on all subdirectories. 

Each dirname As String In Directory.GetDirectories (path) 
Search (dirname) 

ا 


End Sub 
End Class 


End 


1. R 
For 


Nex 


والنسخة 2 من الفريموورك وفيجول بايزيك 2005 niتخدp EventWaitHandle‏ بدلا عنù gÎ AutoResetEvent‏ 
NanuaResetEvent‏ مما يعطيك ميزة هامة وهي إمكانية إنشاء غرض مسمى على مستوى النظام يمكن مشاركته مع العمليات الأخرى 


والصيغة العامة لباني عاك" ة١n†۷aءvع‏ مشابهة لتلك الخاصة بالفئة Mute×‏ 


Create a system-wide auto reset event that is initially in the signaled state. 
Dim ownership As Boolean 


ventname”", 


كما يمكنك استخدام الطريقة عہ اء¡ ×۴" عم لفتح غرض حدث موجود 


This statement throws a WaitHandleCannotBeOpenedException if the specified 
L doesn't exist, or an UnauthorizedAccessException if the current 
doesn't have the required permissions. 

EventWaitHandle.OpenExisting ("eventname”", 


EventWaitHandleRights.FullControl) 


Dim ewh As New EventWaitHandle (True, EventResetMode.AutoReset, " 
ownership) 

If ownership Then 
The event object was created by the current thread. 


End If 


۲ 
' even 
' user 
ewh = 


والميزة الأخرى الهامة في أغراض الأحداث ءاءعزطه "٠۷ء‏ في الفريموورك 2 هي دعم و1٣۸‏ باستخدام الÛطرlئJ SetAccessControl‏ 
و اAccessContro et‏ والتي تأخذ وتعید کائن من النوع tyڼWaitHandleSecur Event‏ حيث يمكنك استخدامه بنفس طریقة استخدام 


مثيلاتها في الغرض ×ه†ں 1 وأغراض الدوت نيت الأخرى التي تدعم وا٤۸‏ 
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كيفية تنفيذ عملية في مسار آخر وإظهار النتيجة في التحكمات على النموذج 


سألني أحد الإخوة عن مشكلة واجهته عند تنفيذ عملية معينة على مسار آخر ومحاواته إظهار النتيجة على النموذج فإذا افترضنا أنه 
لدينا إجراء بسيطا ينفذ عملية ما ونفذناه على مسار آخر لهء۲ط] غير المسار الرئيسي الذي تنفذ عليه عمليات البرنامج وأن ذلك الإجراء 
يحتوي على كود يقوم بضبط قيمة الخاصية 1٠×‏ لصندوق نصوص على النموذج فعند تنفيذ الكود ستحصل على رسالة خطاً 


Cross-thread operation not valid: Control 'TextBox1' accessed from a thread other than the thread it was 
created on. 


وإذا أردت توليد رسالة الخطأ السابق بنفسك أنشئ مشروعا جديدا ضع عليه صندوق نصوص وزر واجعل كود النموذج مطابقا لما يلي تم 
قم بتشغيل البرنامج وستحصل على رسالة الخطاً السابقة 


Imports System. Threading 
PUGLILE Cla358 Forml 
Private SU Büuttonl CILCK(). Handles Buttonl.CILIiek 


Dim th As New Thread (AddressOf DoLongOperation) 
ERMESESAEE0 


End Sub 
Private Sub DoLongOperation () 


Me.TextBox1.Text = "Something" 
ERA Sub 


End Class 


الحل الذي أقوم باستخدامه عادة لحل هكذا مشكلة هو إنشاء فئة ووهاع تقوم بتنفيذ العملية على المسار الثاني وتعيد النتيجة للنموذج من خلال 
إطلاق حدث يعيد القيم الناتجة عن عملية المعالجة للنموذج فربما لا تكون هذه هي الطريقة الأفضل في جميع الحالات ولكنها طريقتي على 
كل حال وسأقوم بشرحها ثم يمكننا النقاش وتجربة أية حلول أخرى لتجاوز هذه المشكلة وسأطرحها عبر تنفيذ عداد بسيط للوقت فربما 
ستستخدم أنت هذه الطريقة للبحث عن ملفات أو تنفيذ عمليات معالجة معقدة تستغرق وقتا طويلا ولكنني هنا اخترت مثالا يعيد قيمة وحيدة 
بحيث يكون بسيطا قدر الإمكان 


الآن سأقوم بإضافة فة ها٣‏ جديد للمشروع يتم عبره تنفيذ العملية الطويلة التي نريد تنفيذها على مسار آخر وسأقوم بتسميتها 
MyStopW atch‏ في الوقت الحالي ويما أننا سنتعامل مع المسارات سنحتاج للاستيراد التالي قبل تعريف الفئة 


Imports System. Threading 


سأآقوم بتعريف فئة فرعية داخل الفنة MyStop Wah‏ باسم Return Value EventArgs‏ سأستخدمها لاحقا لإطلاق الحدث الذي سيعيد 
النتيجة إلى النموذج وهذه يجب أن تكون موروتة من الفئة ءع۲ "هع بما أنها فئة خاصة بإعادة قيم الحدث الذي سيتم إطلاقه وسأعرف 
فيها خاصية وحيدة ع ها۷ Ru‏ ستكون للقراءة فقط بما أننا لن نحتاج لضبط قيمتها إلا من خلال باني الفئة تعيد القيمة وباني للفئة يمرر 
له قيمة نصية وحيدة تمثل القيمة المعادة وبهذا یکون کود الفنُة s‏ ع E۷٥1۸‏ ع Ret ur ٣۷ا u‏ كما يلي 


Public Class ReturnValueEventArgs 
Inherits EventArgs 


PEIvVatê®: _RetUrnVaLlüê A§ SEEING 

Public ReadOnly Property ReturnVlaue() As String 
GEE 
Return _ReturnValue 

End Get 

End Property 
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Public Sub New (ByVal RetVal As String) 
_ReturnValue = RetVal 
ERG Sub 


End Class 


ضمن كود الفنة ةا Wمه†MyS‏ وبعد نهاية تعريف الفئة ءع۲ ٤۷٥٣۲۸‏ عاج Return۷‏ نقوم بتعريف الحدث الذي سنقوم بإطلاقه ليعيد 
القيمة إلى النموذج ومن أجل الالتزام بتنسیق الأحداث کما نری في التحكمات والفئات قمنا بتعريف الفئة ReturnValueEventArgs‏ وبهذا 
يكون تعريف الحدث في قسم تعريف المتغيرات العامة في الفنة امه tكMy‏ كما يلي 


Public Event ReturnValue (ByVal sender As Object, ByVal e As ReturnValueEventArgs) 
کما يلي‎ St وهو من النوع هسمه‎ Myr ime باسم‎ Mysto pW 2-1 عرف متغیرا عاما على مستوی الفنة‎ 
Private _MyTimer As Stopwatch 


حيث سنستخدمه كعداد للوقت من أجل الحصول على قيمة ليتم إعادتها ضمن إجراء المعالجة الذي سيتم تتفيذه على المسار الآخر بحيث 
سيكون كود إجراء المعالجة الذي سينفذ على المسار الثاني كما يلي 


Private Sub DoProcessing () 
Do 
Dim Ret = MyTimer.Elapsed.Hours & ":" & 
_MyTimer.Elapsed.Minutes & ":" & 
_MyTimer.Elapsed.Seconds & ":" & 
_MyTimer.Elapsed.Milliseconds 


RaiseEvent ReturnValue (Me, New ReturnValueEventArgs (Ret) ) 
Loop UnEILL _MyTimer:lsRünning = False 
ER@ SU 


حيث وضعنا قيمة العداد في متغير نصي 1ء8 ثم استخدمنا الدالة خ" مع عءاجR‏ لإطلاق الحدث عمںاة۷٣۲ں†هR‏ حيث القيمة ٠‏ التي تشير 
للفئة الحالية كبارمتر أول للحدث Return Value‏ يكون المحدد الثاني للحدث عبارة عن كيان ce‏ nstanا‏ من الفئة 
Return alueEventAr gs‏ التي نمرر لبانیھا المتغیر R٤‏ الذي يشكل القيمة المعادة من الخاصية aueاV Return‏ العائدة للفئة 
sئValueEventArg Return‏ عندما سنستقبلھا من النموذج 


وسيكون لدينا إجراء لبدء تنفيذ المؤقت على المسار الثاني باسم |٥۲‏ آ٣2†؟‏ بحيث يكون كوده على الشكل 


PUBDLLE Sub: StartTimer() 
_MyTimer.Reset () 
_MyTimer.Start () 


Dim th As New Thread (AddressOf DoProcessing) 
ER. SEA E) 
ERG Süb 


حيث قمنا بتصفير العداد وبدئه ثم عرفنا مسارا جديدا ۴ا يقوم بتنفيذ الإجرlء DoProcessing‏ ومن أجل إيقاف العداد سنحتاج لإجراء 
Stop ime‏ یکون کودہ علی الشکل 


Public Sub StopTimer () 
_MyTimer.Stop () 
Ed Sub 
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وبهذا تكون قد اكتملت فئتنا التي ستقوم بعملية المعالجة على مسار ثاني وتعيد قيمة نصية سنقوم بعرضها في صندوق نصوص لاحقا ويكون 


بذلك الكود الكامل لهذه الفئة 


Imports System. Threading 


Public Class MyStopWtach 


Public Class ReturnValueEventArgs 
Inherits EventArgs 


FEFIYatê. _RetürnValüe A5 SEEING 


Public ReadOnly Property ReturnVlaue() As String 


& 
& 


Gel 

RetUen. RetülrnValiüêe 
ER Gê 
End Property 


Public Sub New (ByVal RetVal As String) 
_ ReturnValue = RetVal 
ERO SUB 


ERM CLASS 


Public Event ReturnValue (ByVal sender As Object, 
ByVal e As ReturnValueEventArgs) 


Private _MyTimer As New Stopwatch 


PUBLICS SUB SEAEFETIMEE() 
_MyTimer.Reset () 
_MyTimer.Start () 


Dim th As New Thread (AddressOf DoProcessing) 
th.Start () 
ERAQ Sub 


Private Sub DoProcessing () 
Do 
Dim Ret = MyTimer.Elapsed.Hours & ":" & 
_MyTimer.Elapsed.Minutes & ":" 
_MyTimer.Elapsed.Seconds & ":" 
_MyTimer.Elapsed.Milliseconds 


RaiseEvent ReturnValue (Me, New ReturnValueEventArgs (Ret) ) 


EOD UREILL . MyTimer: IsRunning = Falsê 
ERA Sib 


Public Sub StopTimer () 
_MyTimer.Stop () 
ERG Sub 


CLS 


نعود للنموذج الخاص بالمشروع الذي نحتاج لوجود صندوق نصوص وزرين عليه للقيام بتجربة الفئة الجديدة حيث سنقوم بتعريف متغير 
خاص على مستوی النموذج باسم My" e۲‏ من نوع فئتنا c1‏ ھ†W‏ مه tكMy‏ وباستخدام العبارة یا" ع۷٤۸ Wİ‏ التي ستمکننا من استقبال 


الأحداث التي ستطلقها فئتنا 


Private WithEvents MyTimer As New MyStopWtach 
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وسيكون كود الزرين من أجل بدء وإيقاف المؤقت باستخدام فئتنا السابقة كما يلي 


Frivate Süb, BütEONnL Click() Handles BUEËEONn1:CLILEK 
MyTimer.StartTimer () 
E SU 


El 


PEFIivVatêe SUb Bütton2 Click() Handles BüUttonZ2:CLIck 
MyTimer.StopTimer () 
Ad Sub 


ا 


الآن أنشئ معالج للحدث عبuةا۷‏ نم العائد للمتغير ٣"٥١‏ 11ر واجعله بحيث يكون الكود فيه كالتالي ثم جرب تشغيل البرنامج 
فستحصل على رسالة مشابهة للرسالة في بداية المقال 


FFivate SUB MyTimer RetürnValüe (ByVal sender As Object, _ 
ByVal e As MyStopWtach.ReturnValueEventArgs) Handles MyTimer.ReturnValue 


Me.TextBox1.Text = e.ReturnVlaue 


ENO SU 


ولمعالجة هذه النقطة والتخلص من رسالة الخطاً سنحتاج لعمJ My rimer_ReturnValue ءlرجڼںږإÛ |[nvoke‏ حتى نستطیع استخدام القيم 
المعادة منه في ضبط قيم خصائص الأتحكمات على النموذج وفي حالتنا هنا الخاصية 1٥×‏ لصندرق النصوص والعملية ببساطة ستتم كما يلي 


في قسم المتغيرات العامة في النموذج سنقوم بتعريف إجراء مفوض ماهعء ام0 يحمل نفس توقيع الۈجرlء MyTimer_Retur Value‏ 
وبدون جسم للإجراء كما يلي 


Private Delegate SUb MyTimer ReturnValüeDelegate: (ByVal sender As Object, _| 
ByVal e As MyStopWtach.ReturnValueEventArgs) 


ويكون الكود الذي سينفذ المهمة بصورة صحيحة كما يلي 


Private Sub. MyTimer ReturnVailue (ByVal sender AS Opject, _ 
ByVal e As MyStopWtach.ReturnValueEventArgs) Handles MyTimer.ReturnValue 


If Me.TextBox1.InvokeRequired = True Then 
Dim d As New MyTimer ReturnValueDelegate (AddressOf MyTimer ReturnValue) 
Me.Invoke (d, New Object () {sender, e}) 

ElLsê 


Me.TextBox1.Text = e.ReturnVlaue 
ERG TE 
ERG SUD 


حيث فحصنا قيمة الخاصية القابلة للقراءة فقط ١ء‏ اu‏ »۸ء )"| لصندوق النصوص فإن كان مءءاه۴ نقوم بضبط قيمة الخاصية ×16 
باستخدام القيمة المعادة من الحدث مباشرة بدون أي مشاكل وإن كانت مں 1٣‏ عندها لن نستطيع ضبط القيمة مباشرة كي لا نحصل على الخطاً 
الوارد في بداية المقال عندها سنعرف متغير ل من نوع الإجراء المفوض e‌†imer_ReturnValueDelegaا My‏ ونمرر له عنوان 
الإجراء My rimer_Return Value‏ ثم استخدمنا الطريقة م0kام!‏ العائدة للنموذج لتنفيذ نسخة آمنة من الحدث 

My اimer.Return Value‏ تمكننا من ضبط القيم المعادة إلى التحكمات وذلك بتمرير المتغير ل كمحدد أول للخاصية مء |١۷)‏ ويكون 
المحدد الثاني للخاصية |٣۷)‏ هو مصفوفة من النوع c٤‏ ٥زط0‏ یتم تمرير محددات الإجراء ع My rime r_Retu r۸۷ u‏ کعناصر لھا 


وفيما يلي الكود الكامل للنموذج 
Public Class Forml‏ 


PFivaté Delegate Sub MyTimer RetürnValüeDelegate (ByVal sender As Object, 
ByVal e As MyStopWtach.ReturnValueEventArgs) 
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mvents MyTimer As New MyStopWtach 


PFivate Süb. BütEoOoNnlL Click() Handles Button1l.CLIcCK 
MyTimer.StartTimer () 


Private Sub Button2 Click() Handles Button2.Click 
MyTimer.StopTimer () 


PEFivatê SüUb MyTimer RetürnValüe(BŞVal sender As Object, _ 
ByVal e As MyStopWtach.ReturnValueEventArgs) Handles _ 


Private With 


ERG. SUD 


ERAQ <. SUS 


MyTimer.ReturnValue 


If Me.TextBox1.InvokeRequired = True Then 
Dim d As New MyTimer ReturnValueDelegate( _ 
AddressOf MyTimer ReturnValue) 


Me.Invoke (d, New Object () {sender, e}) 


Me.TextBox1.Text = e.ReturnVlaue 
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Else 


ERG. TE 
BHO SUB 


End Class 


القسم العاشر ت المجمعات والمشاريع 


ويضم المواضيع التالية: 
مجمعات الدوت ıiٽ Dot net Assemblies‏ 
ه المجمعات ذات اÎJسlnء‏ llتقıgة strong Named Assemblies‏ 
Friend Assemblies e‏ 
ه مترجم سطر الأوامر الخاص بفيجول بايزيك 2008 
م التعامل مع محددات سط¦طر اJأوامر CommandlineArgs‏ 
٠‏ الإعدادات من وجهة نظر اعم. ۷8 من 2002 حتى 2005 
ApplicationEvents ®‏ 
ه كيفية استخدام ملف التعريف الخاص بالتطبيق لاستهداف نسخة معينة من 
الفريموورك 
کیف نقوم بتوزیع مشرو عنا باستخدام تقنیة عce 0٥‏ )icاC‏ 
ه نشر مشروعك ڊwlتخlم Setup Wizard‏ 
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Dot net Assemblies ٽıi مجمعات الدوت‎ 


ما هو المجمع 

المجمع هو وحدة توزيع ويكون في أغلب الحالات عبارة عن ملف وهو يمثل الكود المترجم للتطبيق فأي كود سوف تكتبه سيتم 

تخزينه في النهاية في ملف ×٤‏ إن كان تطبيقا أو ملف ا01 إن كان مكتبة أو توسعا ويحتوي المجمع على كل ما يحتاجه الدوت نيت لتحميل 
وتشغيل التطبيق. 


والمجمعات تكون عامة ااںم أو خاصة اه۷ ۴. فالمجمعات الخاصة تكون مصممة للاستخدام ضمن تطبيق مفرد فقط وإن لم يكن هناك 
أية مكتبات 011 فالمجمع التنفيذي E×٤‏ يكون التطبيق وتظهر المجمعات الخاصة في المجلد الخاص بها - مجلد التنصيب الخاص بالتطبيق 
أو المكتبة - ويمكنك تشغيل مجمعين خاصين بنفس الوقت بدون أن يزعج أحدهما الآخر ويكون هذا صحيحا طالما أن كل مجمع يستخدم 
نفس التركيبة من مجالات الأسماء والفئات من أجل العناصر المكودة فيه فإن امتلك تطبيقان مختلفان فئة باسم 

Windows Appاication 1.Claَs1‏ فلن یحدث تداخل بینهما عندما يتم تشغيل كلا التطبيقين لأنهما خاصين فالخاص يعني خاص. 


وصممت المجمعات العامة icااںم‏ ليتم مشاركتها عبر عدة تطبيقات دوت نيت وتختلف المجمعات العامة عن الخاصة بنقطتين: 


ه المجمعات العامة تمتلك دوما أسماء قوية وعمصة. ع١‏ ٥٣ء‏ إضافة إلى توقيع رقمي مشفر مرتبط بالمجمع وذلك لضمان أنه أتى 
من ذلك الموزع أو المصدر المسمى كما يمكن للمجمعات الخاصة أن تمتلك اسما قويا ولكن ذلك ليس ضروريا ويبنى الاسم القوى 
من أجل نسخة المجمع ورقم الإصدار ومعلومات الثقافة والتوقيع الرقمي وتتضمن الفريموورك أداة لتوليد الأسماء القوية ع×ع.۸ء 
تساعدنا في هذه العملية ويتضمن فيجول ستوديو خيارا يمكنك من إضافة التوقيع الرقمي خلال عملية الترجمة 

ه وتخزن المجمعات العامة في المخزن العام للمجمعات 6۸٤٥‏ عادة ولكن ذلك لا يمنعك من وضع نسخة من مكوناتك المشتركة في 
مجلد التنصيب الخاص بتطبيقك ولن تصبح هذه المجمعات مشتركة بحق إلا عندما يتم وضعها داخل ال 6۸٤٥0‏ ويتواجد ال 6۸٤‏ 
في مجلد مسمى راط" عءءه داخل مجلد الويندوز وطالما أنه تمت إضافة اسم قوي لمجمع الدوت نيت يمكنك إضافته إلى ال 6۸٤‏ 
إما بنسخه للمجلد راط ٥۶۶ھ‏ أو باستخدام الأداة gacuti|.exe‏ 


كما فح لك ارت تيت فيب عة إشدار ات من نالعج فى شن الفط وا اء ج هت ارات بقن ارك من كاذل 

عملية تدعی ع اهاوه وهذا ينطبق على التطبيقات ×٤‏ والمكتبات 011 والمجمعات الخاصة والمشتركة في ال 6۸٤٥‏ ولمعاينة ذلك افتح 
مستكشف ويندوز وانتقل للمجلد راطا" عءج داخل مجلد الويندوز وبتصفح الملفات بعد فرزها حسب اسم المجمع - يظهر ذلك بشكل أوضح 
عند تنصيب الفريموورك 3.5 - فعند استعراض الملفات الموجودة هناك ستجد أن بعض الملفات مكررة أكثر من مرة كل مرة برقم إصدار 


ومع أنه في العادة هناك علاقة واحد إلى واحد بين الملفات والمجمعات إلا أنه هناك العديد من الحالات التي يكون فيها المجمع مكون من عدة 
ملفات وتقوم الدوت نيت بمراقبة هذه الملفات بشكل مستمر فإن طرأ أي تعديل عليها فسوف يتم إعلامك بذلك. 


ماذا يوجد داخل المجمع 

الملف ×٤‏ أو اا0 للمجمع هو ملف تنفيذ محمول ع وهذه الملفات تمتلك نفس الصيغة للملفات ذات نفس النوع والغير معتمدة على 
الفريموورك وما يجعل ملفات ع۴ مختلفة هي تلك الأشياء الإضافية التي تجدها بداخلها وككلمة عامة فالمجمع هو تجميع عدة أجزاء مختلفة 
في وحدة واحدة وتلك الأجزاء المختلفة في مجمعات الدوت نيت هي مصممة للدوت نيت خصيصا ويتكون ملف ع٥‏ من ثلاثة أقسام رئيسية: 


٠‏ الترويسة :P۴ ۲٥۵٥۲‏ وهي مطلوبة لجميع ملفات P۴‏ حيث يحدد هذا القسم موقع الأقسام الأخرى للملف 

ه قسم 1| 5: وهو الكود الفعلي المرتبط بالمجمع مخزن بشكل نصف مترجم بحيث يصبح بلغة مايكروسوفت الوسيطة ا51 ولكن 
معالجات اعام| و ۸۷0 في حاسوبك لا تستطيع معالجة كود ااك مباشرة ولهذا أتت الفريموورك متضمنة مترجم تماما في 
الوقت ءاام ۳ه) ۲ال الذي يقوم بالترجمة الآنية للغة 1511 إلى كود يفهمه المعالج 

٠ه‏ قسم هة لهه" كل تلك التفاصيل الإضافية التي يحتاجها الدوت نيت لمعرفة مجمعك تخزن في هذا القسم الأساسي حيث أن 
بعض هذه العناصر عند جمعها تشكل tءعf N١‏ رااصعءءA‏ وهي نوع من الوثائق تصف المجمع بشكل عام للعالم حيث تحتوي 
ال وةل هة†م" على العناصر التالية: - اسم المجمع - رقم الإصدار - محتويات الاسم القوي - إعدادات الثقافة واللغة - سرد 
أسماء ملفات المجمع - معلومات الأنواع المصدرة - المراجع المرتبطة - معلومات الأنواع الداخلية - 


248 


٠‏ وال اsعMasinf‏ هي الجزء الأهم من ال ةل ه†م" وهي التعبير العام عن المجمع فعندما تنظر إلى ال ع۴" أ ستعلم بلمحة 
على ماذا يحتوي المجمع وما هي متطاباته قبل أن تقوم بتحميله وتشغيله. 


وحتى قبل وجود الدوت نيت كانت المكتبات والملفات التنفيذية تحتوي على بعض ال ةلةم" ولكنها لم تكن تستخدم لتنسيق الوصول بين 
مختلف أقسام التطبيق ولا تقوم بتنظيم المعلومات الأساسية والموسعة وجاءت ال ٧t2‏ في الدوت نيت لتضم جميع هذه العناصر 
ووجود كلا من ال M5811‏ و ال Metadata‏ في کل مجمع يجعل هذه الملفات قابلة للقراءة والفهم باستخدام الأدوات المناسيبة الأمر الذي ولد 
مشكلة فالشركات تستثمر الكثير من الوقت والمال في مجهود تطوير التطبيقات ولا ترغب بحصول أي نوع من الهندسة العكسية على ملفاتهم 
واستخلاص أكوادهم وأسرارهم. ولمنع القراءة العشوائية لمجمعات الدوت نيت قدمت مايكروسوفت وشركاءها الآخرين برمجيات 
٣fuscatoطه‏ التي تقوم بخلط محتويات المجمع الأمر الذي يصعب على البشر القراءة والفهم ولكن ذلك لا يشكل أية صعوبة بالنسبة للدوت 
نيت فريموورك. 
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strong Named Assemblies ةgقئl‎ ءlaصألا المجمعات ذات‎ 


يتضمن المجمع ذو الاسم القوي 1١ء٠۴"‏ اج تحدد الملفات التي يحتويها المجمع بالإضافة إلى توقيع رقمي يمكن لبرنامج آخر التحقق منه 
وذلك للتأكد من صحة التوقيع الرقمي الأمر الذي يوؤكد أن المجمع لم يتم التلاعب به منذ إنشائه. ولكن ذلك لا يضمن بالتأكيد أن المجمع هو 
نفس ما تظنه فيمكن لمهاجم إنشاء مجمع جديد ثم القيام بتوقيعه رقميا وإن تأكدت من التوقيع يمكنك معرفة أن نسخة المهاجم لم يتم العبث بها 
منذ أن تمت كتابتها وأن الفيروسات المحتواة ضمن المجمع هي الفيروسات الأصلية. 


ومع ذلك فتزويد مجمعاتك بأسماء قوية يضمن هويتها وهي تضمن بوسيلة ما أن هذا الكود يمكن الوثوق به ومن جهة أخرى تضمن الأسماء 
القوية هوية المجمعات بشكل فريد ولكن ذلك لا يضمن بالضرورة أنك قمت بكتابتها ومع ذلك يمكن تحديد قرار الوثوقية بشكل معقول بناء 
على هوية الاسم القوي لوحدها لأنه زودك بأن هذا المجمع معروف جيدا ورغم هذه المشكلة يعتبر التوقيع أفضل من لا شئ. 


لتوقيع مجمع أنشئ مشروع فيجول بيزيك جديد كالعادة وفي مستکشف المشروع ١٥اہام×ع‏ ctھزہم۴‏ انقر نقرا مزودجا على ctمزہPr My‏ 
لفتح خصائص المشروع تم افتح صفحة ع" عاك ثم قم بتحديد الخيار راا" عءءه عطt‏ معاك ثم افتح القائمة المنسدلة الخاصة ب ما۴ إم» 
و اختر >۸٠۷W...<‏ وفي صندوق الحوار الذي يظهر لك اختر الاسم الذي تريده للملف كما يمكنك إدخال كلمة سر بشكل اختياري ثم انقر 
)0. في هذه اللحظة يقوم فيجول ستوديو بإنشاء ملف ره» يحتوي على جميع المعلومات اللازمة لتوقيع المجمع فعندما تقوم ببناء المجمع 
يستخدم فيجول ستوديو الملف ۷ع لتوقيع المجمع الناتج. 


وعندما يريد أي ملف تنفيذي استخدام المجمع - إن كان مكتبة اا مثلا - يقوم بتحميله وينشئ جداول التهشير ه٣‏ اللازمة ويتأكد من أنها 
تطابق التوقيع وإن لم يكن مطابقا فالبرنامج يفترض أن المجمع قد تم العبث به أو أنه تالف ويرفض استخدامه. 


ويضمن لنا توقيع المجمع أن لا أحد قد قام بالعبث به منذ أن تم إنشاؤه فإن قمت ببناء المجمع بنفسك فهذا يعطيك بعض الاطمئنان أن الكود 
آمن. ومع ذلك إن قام شخص آخر ببناء المجمع ووضعه على الويب فالتوقيع يضمن لك أن المجمع يحتوي على الأصل الذي وضعه الناشر 
ولكنه لا يضمن لك أن ذلك الناشر لم يقم بإدراج فايروس في ذلك المجمع ولا يضمن لك أيضا أن هاكرا ما لم يقم باستبدال المجمع الأصلي 
بنسخة أخرى من توقيعه. فإن قمت بكتابة مجمع تريد مشاركته مع الآخرين يمكنك جعل المجمع أكثر أمانا باستخدام سلطة الشهادات. 
وسلطة اlشqادIٽ Certificate Authority‏ هي شركة تبيع التواقيع الرقمية التي تضمن أصالة قطعة الكود الموقع وهذه الشركة تؤكد هويتك 
وبذلك يتأكد الآخرون بأنك فعلا من تدعي أن تكون فهي تعطيك شهادة عهءا؟ ٠۲‏ يمكنك استخدامها لتوقيع المجمعات وعندما يستخدم أحد 
ما مجمعك لاحقا يمكن له التأكد من أن مجمعك هو المجمع الأصلي الذي قمت بإنشائه ولم يتم العيث به منذ أن قمت بكتابته إضافة إلى أنه 
يتأكد من صحة هويتك. 


ولا يستخدم الهاكر سلطة الشهادات لنشر الفيروسات لأن ذلك يجعل من السلطة قادرة على التعرف عليهم مما يمكنك من تعقبهم وملاحقتهم 
قضائيا ومع ذلك فالشهادة لا تزال لا تضمن أن الكود ذات نفسه آمن ولكنها تشكل اعتمادية في حال تبين أن الكود يشكل خطورة 
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Friend Assemblies 


ال ۴end Assembly‏ هو مجمع رااصعءء۸ مسموح له باستخدام العناصر الموجودة في مجمع آخر والتي تم تعريفها باستخدام محدد 
الوصول ۸4ء٣۴‏ فإن قمت بتحديد مجمع ما في فيجول بايزيك ك راط" ءءء ١۸ء۴‏ لم يعد متوجبا تعريف العناصر والأنواع في ذلك 
المجمع باستخدام محدد الوصول »اا۴ كي تتم رؤيتهم من المجمعات الأخرى وتعتبر هذه التقنية مريحة في حالتين: 


٠‏ عندما تقوم بفحص كود يعمل في مجمع مختلف ولكنه يحتاج للوصول إلى عناصر في المجمع الذي يتم فحصه تم تعريفهم باستخدام 
محدد الوصول ٣d‏ ع٣۴‏ 
عندما تقوم بتطوير مكتبة فئات Library‏ ئا وهناك إضافات لتلك المكتبة موجودة في مجمعات مختلفة ولكنها تتطلب الوصول 
لعناصر في المجمعات الموجودة تم تعريفهم باستخدام محدد الوصول ك٣‏ ع٣۴‏ 
يمكنك استخدام الصفة عاط 0A tti‏ eاsvisibاnterna!|‏ لتحديد واحدة أو أكثر من ال وعاطا"عءءه ۸٥ا‏ لمجمع محدد. فمثلا يمكنك 
تضمين الصفة عا 0A tt ribu‏ svisibleاnternaا‏ في المجمع ۸ وتحديد المجمع 8B‏ ک راطصعءءھ همءام؟ فسيكون بإمكان المجمع 8 
الوصول لجميع الأنواع والعناصر في المجمع ۸ التي تم تعريفها باستخدام محدد الوصول ك ۴٣٠١‏ كما يظهر في المثال التالي 


Imports System. Runtime.CompilerServices 
<Assembly: InternalsVisibleTo ("FriendAssembliesB") > 


'" FEleNQd Glass: 
Friend Class FriendAssembliesA 
Public Sub Test () 
MsgBox ("Friend Assemblies Sample Class") 
End Sub 
End Class 


'" PübDILCê CLaSS WIEB ãڃ‎ FEILeNd method: 
Public Class FriendAssembliesClassA 
Friend Sub Test () 
MsgBox ("Friend Assemblies Sample Method") 
End Sub 
End Class 


فجميع المجمعات التي يتم تعريفها بشكل واضح ك ل١٠٣۴‏ يمكنها الوصول إلى الأنواع والعناصر ۸4ء۴ فمثلا إن كان المجمع 8 هو 
لienم۴‏ للمجمع ۸ و المجمع ٤‏ له مرجع إلى المجمع 8 فلن يكن لكلا المجمعين 8 و ٤‏ حق الوصول للأنواع ل٥٣۴‏ في المجمع ۸ 


ويقوم المترجم بعمل تدقيقي أساسي ل ءع‌iاط A5"‏ ۸4ء٣۴‏ التي تم تمریر اسما dلصفة |nternalsVisibleToAttribute‏ فإن کان 
المجمع ۸ يعرف المجمع 8 ك راطص۳عءءA‏ 4معذ٣۴‏ تكون قواعد التحقق كما يلي: 


إذا كان المجمع ۸ يمتلك اسما قويا يجب على المجمع 8B‏ أن يمتلك اسما قویا أيضا. فاسم ال راطا"۳عءء۸ ۸4ء٣۴‏ الممرر إلى 
الصفة يجب أن يحتوي على اسم المجمع والمفتاح العام رع cإااںم‏ للاسم القوي رع عم۳ه١-ع١‏ هك الذي استخدم لتوقيع 
المجمع 8. واسم ال راطصعءءه لمعا الذي يتم تمريره للصفة ص‌ut To Attrib‏ nternalsVisibleا‏ لا یمکن أن یکون الاسم 
القوي للمجمع 8 حيث أنك لا تضمن رقم النسخة للمجمع والثقافة والبناء ٥٣ء‏ ع]آء٣ج‏ و ورمز المفتاح العام 

٠‏ وإن لم يمتلك المجمع ۸ اسما قويا يجب أن يحتوي اسم ال راا"عءءهA‏ ١٣ء٣۴‏ على اسم المجمع فقط 

وإن كان للمجمع 8 اسما قويا يجب أن تحدد ال رم) مص ه٣-عمهء‏ اء للمجمع 8 باستخدام خصائص المشروع أو عن طريق سطر 
الأوامر باستخدام خيار المترجم عاا؟رم»/ 
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مترجم سطر الأوامر الخاص بفيجوال بايزيك 2008 


موجه سطر الأوامر الخاص بفيجوال ستوديو 2008 

عندما نقوم بتنصیب Net Framework 3.5 SDK‏ . أو إحدى نسخ 2008 Studio‏ اهuو۷i‏ يتم إنشاء مجموعة من المجلدات 
الجديدة التي تحتوي على مجموعة متنوعة من أدوات تطوير الدوت نيت والعديد من هذه الأدوات يتم تنفيذها من سطر الأوامر فإن كنت تريد 
تشغيل هذه الأدوات من أية نافذة سطر أوامر في الويندوز فيجب عليك عندها تسجيل هذه المجلدات ضمن متغير البيئة ۴۸۲۳١‏ العائد لنظام 
التشغيل ورغم أنه يمكنك تحديت ذلك المتغير بنفسك يدويا إلا أنه يمكنك توفير العناء على نفسك وتشغيل 2008 Visual Studio‏ 
Command Prompt‏ من المجلد sاھ‏ ۲0 Studio‏ اuaءVi‏ الكائن في المجلد 2008 ioلںt؟‏ اھںء۷i ۴t‏ soەMicr‏ في قائمة ابداً. 


وتكمن الفائدة من فتح موجه سطر الأوامر بهذه الطريقة في كونه مضبوطا سلفا ليمكنك من الوصول إلى جميع أدوات التطوير العائدة للدوت 
نيت بدون أن تحتاج للقيام بتعديل متغيرات البيئة الخاصة بالنظام يدويا فإن أردنا رؤية المساعدة الخاصة بأداة ترجمة مشاريع ۷82008 
يمكنك تنفيذ الأمر التالي من موجه سطر الأوامر الخاص بفيجوال ستوديو 2008 


Vbc -? 


مترجم سطر الأوامر الخاص بفيجوال بايزيك 2008 م×ع.۷bc‏ 

هناك العديد من التقنيات التي يمكنك استخدامها لترجمة الكود المصدري لفيجول بايزيك 2008 فبالإضافة لبيئة التطوير وبعض 
الأدوات من شركات أخرى تتعامل مع واجهة الدوت نيت يمكنك إنشاء مجمعات ١ء‏ اط" عءءه باستخدام مترجم سطر الأوامر الخاص 
بفيجوال بايزيك 2008 ومع أنه ربما لن تقوم ببناء البرامج على مستوى واسع باستخدام مترجم سطر الأوامر إلا أنه يبقى من الضروري أن 
تفهم كيف يمكنك ترجمة ملفاتك من النوع ط۷.* يدويا ويمكننا هنا ذكر بعض أسباب احتياجك للإلمام بهذه العملية: 


ه السبب الواضح الأول هو حقيقة أنه ربما لا يكون لديك نسخة من فيجول ستوديو 2008 

٠‏ قد تكون في مؤسسة تعليمية تمنعك من توليد الكود باستخدام واجهات التطوير الرسومية 

٠‏ قد تريد إنشاء أدوات ترجمة آلية للدوت نيت 

ه قد تريد تعميق فهمك ل ۷/82008 فعندما تقوم باستخدام واجهات التطوير الرسومية فأنت تستخدم ضمنا م×ع.٥‏ ط۷ وأنت بهذا 
ه فائدة إضافية وهي أنك تصبح مرتاحا مع استخدام أدوات الدوت نيت التي تعمل من موجه سطر الأوامر 


بناء تطبيقات فيجول بايزيك 2008 باستخدام e×م. ۷b‏ 

لاستعراض كيفية بناء تطبيق دوت نيت بدون استخدام واجهة التطوير الرسومية سنقوم ببناء مجمع مؤلف من ملف واحد 
م×e. est App‏ وذلك باستخدام مترجم سطر الأوامر الخاص بفيجوال بايزيك 2008 مع ال همه وسنحتاج في البداية هنا لبعض 
الكود المصدري ولهذا الغرض قم بفتح ال لمهم وأدخل الكود التالي 


' A Simple Vb 2008 application 
Imports System 
Module TestApp 

Sub Main() 

Console.WriteLine("Testing! 1, 2, 3") 

End Sub 

End Module 
C:\VbcExam ple ںثn في مجلد ملائم‎ ۲٣ عء1A وبعد انتهائك احفظ الملف باسم ط۷. مم‎ 


دعنا الآن نتعرف على الخيارات الأساسية لمترجم ۷82008 حيث تكون نقطة الاهتمام الأولى هي تحديد اسم المجمع الذي سيتم إنشاؤه حيث 
يكون كل احتمال ممتل بقيمة ممررة إلى ه×ه.ء ط۷ عبر محددات سطر الأوامر وفيما يلي أهم هذه الخيارات وشرحها 


ه اںه/ اسم المجمع الذي سيتم إنشاؤه حيث تكون القيمة الافتراضية هي اسم الملف طv.*‏ الأول 
مet:e×eعrهt/‏ يقوم ببناء تطبيق كونسول تنفيذي وهو الخيار الافتراضي 
/target:library e‏ يقوم ببناء ملف ااك.* وحيد 
/target:module‏ يقوم ببناء ماduلهص‏ وهي وحدة تكوين المجمعات متعددة الملفات 
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/target:winexe‏ يقوم ببناء تطبیق ويندوز تنفيذي 


ورغم أنه يمكنك بناء تطبيقات ويندوز باستخدام م×ع:1عع۲ه] إلا أن استخدام م×ع"iس:٤ع‏ عه يمنع نافذة الكونسول من الظهور عند تشغيل 
البرنامج. ولترجمة ط۷.مم14ءه۲ إلى تطبيق كونسول باسم م×ع.مم14ءه افتح موجه سطر الأوامر الخاص بفيجوال ستوديو 2008 
وانتقل إلى المجلد الذي قمت بحفظ الملف المذكور فيه 


cd C:\VbcExample 
ثم قم بإدخال الأمر التالي‎ 
vbc /target:exe TestApp.vb 


وهنا لم نستخدم الخيار خم لهذا سیتم تسمية الملف التنفيذدي TestApp.exe‏ تلقائیا لیو افق اسم ملف الكود المصدري المدخل فان أردنا تسمية 
الملف التنفيذي باسم مختلف يمكننا إدخال الأمر التالي عند سطر الأوامر 


vbc /target:exe /out:MyFirstApp.exe TestApp.vb 


كما تجدر ملاحظة أن بعض خيارات مترجم ۷/82008 يكون لها نسخة مختصرة مثل † بدلا من اعع٣ه]‏ لذا يمكنك اختصار الإدخال على 
لوحة المفاتيح بالشكل التالي 


vbc /t:exe TestApp.vb 
وبما أن بعض هذه الخيارات افتراضية متل عم×م:ع لذا يمكن حذفها وبالتالي يمكن ترجمة الملف ط۷.مم 4ء٠٣ كما يلي‎ 
vbc TestApp.vb 
۷ الوصول إلى مجمعات خارجية باستخدام م×م.‎ 


لاستعراض عملية الوصول إلى مجمعات خارجية سنقوم بتعديل الملف ٥.مم‏ 4اه ليقوم بعرض صندوق الرسائل الخاص 
بنماذج ويندوز ولعمل هذا افتح الملف TestApp.vb‏ وعدله لتصبح محتویاته کالتالي 


'A simple vb2008 appilication 
Imports System 


'Add This 
Imports system.Windows.Forms 


Module TestApp 
Sub Main() 
Console.WriteLine("Testing! 1, 2, 3") 


'Add This 
MessageBox.Show("Hello !") 
End Sub 
End Module 


لاحظ أنه لإضافة مرجع لمجال الأسماء ك۲ s.۴0سowلكWin.صtemءرك‏ في ۷/82008 يتم استخدام الكلمة المحجوزة كاامم "| وعند سطر 
الأوامر عليك إعلام ه×ع.ء ط۷ عن أي مجمع يحتوي على مجالات أسماء مستوردة ولهذا كي تستطيع استخدام الفنة ×۵80عهةءءم يجب 
عليك استخدام الخيار ٤٥‏ ٣٥٣٥۴ء۲‏ لتحديد مرجع للمجمع System.Window s.۴0۲" s.011‏ كما يلي 


vbc /r:System.Windows.Forms.dll TestApp.vb 


فإن قمت بتشغيل التطبيق الآن ستلاحظ ظهور صندوق الرسائل المحتوى في مجال الأسماء المضاف. 
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وإن كنت بحاجة للوصول إلى عدة مجمعات خارجية باستخدام م×ع.ءط۷ عندها عليك ذكر أسماء تلك المجمعات بقائمة ضمن سطر الأوامر 
قفر اة کا في الال 


vbc /r:System.Windows.Forms.dll, System.Drawing.dll *.vb 


ترجمة عدة ملفات مصدرية باستخدام Vb c.م× e‏ 


تم إنشاء النسخة الحالية من التطبية TestApp.exe‏ بواسطة ملف ط۷.* وحيد والحقيقة هي أن معظم المشاريع تكون مؤلفة من 
عدة ملفات ط۷.* وذلك يبقي الكود أكثر مرونة وتنظيما وسنفترض أنه لديك فئة إضافية موجودة في الملف ط۷. ع ١|ام۳‏ ومحتويات الملف 
كانت كما يلي 


Imports System 
Imports System.Windows.Forms 


Class HelloMessage 
Sub Speak() 
MessageBox.Show("Hello Again") 
End sub 
End class 
0|ام] في نفس المجلد الذي قمت بحفظ الملف_ _ ط/۷.م14ءء] فيه. قم بتعديل الكود في‎ N وبافتراض أنك قمت بحفظ الملف ط۷.عء‎ 
ماه" ليستخدم الفئة الجديدة كما يلي‎ p.6٥ 


'A simple vb2008 appilication 
Imports System 


'Don't need This any More 
‘Imports system.Windows.Forms 


Module TestApp 
Sub Main() 
Console.WriteLine("Testing! 1, 2, 3") 


'Don't need This any More either 
'MessageBox.Show("Hello!") 


'Exercise the HelloMessage Class! 
Dim hello as new HelloMessage() 
hello.Speak() 

End Sub 


End Module 
يمكنك الآن ترجمة ملفات ط۷ * كما يلي‎ 


vbc /r:System.Windows.Forms.dll TestApp.vb HelloMsg.vb 


كما يمكنك مترجم ۷82008 من استخدام المحارف البديلة * و ؟ في سطر الأوامر لإخبار ع×ع.٠‏ ط۷ بأنك تريد استخدام جميع ملفات ط* 
المحتواة في مجلد المشروع كما يلي 


vbc /r:System.Windows.Forms.dll *.vb 


العمل مع ملفات الاستجابة الخاصة ب م×م.c‏ ا۷ 
إذا كنت تريد بناء تطبيق 8 معقد يصبح عندها استخدام سطر الأوامر صعبا وخاصة عندما يكون عدد المجمعات وملفات 
ط.* كبيرا وقد تم تسهيل الأمر عليك هنا باستخدام ملفات الاستجابة ءعاا؟ مءممءهم وهي تحتوي على جميع التعليمات التي ستستخدم في 
عملية البناء الحالية وهذه الملفات تمتلك اللاحقة مء ويمكننا إنشاء ملف استجابة لتطبيقنا السابق بالمحتويات التالية مع ملاحظة أن أسطر 
التعليقات تبدأ بالمحرف # 
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# This is the response file 
#for the TestApp.exe app 


#External assembly references. 
/r:System.Windows.Forms.dll 


#output and files to compile (using wildcards syntax). 
/t:exe /out:TestApp.exe *.vb 


وسنفترض أنه قد تم حفظه مع الملفات السابقة بنفس المجلد عندها يمكننا القيام بترجمة المشروع باستخدام ملف الاستجابة وذلك بكتابة @ 
يتبعها اسم ملف الاستجابة في سطر أوامر عم×ع.ء ط۷ 
vbc @TestApp.rsp‏ 
كما يمكنك تحديد عدة ملفات استجابة كدخل 
vbc @FirstFile.rsp @SecondFile.rsp @ThirdFile.rsp‏ 


فعندما تستخدم هذه الطريقة يجب عليك ملاحظة أن المترجم يستخدم محددات سطر الأوامر بنفس ترتيب ورودها ولهذا فأي أمر في ملف 
مء لاحق قد يتجاوز خيارات موجودة في ملفات مء سابقة ولاحظ أيضا أن المحددات المكتوبة قي سطر الأوامر قبل ملف الاستجابة سوف 
يتم تجاوزها باستخدام الأوامر الموجودة في ملف مء ولهذا فإن قمت بإدخال 


vbc /out:MyCoolApp.exe @TestApp.rsp 


فسوف یبقی اسم المجمع TestApp.exe‏ وذلك بسبب المحددات الموجودة في الملف TestApp.rsp‏ وإن قمت بوضع المحددات بعد ملف 
مء في سطر الأوامر فستقوم تلك المحددات بتجاوز الأوامر الموجودة في ملف صم فإن قمت بإدخال السطر التالي فسوف يصبح اسم 
المجمع lillتج MyCoolApp.exe‏ 


vbc @TestApp.rsp /out:MyCoolApp.exe 


ملف الاستجابة الافتراضى 

آخر نقطة سيتم التحدث عنها هنا هو أن مترجم 8 مر تبط بملف استجابة افتراضي اسمه م۲.٥‏ ۷ وهو متواجد في نفس 
المجلد الموجود فيه ع×ع.٥‏ ط۷ حيث يمكنك فتحه والإطلاع على محتوياته باستخدام له مهم فعندما تقوم ببناء تطبيق ۷/82008 باستخدام 
۷b c.eX٥‏ فسوف یتم استخدام ملف الاستجابة الافتراضي كمرجع حتى عندما تقوم باستخدام ملفات استجابة مخصصة وإن كنت لسبب ما لا 
ترغب باستخدام ملف الاستجابة الافتراضي يمكنك استخدام الخيار noconfig‏ كما يلي 


vbc @TestApp.rsp /noconfig 


خاتمة 
كما يمتلك مترجم سطر أوامر 8 العديد من الخيارات الأخرى التي يمكن استخدامها للتحكم بمجمع دوت نيت المولد وعند 


هذه النقطة يجب أن تكون قد أصبحت ملما بالأساسيات التي تمكنك من استخدام باقي الخيارات التي يمكنك الإطلاع عليها من خلال الوثائق 
المرفقة مع بيئة التطوير 
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التعامل مع محددات سطر الأوامر CommandlineArgs‏ 


اlخlصي CommandLineArgs‏ 
يمكننا التعامل مع محددات سطر الأوامر من خلال الخاصية وع۸۲ء٥١‏ 1١٣صص‏ التي تعيد مجموعة نصية للقراءة فقط را R240‏ 
Of String‏ ectionااه‏ تحتوي على محددات سطر الأوامر وتكون صيغتها العامة على الشكل 


Public ReadOnly Property CommandLineArgs() As ReadOnlyCollection (Of String) 


وهي متواجدة في lئمجaمg Microsoft.VisualBasic.ApplicationServices slaw! Jlجa jaضg Microsoft.VisualBasic.dll|‏ 
وهي بالنسبة لتطبيقات الكونسول icationBase.CommandLineArgsاeAppاConso‏ وبالنسبة لتطبیقات الویندوز 
My.Application.CommandLineArgs‏ 


وتجدر ملاحظة أنه عند تشغيل عدة نسخ من التطبيق في آن واحد فإن هذه الخاصية تعيد القيم الخاصة بأول مرة تم تشغيل البرنامج فيها 
وللحضرل على محندآت سظر الأرامر للمرات التالية التي تم تشخيل البرنامج فيها عليئا معالجة الحدث 
ication.StartupNextlnstanceاMy.App‏ وفحص الخاصیية Comman dine‏ العائدة ل Startup EventArgs‏ - وهنا أنصحك 
بمراجعة موضوعي أحداث التطبيق - وتجدر ملاحظة الاختلاف بين الخاصية CommandLineArgs‏ التي تعید محددات سطر الأوامر 
فقط والخاصيÃ CommandlLine‏ التي تعید سطر الأوامر التي تفذ من خلاله التطبيق كاملا بما فيه اسم الملف التنفيدي للتطبيق وهذه 
الملاحظة خاصة بالبرنامج وحيد التواجد «n‏ 0ااةءiاممA‏ معtnءما‏ ماعمiك‏ أي البرنامج المفترض تشغيل نسخة واحدة فقط منه 
وبالمناسبة نحن نقوم بعمل برنامج وحيد التواجد بوضع إشارة في المربع بجانب Make Singاe |nstance Appliocation‏ في صفحة 
icationامApp‏ في خصائص ا e‌ز٥ My Pr‏ 

وهذه الخاصية ليست متوفرة لجميع أنواع التطبيقات التي يمكنك إنشاؤها فهي متوفرة لأنواع التطبيقات التالية فقط Windows‏ 
Console Application s Application‏ و Windows Service‏ فقط وقد تحتاج في بعض الحالات فأ EnvironmentPermission‏ 
من أجل الحصول على الصلاحيات الكافية لقراءة محددات سطر الأوامر من خلال هذه الخاصية وربما سأقوم مستقبلا بعمل موضوع مستقل 
EnvironmentPermission ةأفll jz‏ 


أمثلة عن الاستخدام 
إذا أردنا معالجة محدد ما المفترض أن يمرر عبر سطر الأوامر =اامما/ مثلا يمكننا استخدام الكود التالي لإظهار بقية القيمة الممررة 
Private Sub ParseCommandLineArgs ()‏ 


Dim inputArgument As String = "/input=" 
Dir inpütName As SEEING = ™ 


For Each s As String In My.Application.CommandLineArgs 
If s.ToLlLower.StartsWith (inputArgument) Then 


inputName = s.Remove (0, inputArgument. Length) 
ERQ. EÊ 
Next 
If inputName = "" Then 
MsgBox ("No input name") 
Else 
MsgBox ("Input name: " & inputName) 
ERGE TLE 
End. Sub 


أو يمكننا عمل إجراء لمعالجة عدة محددات لسطر الأوامر 
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For Each cr In My.Application.CommandLineArgs 
HandleArgs (cr. ToUpper) 


Next 


Private Sub HandleArgs (ByVal carg As String) 
Select Case carg 
Case "/S" 
' ااالجدة: معاكحة‎ 5 


Case "/T" 

1/ المحدد معالجة ' 
Case Else‏ 
آخر فخكد أ فعالجة ٣‏ 


End Select 
ERAQ Sub 


وفي حالة تشغيل عدة نسخ من التطبيق في آن واحد هذا مثال عن معالجة الحدث ع" s†aہاNext Startup‏ حيث يمكننا الوصول للحدث من 
خلال فتح خصائص ا عزه٣۴ My‏ ومن صفحة ۸٥ااھicاممA‏ اضغط الزر ves‏ ع View Aمpماicati on‏ لينقلك لمحرر الکود المناسب 


Private Sub MyApplication StartupNextInstance( _ 


ByVal sender As Object, ByVal e As 


Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs 5 


) Handles Me.StartupNextInstance 


Dim inputArgument As String = "/input=" 
Dim inputName AS SEEING = W™ 


For Each s As String In e.CommandLine 
If s.ToLlLower.StartsWith (inputArgument) 


inputName = s.Remove (0, inputArgument. Length) 
ERG: TÊ 
Nex 
If inputName = "" Then 
MsgBox ("No input name") 
Else 
MsgBox ("Input name: " & inputName) 
End. TÊ 
ERA SUB 
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الإعدادات من وجهة نظر tمہ.‏ ۷8 من 2002 حتى 2005 


العديد من التطبيقات تحتاج لتخزين إعدادات محددة لمتابعتها بين الجلسات. ولكن كيف ستقوم بتخزين هذه الإعدادات ضمن التطبيقات 
المكتوبة ضمن الفريموورك.؟ ليس من السهل دوما الإجابة الصحيحة عن هذا السؤال وستجد مجالا متنوعا من الحلول لهذه المسألة من العديد 
من المصادر ولكن قليلا منها يمتل الطريقة المثلى لمعالجة هذه الحاجة 


دعنا أولا نعرف نوعين رئيسيين لهذه الإعدادات: إعدادات خاصة بالتطبيق وإعدادات خاصة بالمستخدم فإعدادات التطبيق يتم توزيعها مع 
البرنامج وهي تؤثر على جميع المستخدمين ويكون المسؤول عن تغييرها في العادة مدراء الأنظمة عندما نريد تغيير التصرف العام للتطبيق. 
فمثلا برنامج لتنظيم الأيدي العاملة عندما يتم تطبيقه في مؤسسة ما سيتم ضبط إعداداته العامة مثل إعداد مخدم قاعدة البيانات التي سيتصل 
بها المستخدمون وإضافة شعار الشركة لواجهة البرنامج وهكذا. إعدادات التطبيق هذه لا علاقة لها بالمستخدم ويمكن أن يتم إعدادها في نفس 
المجلد الذي سيتم تثبيت التطبيق فيه وبشكل يكون فقط مدير النظام له صلاحيات التعديل والحذف على هذه الإعدادات وفي الحالات العامة 
سيحتاج التطبيق لقراءة هذه الإعدادات دون الحاجة لتعديلها 


وإعدادات المستخدم تكون خاصة بكل مستخدم على حد ى ويجب أن تكون قابلة للتحرير من داخل الكود فمن أجل تطبيق ما يمكن أن تضم 
إعدادات المستخدم حجم ومكان نافذة التطبيق وحالة البدء للتطبيق وتغيير هذه المعلومات بسرعة. كل هذه المعلومات يجب استعادتها عند بدء 
جلسة التطبيق وتحريرها عند الضرورة أثناء تشغيل التطبيق وحفظها للقرص لتكون متوفرة في المرة القادمة التي يقوم المستخدم بتشغيل 
التطبيق. 


ضبط واستعادة إعدادات المستخدم 

أول خطوة هي إنشاء ملف إعداد داخل تطبيقك ب|ختlıر Application Configuration رlaتخ| g Project ةnûlã ja Add New Item‏ 
مان۴ و اترك الاسم الافتراضي للملف وا؟مه٤.مم۸‏ كما هو دون تغيير حيث سيتم نقله وإعادة تسميته تلقائيا بالشكل المناسب عند قيامك 
ببناء التطبيق ففي الملف الجديد يمكنك تحديد إعدادات مخصصة أو إضافة إعداداتك الخاصة ضمن القسم ئ Set‏ ممه حیث تکون عبارة 
عن أزواج اسم/قيمة وتخزين بعض المعلومات البسيطة قد ينتج ملفا شبيها بالتالي 


<?xml version="1.0" encoding="utf-8" ?> 
<configuration> 
<appSettings> 
<add key="Company Name" value="Java Jitters" /> 
<add key="Database Server" value="BigSQLServer" /> 
</appSettings> 
</configuration> 


ومن السهل استعادة هذه القيم عند الحاجة من خلال الفئات والإجراءات الموجودة ضمن النطاق System .Cconfiguration‏ وحتى أناك لن 
تحتاج لتحميل الملف بنفسك حيت سيتم اكتشافه وتحميله تلقائيا إن كان يحمل الاسم المناسب وموضوعا في المكان المناسب 


Dim companyName As String _ 
= ConfigurationSettings.AppSettings ("Company Name") 


لماذ| لتصتخدم App.Config‏ ؟ 

کثیرا ما نرى السؤال كيف أعمل ملف وا؟ه٤.مم۸‏ الخاص بي بعد أن استخدموا ملف التعريف ورأوا عملية البرمجة السهلة المتعلقة به 
لماذا لا يمكنهم استخدام نفس الملف لتخزين إعدادات المستخدم الخاصة بهم لماذا يوجد طريقتين مختلفتين للإعدادات وذلك بعد اكتشافهم أن 

المجال a0٣‏ uعtem.onfiءرك‏ لا يقدم طريقة لكتابة الملف وا۴١‏ هء.ممه والتي تعتبر بمثابة تحذير ولكنها لن تقف عائقا أمام المبرمج 

المصمم وبعد البحث في العادة يقومون باستخدام ملف عادي أو خمعمصuعءه0|"×‏ وهذه تعتبر فكرة غير جيدة ولا يجب على تطبيقك كتابة 
هذه الملفات لعدة أسباب منها الصلاحيات» عدم عزل المستخدمين وكون الملف وا۴١‏ ».ممه جزءا من ملفات إعداد التطبيق لهذه الأسباب 

وأسي با أخرى لا يجب عليك استخدام الملف عا هء.م مه لغرض تخزين إعدادات المستخدم ولكن لا تقلق فتخزين إعدادات المستخدم ليس 
بتلك الصعوبة 
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إنشاء فئة إعدادات وتخزينها على القرص 


المفتاح لإنشاء إعدادات المستخدم الخاصة بك هو إنشاء فئة ووج اع تمثل جميع البيانات حيث سيكون واجهتك لإعدادات المستخدم الخاصة بك 


وهي أول شئ يجب عليك بناؤه عندما تريد تخزين أية معلومات كالفئة التالية مثلا 


. Drawing 
System. 
System. 
System. 


IO 
IO.IsolatedStorage 
Environment 


.Collections.Specialized 


System 


System 


Imports 
Imports 
Imports 
Imports 
Imports 


Public Class Settings 


Private m BackgroundColor As String 
Private m RecentFiles As New StringCollection 


LastWindowBounds As Rectangle _ 


- New Rectangle (0, 0, 200, 200) 


LastWindowState As Windows.Forms.FormWindowState 


= FormWindowState.Normal 


Private m 


Private m_ 


<Xml.Serialization.XmlIgnore () > 


Public Property LastWindowBounds () As Rectangle 


Get 


Return m LastWindowBounds 


End Get 

Set (ByVal Value As Rectangle) 
m_LastWindowBounds = Value 
End Set 

Property 


Public Property LastWindowPos() As Point 


Get 


Return m LastWindowBounds. Location 


End Get 


Set (ByVal Value As Point) 
m_LastWindowBounds.Location = Value 


End Set 
Property 


Public Property LastWindowSize() As Size 


Get 


Return m_ LastWindowBounds.Size 


End Get 


Set (ByVal Value As Size) 
m_LastWindowBounds.Size = Value 


¥ 


Public Property LastWindowState () As Windows.Forms.FormWindowState 


urn m_ LastWindowState 


End Set 
PEODEEE 


Get 
Ret 
End Get 


Set (ByVal Value As Windows.Forms.FormWindowState) 


astWindowState = Value 
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mL 
End Set 


End 


End Property 


Public Property RecentFiles() As StringCollection 


Get 
If m RecentFiles Is Nothing Then 
m_ RecentFiles = New StringCollection 
ENQA EE 
Return m RecentFiles 
End Get 


Set (ByVal Value As StringCollection) 
If Value Is Nothing Then 
m_ RecentFiles = New StringCollection 
Else 
M RecentFiles = Valu 
ERA: LÊ 
End Set 
End Property 


Public Property BackgroundColor () As String 
Get 
Dim colorToReturn As String 


If m BackgroundColor Is Nothing OrElse _ 
m_ BackgroundColor = String.Empty Then 
colorToReturn = ColorTranslator.ToHtml( _ 


Color.FromKnownColor (KnownColor.Control) ) 
Else 
colorToReturn = m BackgroundColor 
ERQ EÊ 
Return colorToReturn 
End Get 
Set (ByVal Value As String) 

If Not ColorTranslator.FromHtml (Value) .IsEmpty Then 
m_ BackgroundColor = Value 


Else 


m BackgroundColor = String.Empty 
ERAQ: EÊ 


End Set 
End Property 


End Class 


بعد انتهاؤك من كتابة الفئة المناسبة لإعداداتك المطلوبة ستكون الخطوة التالية هي كتابتها وقراءتها من ملف على القرص وإحدى الطرق 
المناسبة هي الفئتين Xm|Reader.|اSystem.Xm‏ و System .Xm|.XmlWriter‏ ولکنە یکون من الأسهل استخدام تسلسل ×M1‏ 

izatinاiaمهS‏ حيث يكفل جميع الضروريات لإنشاء تواجد للفئة في ملف ۷1× و استعادتها منه وهو قوي بحيث يستطيع التعامل مع 
المعلومات المنقوصة وحتى الخصائص الإضافية التي يمكن أن يتم إضافتها مستقبلا وبهذا يتضح أنه خيار جيد ويمكنك تخزين تواجد للفئة 
على القرص باستخدام الْفنة ع7ا 2¡ System .Xmا.Seriaاi zation .X" |e‏ كما يمكنك استخدام نفس الفئة للاستعادة لاحقا انظر المثال 


Public Sub SaveSettings () 
Dim xs As New XmlSerializer (GetType (Settings) ) 


Dim sw As New 1O0.StreamWriter ("C:\settings.xml") 
xS.Serialize (sw, currentSettings) 
sw.Close () 
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Dim sr As New 10.StreamReader ("C:\settings.xml") 
currentSettings = CType (xs.Deserialize (sr), Settings) 
sr.Close () 


End Sub 


في هذا المثال البسيط نريد وضع كود فعلي في فئة الإعدادات الخاصة بنا كدمج بين العديد من الإجراءات والطرق المختلفة وقد زودت بعض 
الخيارات المختلفة لتم تقديمها ضمن التدفق ۵۳٥۲ء‏ حيث سیهتم بحفظها علی القرص وعملية التسلسل/إالغاء التسلسل ۲م serializing‏ 
deseriali zing‏ تتطلب أولا إنشاء تواجد أف Xm|Serializer‏ 

Dim xs As New XmlSerializer (GetType (Settings) ) 


وستحتاج أيضا J|‏ توج ذ TextWriter, or XmIWriter‏ و rextReader, or Xm|Reader‏ لتمثل عملية الحفظ والتحميل 


Dim sw As New 1O0.StreamWriter ("C:\settings.xml") 


ومكان تخزين الملف على القرص يعتبر من النقاشات الهامة وأقترح مجلد بيانات التطبيق للمستخدم أو أي مكان معزول آخر ويعتبر الخيار 


الأول هو الأفضل حيث يمكنك الحصول على مساره الكامل باستخدام gÎ Application.UserAppDataPath‏ 
System .Environment.GetFolderPath‏ حيث يمكن الحصول على المسار المطلوب بالعديد من الطرق ولكني أعتقد أن هذه الطريقة 


Dim filePath As String 

filePath = Path.Combine (GetFolderPath( _ 
SpecialFolder.ApplicationData), Application.CompanyName) 

filePath = Path.Combine (filePath, Application. ProductName) 

filePath = Path.Combine (filePath, FILENAME) 

Dim settingsFile As New FileStream(filePath, FileMode.Create) 


التخزين المنفصل 

و المكان المثالي الآخر هو التخزين المنفصل حيث يكون له مكان خاص ضمن مجلد بيانات التطبيق للمستخدم الذي يوفر ملفات فريدا 
مربوطا بالمستخدم وببعض المعلومات حول التطبيق حيث يمكنك استخدام الفئات الموجودة ضمن ععه,0†؟4عاهامءا.m”.|0هtءركS‏ لإنشاء 
ملف أو فتح آخر موجود في تلك المنطقة 


Dim ifs As IsolatedStoragerFile 

ifs = IsolatedStorageFrile.GetUserStoreForAssembly () 

Dim settingsFile As New I[IsolatedStorageFileStream( _ 
FILENAME, FileMode.Create, ifs) 

Return settingsFile 


الحفظ والتحميل من داخل التطبيق 

في النموذج الرئيسي لتطبيقك ستحتاج لتحميل ملف الإعدادات من القرص عند بدء تطبيقك وحفظها عند نهايته وكل الإجرائيات التي 
ستحتاجها موجودة في فئتك وسيتطلب ذلك العمل مع تلك الإجرائيات في الفئة لتحرير الإعدادات التي تريدها ففي تطبيق بسيط بنافذة واحدة 
سيكون من السهل انجاز هذا ببضعة سطور من الكود ومن أجل تحميل الإعدادات عند بدء التطبيق يمكنك النظر إلى المتال 


Dim currentSettings As Settings 


Public Sub LoadSettings () 
Try 
Me.currentSettings = Settings.Load() 
With Me.currentSettings 
Me.Bounds = .LastWindowBounds 
Me.BackColor = ColorTranslator.FromHtml (.BackgroundColor) 
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Me.WindowState = .LastWindowState 
End With 

UpdateRecentFileMenu () 

Catch ex As Exception 

Me.currentSettings = New Settings 


End Try 
End Sub 


Public Sub New () 
MyBase.New () 


'This call is required by the Windows Form Designer. 
InitializeComponent () 


'Add any initialization after the InitializeComponent () call 
LoadSettings () 


End Sub 


ولتحميلها يمكنك النظر للمتال 


Protected Overrides Sub OnClosing (ByVal e As _ 
System.ComponentModel.CancelEventArgs) 
SaveSettings () 

End Sub 


Private Sub SaveSettings () 
With Me.currentSettings 
.LastWindowBounds = Me. Bounds 
.BackgroundColor = ColorTranslator.ToHtml (Me. BackColor) 
.LastWindowState = Me.WindowState 
.PersistMe () 
End With 
End Sub 


ماذا عن فيجول بايزيك 2005 

ناقشنا في هذا الموضوع كيف وأين تقوم بتخزين إعداداتك ولكن في ۷82005 كثير من هذه المسائل تمت معالجتها من أجلك حيث تمت 
إضافة محرر للإعدادات في خصائص التطبيق يمكنك استخدامها بسهولة لضبط كلا من إعدادات المستخدم و إعدادات التطبيق بكل سهولة 
وبعد قيامك بضبطها بالشكل المناسب يمكنك قراءتها بكل سهولة 


Me.Text = My.Settings.CompanyName 

If My.Settings.StartMaximized Then 
Me.WindowState = FormWindowState.Maximized 
End: .TÊ 


في الفريموورك 2 ستلاحظ سهولة إنشاء الإعدادات حيث لم يعد من الضروري فتح ملف الإعداد وإدخال إعداداتك الخاصة بدلا عن ذلك 
نمكنك التوجه إلى مصفم الإعذادات مباقرة وإضافة إعذاد الك مهما يكن مجالها تطبيق آم تك حت كرون الأغدادات غل توي 
التطبيق للقراءة فقط وهي مشتركة بين جميع المستخدمين في التطبيق وتكون مخزنة في الملف وأا۴”هء.ممه في القسم 
<icationSettingsاممa>‏ والذي يختلف عن القسم <ءع”†مكممه> الموجود في الفريموورك 1 وفي وقت التشغيل سيكون الملف 
عconfi.‏ ممه في المجلد "8 وسوف يتم إعادة تسميته وفقا لاسم البرنامج وكمتال على إعدادات على مستوى التطبيق تعريف وصلة قاعدة 
البيانات أو عنوان خدمة ويب أو عنوان ملقم ... الخ 


<applicationSettings> 
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<MySettingsDemo.MySettings> 
<setting name="SMTPServerlP" serializeAs="String"> 
<value>127.0.0.1</value> 
</setting> 
<setting name="MyServicesURL" serializeAs="String"> 
<value>http://localhost/myservices.asmx</value> 
</setting> 
</MySettingsDemo.MySettings> 
</applicationSettings> 


الإعدادات على مستوى المستخدم تكون مخصصة لكل مستخدم ويمكن قراءتها وإعادة ضبطها بأمان من خلال كود التطبيق وتكون مخزنة في 
ملف عا۴مهء.٣عءں‏ ولكي نكون دقيقين هناك ملفان وا۴”هء.۲عءں لكل مستخدم لكل تطبيق واحد للمشاركة وواحد بدون مشاركة ومع ذلك 
تنص وثائق ۷/82005 على أن الملف عام هء.٣هءں‏ سيتم تسميته تبعا لاسم المستخدم ولكن هذا ليس دقيقا حيث سيتم تخزينه في المسار 


<c:\Documents and Settings>\<username>\ [Local Settings\]Application 


Data\<companyname>\<appdomainname>_ <eid>_ <hash>\<verison> 


<c:\Documents and Settings> مدختسnlا‎ تناlناlيیب مجلد‎ 
<username> مۂدıخiwnldا اسم‎ 

اسم الشركة <companyname>‏ 

<appdomainname> Application Domain 

معرف المستخدم <ل1ه> 

<hash> hash 

رقم نسخة التطبيق >7/8۲8S101<‏ 


وکمتال 


C:\Documents and Settings\Emad. BROKENOAK\Local Settings\Application 
Data\MySettingsDemo\MySettingsDemo 9cfe5ef1\1.0.0.0 


حيث يتم إنشاء الملف ع۴ هء.۲هءں في أول مرة يتم فيها تشغيل التطبيق بواسطة مستخدم جديد والقيم الغير افتراضية سوف يتم وضعها في 
ملف على مستوی المستخدم بینما القيم الموجودة في app.config‏ في القسم >userSettings>‏ هي القيم الافتراضية لهذه الإعدادات وهي 
محددة أيضا في الملف عا؟هء.م مه وفيما يلي كيف يمكن أن يبدو الملف عا؟٣هء.م‏ مج 


<userSettings> 
<MySettingsDemo.MySettings> 
<setting name="LlLastSearchedItem" serializeAs="String"> 
<value /> 
</setting> 
<setting name="FormSize" serializeAs="String"> 
<vValue>400, 400</value> 
</setting> 
<setting name="FormLocation" serializeAs="String"> 
<value>O0, 0</value> 
</setting> 
</MySettingsDemo.MySettings> 
</userSettings> 


الإعدادات على مستوى المستخدم عظيمة لتخزين إعدادات التطبيق حيث عادة ما تختلف من مستخدم لآخر وكمثال على ذلك إعدادات 
العرض كحجم الخط وموقع النافذة أو لائحة الملفات المفتوحة أخيرا وهكذا. وهذه البنية مرنة جدا لأنها تمكن تطبيقك من تخزين الإعدادات 
لتطبيقك حتى لو كنت تعمل في بيئة محدودة الصلاحيات. 
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إنشاء إعداد 
لنفترض أنه لدينا صندوق بحث في تطبيقك وأنت تريد تخزين آخر قيم تم البحث عنها 


١ 


۲ 
۳ 
٤ 


في مستكشف الحل انقر نقرا مزدوجا على المشروع لعرض خصائص المشروع 
انقر صفحة Settings‏ لعرض مصمم الإعدادات 

أدخل الاسم ٠ه‏ والنوع مم رآ والمجال مم0ء؟ للإعداد المطلوب 

في حقل القيمة عں اه۷ أدخل القيمة الافتراضية لذلك الإعداد 


وراء المشهد 


عندما تضيف إعدادا جديدا في مصمم الإعدادات تجري عدة أشياء في الخلفية أولا يتم إضافة مدخل جديد في الملف عاهء.م مه لتحديد هذا 


الإعداد 


<configSections> 
<sectionGroup 


name="applicationSettings"type="System.Configuration.ApplicationSettingsGroup, 


System, 
Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> 
<section name="MySettingsDemo.MySettings" 
type="System.Configuration.ClientSettingsSection, System, 
Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> 
</sectionGroup> 
</configSections> 


ثانيا تعريف الإعداد ذات نفسه یتم إضافته للملف app.config‏ بالاعتماد علی نوع ممypا‏ الإعداد الذي تحدده حيث يمكنك أن تری قسم 
applicationSettings‏ و user Settings‏ أو connectionStrings‏ أو أكثر من واحد منها اعتمادا على الإعدادات التي تحددها كمثال: 


<userSettings> 
<MySettingsDemo.MySettings> 
<setting name="LastSearchedItem" serializeAs="String"> 
<value /> 
</setting> 
<setting name="FormSize" serializeAs="Sstring"> 
<value>400, 400</value> 
</setting> 
<setting name="FormLocation" serializeAs="String"> 
<value>O0, 0</value> 
</setting> 
</MySettingsDemo.MySettings> 
</userSettings> 


<connectionStrings> 
<add name="MySettingsDemo.MySettings.ConnectionString™ 
connectionString="Server=TABLET; User ID=sa; Password=1234; 
Database=Northwind; Persist Security Info=True"™ 
providerName="System. Data.SqlClient" /> 
</connectionStrings> 
<applicationSettings> 
<MySettingsDemo.MySettings> 
<setting name="SMTPServerlP" serializeAs="String"> 
<value>192.168.2.11</value> 
</setting> 
<setting name="MyServicesURL" serializeAs="String"> 
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<value>http://localhost/MyServices/Servicel.asmx</value> 
</setting> 
</MySettingsDemo.MySettings> 
</applicationSettings> 


الوصول للاعدادات 
بعد إضافة الإعداد سنحتاج لقراءته وتحديثه حيث يمكنك الوصول إليه My.Setti ngs jı‏ کمثال 


My.Settings.LastSearchedItem 


وكطريقة أخرى للوصول لهذه الإعدادات هي ربطها بإحدى خصائص التحكم حيث من صندوق الخصائص انتقل إلى قسم هاه وفيه 

امعجخا0٣ ونا (pertyBindingهrا۴) ومن الصندوق الذي يظهر لك انتقل للخاصية التي تريد ربطها مثلا‎ )Appاication‎ Settings) 
أو حتى يمكنك إنشاء إعداد جديد من هناك بالنقر على سه" وكنتيجة لهذا الربط‎ ۴٠۲ وقم باختيار الضبط المناسب لها مثلا ةع ماص‎ 
سرع المصح اشا كروي الكاف كااي‎ 


Me.DataBindings. Add (New System.Windows.Forms.Binding ("Location", 
MySettingsDemo.MySettings.Value, "FormLocation", True, 
MySettingsDemo.MySettings.Value.LastSearchedItem, Nothing, 
System.Windows.Forms.BindingUpdateMode.OnPropertyChanged) ) 


عندما تربط الإعدادات بهذه الطريقة لن تضطر للقلق حول قراءة وكتابة هذه الإعدادات حيث سيتم ضبط الخاصية عند الحاجة وسوف يتم 
تخزين قيمتها تلقائيا إذا تم تغيير ها ويمكنك ملاحظة أن هذا كله يتم دون اضطرارك لكتابة أي سطر من الكود كما يجدر ملاحظة أن هذه 
الإعدادات يتم تخزينها تلقائيا في بعض أنواع المشاريع مثل "۴0۲ sس0لWin Basic‏ امuء¡۷‏ ويجب أن تستدعي الإجراء م52۷ من 
ئ My.‏ في بعضها الآخر مثل مشاريع ۲۵۲۷ طا ءوها٤‏ وإذا كانت الخاصية غير مدرجة ضمن نافذة الربط يمكنك تحقيق هذا الربط 
باستخدام الكود حيث لبعض الأسباب الخاصية م2ك غير متوفرة كخاصية يمكن ربطها في النسخة التجريبية وهي متوفرة في النسخة النهائية 
ویمکن تحقیق الربط بإضافة عہاdہ‏ ا8 جدید لمجمو عة ۸ 0ااءم‌اامc‏ وعم 0ata 8ii‏ ضمن النموذج حیث تستخدم الفئة عہ الہ ا8 لتحدید اسم 
الخاصية واسم الإعداد وطريقة التحديث كمثال يمكننا ربط الخاصية Siz‏ بالإعداد ۴٥۲52٥‏ يدويا كالمتال 


Me.DataBindings.Add (New System.Windows.Forms.Binding ("Size", 
MySettingsDemo.MySettings.Value, 
"FormSize™") ) 


الإعدادات المتقدمة 

إذا أردت تحكما إضافيا على إعداداتك يمكنك تحديد الفئة ووحاع الخاصة بك والتي يجب أن تشتقها من llغأة ApplicationSettingsBase‏ 
التي تشكل الفئة الأب لجميع فئات الإعدادات حيث تحدد كل إعداد كخاصية لهذه الفئة و تسبقها بالخاصية 
icationScopedSettingAttributeاApp‏ إذا کانت علی مستوی التطبیق İو‏ بlلخlصة User ScopedSettingAttri bute‏ إذا كانت 


Partial NotInheritable Class MySettings 
Inherits System.Configuration.ApplicationSettingsBase 


<System.Diagnostics. DebuggerNonUserCode (), _ 
System.Configuration.UserScopedSettingAttribute (), _ 
System.Configuration.DefaultSettingValueAttribute ("400, 400")> 
Public Property FormSize() As System. Drawing.Size 


Get 
Return CType (Me ("FormSize"), System. Drawing.Size) 
End Get 
Set 
Me ("FormSize") = value 
End Set 


End Property 


<System.Diagnostics. DebuggerNonUserCode (), 
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System.Configuration.SpecialSetting (System.Configuration.SpecialSetting.Connecti 
onString), _ 
System.Configuration.ApplicationScopedSettingAttribute (), _ 

System.Configuration.DefaultSettingValueAttribute ("Server=TABLET; 
User ID=sa; Password=1234; Database=Northwind; Persist Security In"& _ 
TESST DSS 
Public ReadOnly Property ConnectionString() As String 
Get 
Return CType (Me ("ConnectionString"),String) 
End Get 
End Property 


<System.Diagnostics. DebuggerNonUserCode(), _ 
System.Configuration.ApplicationScopedSettingAttribute (), _ 
System.Configuration.DefaultSettingValueAttribute ("192.168.2.111") > 
Public ReadOnly Property SMTPServerlIP() As String 
Get 
Return CType (Me ("SMTPServerlIP"),String) 
End Get 
End Property 


ويمكنك ملاحظة أن ال عہا٣†S Connection‏ محاط بالخاصية ع”i††ع؟|هاععم؟‏ التي يكون لها قسم خاص في ملف الإعدادات كما تجدر 
ملاحظة ووواء اهز) ۴2 في بداية التعريف مما يعني أنه يمكنك إنشاء ملف جديد في مشروعك وتضمينه جزء آخر من أحد الفئات ها٣‏ في 
مشروعك وبهذه التقنية يمكنك تعديل إعداداتك دون تعديل الكود المنشاً بواسطة المصمم ويمكنك إضافة معالجة للأحداث في هذه الفئة والتي 
تمنحك دقة أكبر في التحكم بهذه الإعدادات وهذه الأحداث هي SettingsSaving s SettingChanging‏ ڪ PropertyChanging‏ 
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Application Events قıبطإتلا أحداث‎ 


Visual Basic 2005 الشرح هنا خاص ڊ‎ 
Enable application framework 


للوصول إليها: 
windas application framework properties‏ 
من مستكشف الحل 
ution Explorer‏ انقر EE‏ 2 
9 ایغ لز لر 
مشروعك pî‏ تر _ _ Application‏ 
Popes‏ تم من صفحه Authentication made:‏ 
Application‏ اضغط زر Windows | Events‏ 


View Application 


Enable #P Yisual styles 
Ll Make single instahze application 
Save My, SEkkings on Shutdown 


Shutdown ûdê: 


6ع فیتم نقلك لمحرر E TE‏ 
الكود يث تتمکن من | When startup Form closes‏ 
استخدام الحدث الذي تحتاج Splash sctëen:‏ 


my ی‎ E8 ٣ ê Gi 
{Nonê) vw [Û View applicatian Events لمعالجته في تطبيقك من‎ 


خان لی کنا س 
ظاهر بالصورة 


.„ RpplicationEyents.vb* | TestûpplicationEvents* | Formi.vb [Design] T 3tart Page |  X% 
3# (MyApplication Events] jl {bsclarations) 
E] Hameszparte Hy 5 E (Declarations) 1 


NetworkArailabilitychanged 
21 ' Thë föllöwinğ êwEnÊES arê avãailblë fû # Shutdown 

1 3F Startup 

# StartupMextInstance 


' Shurdown: Raised after 211] applicartid م‎ Ra EL 


' Startup: Raised when the application 
UnhandledAExcteption: Raised if the application encounters an unhandled exception. 
StartupNext Instance: Raised when launching ã single-insztance application and the 
2 ' NECUGEKATALLSDILIETChHENGER: RE1SeEN ve the HeEtVUOEE COANPCEIERN 15 cCGAnETCEY GE d1 
E Partial Friend Class HyAipplication 


٣ End LZlass 


LEnd Namespace 
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وفيما يلي تعريف بكل حدث على حدة 


My.Application.Startup Event 
حيث ينطلق هذا الحدث عند بداية التطبيق لتضع فيه الأوامر التي تريد تنفيذها عند بداية التطبيق فمثلا إذا أردت تغيير‎ 
الثقافة الخاصة بالتطبيق إلى العربية - سورية نستخدم كودا شبيها بالتالي:‎ 
PEivate SUb: MyApPlieation Startup (ByVal sender &s Object, 


ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) 
Handles Me.Startup 


اال طحق دان فك حادق . الخافة الت اة تعب "`" 
نافذة أية إظهار قبل ' 
My.Application.ChangeCulture ("Ar-Sy")‏ 


ERI. SUS 


و المحدد م يشير إلى الفة وsىھاً٣‏ sو٣ve”†A٤rtupإهSt‏ التي توفر معلومات حول بداية التطبية 
ولها عدة خصائص مثل ا1عع"مةح٣‏ التي تقوم بإلغاء« الحدث ,و CommandLine‏ التي تمرر محددات 
سطر الأو امر للتطبيق command-11in¬e aا9u"€e ۸S‏ كما يمكنك الحصول على محددات سطر الأآوامر 
أيضا باستخدام الأمر 9sاإcommandLineA.‏ icationاApp. My‏ من أي مكان في التطبيق 


My.Application.Shutdown Event 
حيث ينطلق هذا | الحدث عند نهاية التطبيق فيمكنك استخدامه لمعالجة الأمور التي تحتاجها قبل نهاية التطبيق مباشرة‎ 
: مثال‎ 


Private Sub MyApplication_ Shutdown (ByVal sender As Object, 
ByVal e As System.EventArgs) Handles Me.Shutdown 


My.Application.Log.WriteEntry ("Application Shut Down.") 


ERN SUBD 


My.Application.StartupNextInstance Event 

حيث ينطلق هذا ١‏ الحدث عندما تحاول تشغيل نسخة ثانية من التطبيق المفترض أن يكون وحيد التواجد -عاعمزو 
stance application‏ والتطبیق مفتوح فعلیا 
مثال: 


Private Sub MyApplication StartupNextInstance (ByVal sender As Object, 
ByVal e As 

Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) 
Handles Me.StartupNextInstance 


Dim inputArgument As String = "/input=" 

Dim inputName As String = "" 

For Each s As String In e.CommandLine 

If s.ToLlLower.StartsWith (inputArgument) Then 


inputName = s.Remove (0, inputArgument. Length) 
ER TE 
Next 
If inputName = "" Then 
MsgBox ("No input name") 
Else 
MsgBox ("Input name: " & inputName) 
ERE TE 
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EN Sub 


حيث يشير المحدد ع للفة tartupNextinstanceEven†A gs‏ التي تعید معلومات حول تواجدات التطبیق 
Instances‏ icationاApp‏ حیث تحدد الخاصیة 4ہ Brin ۲0۴0| eع ٥u‏ فیما إذا کان یجب نقل التواجد الأول للتطبیق إلى 
gToForeg pplici :‏ 
الواجهة و الخاصية عم M2111‏ تحدد محددات سطر الاوامر للتواجد الجديد للتطبيق 


My.Application.UnhandledException Event 
الحدث عندما ينطلق استثناء «0)معءء×8 في تطبيقك لم تتم معالجته داخل التطبيق لتتمكن من إجراء‎ |١ حيث ينطلق هذا‎ 
الاستثناء مع ملاحظة أنه عندما يصل مسار تنفيذ البرنامج لهذه النقطة فإنه ينفذ هذا الإجراء ويخرج من البرنامج‎ 


Private Sub MyApplication_ UnhandledException (ByVal sender As Object, _ 
ByVal é A | 

Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) 
Handles Me.UnhandledException 


My.Application.Log.WriteException (e.Exception, _ 
TraceEventType.Critical, "Unhandled Exception.") 


ENQA. SUB 


و المحدد م يشير إلى الف Even A gs‏ ¬edExceptioاnhand€‏ التي تحوي معلومات حول الخطأ مثل الخاصية 
Exception‏ التي تحوي معلومات عن الخطاً و الخاصية ١10هام‏ م 8×14 التي تحدد فيما إذا كان يجب إنهاء التطبيق فور 
نهاية الإجرائية 


NetworkChange.NetworkAvailabilityChanged Event 
ينطلق هذا الحدث عندما تحدث تغييرات حول توافر الشبكة‎ 


Private Sub MyApplication_ NetworkAvailabilityChanged (ByVal sender As Object, _ 
ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) 
Handles Me.NetworkAvailabilityChanged 


MsgBox (e.IsNetworkAvailable.ToString) 


ERNE SUB 


حيث يشير المحدد ع للفة sع‏ ۲4ء۷ ٤ع]1طaانةv Network A‏ التي تمرر معلومات حول توافر الشبكة ولها خاصية 
مفيدة هي ٥1طه‏ ان۷ K۸Aإمس†ءN!‏ التي تعيد قيمة منطقية هل الشبكة متوافرة أم لا 
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كيفية استخدام ملف التعريف الخاص بالتطبيق لاستهداف نسخة معينة من الفريموورك 


يمكنك استخدام ملف التعريف الخاص بالتطبيق لتحديد ما هي نسخ الفريموورك التي يعتمد عليها التطبيق أو واحد أو أكثر من المكونات التي 
يستخدمها حيث يتوجب عليك تحدید رقم الإصدار ورقم البناء لكل من نسخ الفريموورك التي تريد دعمها باستخدام 
>supportedRuntime>‏ أو >eguiredRuntime‌rم>‏ في ملف التعریف الخاص بالتطبیق 


حيث يتم تحديد رقم نسخة الفريموورك التي يعتمد عليها التطبيق كما يلي: 


0 إذا كانت نسخة الفريموورك التي يعتمد عليها موجودة على الكمبيوتر الذي سيشغل التطبيق سيتم استخدامها من قبل التطبيق تلقائيا 

٠‏ وإن لم تكن نسخة الفريموورك موجودة على ذلك الكمبيوتر ولم تقم بتحديد قيمة العنصر < "e‏ |†ortedRunمsupp>‏ فسيتم 
لل اشن ل ات سح ن افريرررك الرجوة ى الخماز 

ر و ا ا اوو و ی ا ي 
<supportedRuntime>‏ فالتطبيق سریتم تشغیله علی أحدث نسخة من الفريموورك محددة في ملف التعريف الخاص بالتطبيق 


كما يجدر الانتباه إلى أن ملف التعريف الخاص بالتطبيق يجب أن يكون له نفس اسم التطبيق ولكن يحمل اللاحقة . عا؟مهء فعلى سبيل المثال 
تطبیق يسمی ع×ع .اط ھ†ں ۷٤×٥‏ يجب أن يکون له ملف تعريف بم MyExecutable.exe.config‏ 


يمكنك تعريف التطبيق ليعمل على نفس النسخة التي تم إنشاؤه عليها أو عل ٠‏ ى نسخة أحدث فعلى سبيل المثال تطبيق تم إنشاؤه على 
الفريموورك 1.0 يمكنه العمل على أي من النسخ 1.0 أو 1.1 أو 2.0 أو عليها جميعا ولكن تطبيق تم إنشاؤه على الفريموورك 2.0 سيعمل 
فقط على الفريموورك 2.0 


استهداف الفريموورك 1.1 
قسم ملف التعريف المذكور في هذا القسم يوجه تطبيقا بني باستخدام الفريموورك 1.0 ليستخدم الفريموورك 1.1 وذلك في الحالات التالية: 


- إذا كانت الفريموورك 1.1 موجودة 
ا كانت كلقا فككي ال رر ورك 10 و11 مرجرهان 


وإن كانت الفريموورك 1.0 فقط موجودة سيعمل البرنامج بسبب أن الفريموورك 1.0 لا تتعرف على العنصر > <supported Runtime‏ 
وسيستخدم النسخة الموجودة في ترويسة الملف التنفيذي للتطبيق 


<?xml version ="1.0"?> 

<configuration> 

<startup> 

<supportedRuntime version="v1.1.4322 / "> 
</startup> 

</configuration> 


كيفية تحديد نسخة الفريموورك الصحيحة للمجمع 


نستخدم un †i| "e<‏ 48ء ortممuء>‏ في ملف التعريف الذي يكون في العادة بصيغة اص× حيث تحدد هذه القيمة ما هي نسخة الفريموورك 
التي يعمل عليها التطبيق وهي معتمدة في النسخة 1.1 وما بعد وتكون صيغتها 
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<supportedRuntime version="runtime version/"> 


و يكون ۷6S0‏ عبارة عن سلسلة نصية تحدد ما هي نسخة الفريموورك التي يعتمد عليها التطبيق وهذه السلسلة النصية يجب أن تماثل اسم 
المجاد الموجود في المجلد الجذر للمجلد المنصب عليه الفريموورك . وإذا لم يتم تحديد > Runtime‏ ortedمpمsup>‏ فسیتم استخدام نفس رقم 


يتم استخدام < ع" rte Run †i‏ oممuء>‏ فقط في البرامج المبنية من خلال الفريموورك 1.1 وما بعد أما بالنسبة لبرامج الفريموورك 1.0 
فیتم استخدام uni "e<‏ eqguiredRم>‏ عوضا عنھا 


والمثال التالي يوضح كبف يمكنك تحديد الاصدارات المدعومة من قبل التطبيق وذلك في ملف التعريف الخاص بالتطبيق 


<configuration> 

<startup> 

<supportedRuntime version="v1.1.4322 / "> 
<supportedRuntime version="v1.0.3705 / "> 
</startup> 

</configuration> 
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کیف نقوم بتوزیع مشرو عنا باستخدام تفنیة مہ0 C11‏ 


كيف نقوم بخطوات النشر الأساسية للنشر على قرص U0‏ أو 5۷ 


0 
۲ 


افتح مشروعك ببيئة التطوير وقم بتجربته بالكامل وتأكد من خلوه من الأخطاء 

من lãأئnة Build‏ ختر pî Configuration Manager‏ دد Active Solution Configuration‏ إلى Release‏ إن کنت قد 
انتهيت تماما من تطوير المشروع وتريد نشره بالصورة النهائية 

من قائمة 4|ں اختر ProjectNa me‏ ishاPub‏ حيث Nae‏ ec1زه۴r‏ هو اسم مشروعك عندها يفتح لك معالج النشر 
Publish Wizard‏ 

في الصفحة الأولى من إلمعllج Where do you want to publish the application‏ أدخل مسار المجلد الذي ترید نشر 
البرنامج إلیه مûں pl jly Specify the location to publish this application gڊرمئll è D:\My Program\Publish‏ 
يكن ذلك المجلد موجودا فسوف يتم إعلامك من أجل إنشائه الآن اضغط ١٠×1‏ من أجل المتابعة والانتقال للصفحة التالية من 
المعالج 

في الصفحة users instaاا the aمماiءاا 0٣‏ اا¡W‏ س10 نقوم بتحديد الطريقة التي سيقوم بها المستخدمون بتنصیيب البرنامج 
وبما أننا ننوي التوزيع باستخدام °0 أو pî From CD-ROM or DVD-ROM رlتخi ayı 5۷D‏ ضط Next‏ 

The application will not check for ڙlaخiw‎ Where will the application check for updates في !نصح‎ 
Finish ¦biضl‎ pû updates 

وهنا سوف يتم ترجمة المشروع وتجهيز الملفات اللازمة للنشر في المجلد الذي قمت بتحديده في الخطوة الأولى وهنا يمكنك 
استخدام أي برنامج نسخ أقراص لنسخ محتويات مجلد النشر إلى قرص C0‏ أو 0۷0 


كيف يمكننا تضمين المكتبات الضرورية لتشغيل البرنامج مع ملفات التوزيع 


0 
۲ 
۳ 


من orerامExp Solution‏ افتح خصائص My ۴٣ہزع c1‏ ثم انتقل لصفحة ءنااںم 

انقر زر ءعااوا۹uمrم۴r‏ فیفتح لك صندوق حوار sعاisi Pree ٩u‏ 

اتر نخر prerequisites from the same location as my application‏ oadاownط‏ من أجل النشر علی C0‏ أو 
DD‏ أو يمكنك تحدıد‏ lخlıر Download prerequisites from the component vendor's web site‏ اذا کنت تنوي 
النشر على ويب عندها سيقوم برنامج الإعداد بالحصول على المكتبات من موقع الشركات الناشرة لها وبذلك تقلل من حجم الملفات 
التي سيتم رفعها على موقعك 

بشكل عام تكون بيئة التطوير قد اختارت المكتبات التي يعتمد عليها مشروعك مسبقا وإن أردت إضافة مكتبات أخرى من القائمة 
الموجودة في صندوق الحوار يكفي أن تضع إشارة داخل المربع بجانب تلك المكتبة لتضمينه ضمن مشروع النشر ثم اضغط)0 
ثم نقوم بنشر المشروع تماما كما ورد في بداية المقال 


ملاحظات إضافية 


في صفحة ۸hءاااں‌م‏ في خصائص ا1٤‏ عزه۲۲ My‏ ستجد زر ها۴ ۸هااةءااممA‏ يمكنك من رؤية ملفات تطبيقك التي سيتم 
تضمينها عند النشر وستعرف أين سيتم تثبيتها من وںخه†S‏ مءiاطuم‏ فالقيمة ملںاعءم| ستكون في مجلد التطبيق و ها۴ Daa‏ 
ستكون في مجلد آخر سيتم إنشاؤه من أجل ملفات البيانات و مل ںاء»×ع لن يتم تضمين الملف عندما يتم توزيع البرنامج 

يمكنك تحديد بعض الخيارات الإضافية من زر ك٣‏ هام0 في صفحة ۸ءاااuںم‏ في خصائص اءعزه۴ My‏ فمتلا الخيار ٣م٣۴‏ 
٤0 installations automatically start setup when CD is inserted‏ يسبب إنشاء ملف خاص ضمن الملفات في مجلد 
النشر يقوم بتشغيل برنامج الإعداد مباشرة عند وضع القرص في الحاسب مباشرة وخيارات أخرى مثل تحديد اسم الناشر واسم 
المنتج وغيرها 

إن قمت باختيار النشر إلى ويب في الصفحة الثانية من المعالج فعند الضغط على زر "٠×1‏ ستظهر لك صفحة تسألك عما إذا 
أردت أن يكون البرنامج متوفرا ما0 أو ا0۴۴ أو الاثنين معا وكذلك الأمر عند اختيار lئخيlر From UNC path or file‏ 
share‏ 
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عند النشر على ويب قد ترغب بتمكين مستخدميك من القيام بتحديث البرنامج تلقائيا ولتحديد هذہ الخيارات عليك تحدید ۸hءااubم‏ 
Version‏ من صفحة hءااطb ٣u‏ في خصائص 1ءje٬ Automatically Increment revision ر|يخll ıı Jلضفيو My Pr‏ 
ishاubم with each‏ حتی یتم تغییر رقم إصدار النشر كل مرة تقوم فيھا بنشر مشروعك 

ومن أجل التحديثات التلقائية هناك زر ءعاةلمل في صفحة ۸ءزااںم في خصائص اءعزه٣۴ Ny‏ يمكنك من تحديد الخيارات 
الخاصة بعملية التحديث التلقائية لمشروعك ففي أعلى صندوق الحوار ستجد خيار تمكين التحديثlت The Application should‏ 
check for updates‏ تم تحدد هل سيقوم بالبحث عن التحدیثات قبل و بعد بدڍ llتطبıق gÎ After the application starts‏ 
Before the appاication starts‏ وتحديد زمن وكيفية تكرار البحث عن التحديث في After the Application رlıتخ| ll‏ 
اء وقد ترغب بتحديد رقم الإصدار الأدنى اللازم للتطبيق وخيار إضافي تقوم فيه بتحديد مسار موقع التحديث إن كان مختلفا 
عن مسار النشر 

من لا یجد عندہ Configuration Manager‏ افتح قائمة ءا0٥٣‏ تم Options‏ تم Projects And Solutions‏ وقم باختیار 
جميع الخيارات في القسم الأيمن والخيار المتعلق بهذه النقطة ھر Show Advanced Build Configurations‏ 

عند تنصيب البرنامج على جهاز العميل فإن قاعدة البيانات لا يتم وضعها في نفس المجلد مع التطبيق حيث يتم تنصيب التطبيق في 
مجلد خاص وقاعدة البيانات أو ملفات البيانات الأخرى في مجلد خاص بالبيانات ويمكن بعد التنصيب معرفة المجلد الذي تم 
تنصيب ملفات البيانات فيه باختبار My. Appاication.Deployment.Data Directory nll‏ مع الانتباه إلى استخدام حلقة 
ر٣‏ لتصيد الخطأ في حال نشر البرنامج بطرق أخرى حيث لا تكون هذه القيمة معرفة 
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Setup Wizard مIدختساب نشر مشروعك‎ 


سنتحدث هنا عن طريقة ۷۲4 مں†ه5 في نشر مشروعك والشرح هنا ينطبق على النسخة اه٠‏ هيوم ه۲" و نسخ أخرى ولكنه غير 
موجود في النسخة وئع٣م×ع.‏ 


بعد الانتهاء من كتابة تطبيقك حان الوقت لعمل مشروع الإعداد لهذا التطبيق والحل المألوف منذ فيجول بايزيك 2003 هو عمل برنامج 
الإعداد عن طريق ال W4‏ مںام وبالنسبة لأولئك الذين اعتادوا العمل بتلك الطريقة لن يجدوا سوى بعض الاختلافات البسيطة في 
طريقة العمل منها أن ال مم۸ اهاور لم تعد تتم إضافته عن طريق مكتبة دمج ءاuلكه"‏ عع۲ه/ بل أصبحت إضافته عن طريق ما 
يدعى ب وع ااواا »٥٣٥۲م‏ ولم يعد هناك حاجة لوضع الرقم التسلسلي له 


من قائمة اا۴ اختر اProjec new‏ ثم اختر other project types‏ ثم oymentاdep setup and‏ ثم اختر نوع المشروع 
Setup Wird‏ تم حدد اسم لمشروع الإعداد لديك ثم اضبط خیار ہہااںامء إلی ہہاtںuامء Add t٥‏ ثم اضغط )0 لبدء المعال 
ع 


Mew Project 


Project types: Templates: 


E: Wisual Basic Yisual Studio installed templates 
< Windows 


Office ي‎ : = 
H- Smart Device وا‎ 6 2 


ّ Database setup Project Web Setup Merge Module | Setup Wizard | CAB Project 
i. Starker Kits Project Project 


l#: Other Languages 1 
l2. ther Project Types : 
a 
:. SeEup and Deplayrnenit تت‎ 
:-- Database Smart Device 
= Extensibility LAB Project 
:- Yisual Studio Solutions 
My Templates 
ا‎ 


|١ 


Lreate a Windows Installer project with the aid of ã wizard, 


Location: DTEMP1TEsEDE يه‎ 


Add to Solution مھ‎ Lreakte directory For solution 


ÊŞ 


| Lanrel 
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ا اوو في الف اوري قن لف اقا ا مي اة ا رها افا رر ن ررر م ةا 
الخيارات الموضحة في الصورة. 


حدد خياراتك كما يناسبك ثم انتقل للصفحة التالية التي يمكنك فيها تحديد نوع الخرج المناسب الذي تريد تضمينه في المشروع ثم اضغط 
next‏ فتظهر لك صفحة خاصة بتضمين الملفات الإضافية التي تر غب باضافتها للمشر وع تم عندما تنتهي يمكنك الت لضغط إلى رن next‏ 


للانتقال للصفحة الأخيرة من المعالج والتي تعرض لك خياراتك التي حددتها من المعالج وبعد التأكد منها يمكنك الضغط على زر كما 
لإنهاء المعالج حيث يقوم بإنشاء مشروع الأعداد الخاص بك وسيقوم المعالج بعد انتهائه بفتح مستكشف نظام الملفات كبداية 


setup Wizard [2 of 3)} 


Choose a project type : 
۳ ] p0 اتر 2 مسرو‎ 
The type of project determines where and haw Files will be installed on ã target computer. 


هل رید انشاء برنادج اتیداد لصب تطبيقك 
Do ¥oluı want to create a setıuıp program to install an application?‏ 


(®) Create a sekup for a Windows application اعداد لتطبيق ويندور‎ 


اعد (J Create a setup for a web application __. 3il‏ 
۱ لتطبيق ویب 
هل تريد إنشاء رزمة قابلة لإعادة التوزے جم 


Do y¥ouı want to create a redistributable packag 


O Create a merge module For Windows Installer 
eT لے تام اعذان‎ ek مثتبة‎ 
Create a doınlaadable AB File ا اة‎ 


ملف 3© قابل للتتزيل 


Setup Wizard [3 of 3)} 


حدد خرح المشروع الذي تريد تد Choose project outputs to include‏ 


Tou can include outputs from other projects in ¥our solution, 


Which project output groups do ¥ou want to include? 

[_[ Localized resources from TestDE جن‎ 

[| #ML Serialization Assemblies from TestDE xrnl محمعات تسلسل‎ 
Content Files from TestDE lqgiحnل!‎ تllلn‎ 

Primary output from TestD— قıبطتli الر سى‎ 

اللات المصدر ىة من !لط Source Files from e508‏ |_|[ 


J] Gabug Symbols from TestD—_ ğgıطîl!‎ j روز اليم‎ 
[| Cocumentation Files from TestDE 


وتات التطبيق 
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7 File System (SetupTestDE) | Start Page 
ا‎ File System on Target Machine 

i Application Folder 

EŞ User's Desktop 

İL User's Programs Menu 


. إنشاء مجلد البرنامج Rame Type‏ 
والاختصارات الخاصة بالبرنامج: من 
صفحة "عءرك؟ أ۴ الظاهرة أمامك انقر 
على مk)t0pیDe user's‏ حتی نستطیع 

إضافة (حضتر راع کی س امب 


Add ۴ 


Lreate New Shortcut 


على كمبيوتر مستخدم تطبيقك ۴ Yi‏ 

select Item in Project 
انقر الآن بزر الفأرة اليميني في المساحة‎ 
File الفارغة في القسم الكبير بجانب‎ 


Create New Shortcut رقily‎ system 
ن موق الخرن اير ك از‎ 
Application Folder ”ذe‎ اجودزjم نقرا‎ 
ثم اختر الخرج الرئيسي للمشروع واضغط‎ 
فيتم إنشاء الاختصار لك ويمكنك الآن‎ 0) 
تسمية الاختصار كما تريد ولتحديد أيقونة‎ 
من نافذة‎ ٥١ للاختصار الجديد اختر‎ 
خصائص الاختصار الجديد واختر‎ 
تم rowseط من صندوق الحوار‎ browse 
الذي يظهر لك ثم كما فعلنا عند إنشاء‎ 
الاختصار انقر نقرا مزدوجا على‎ 

۴|عe۶ تم اختر من‎ Appاication‎ Folder 
تم انقر نقرا مزدوجا‎ e×e النوع‎ of ype 
على الخرج الرئيسي للمشروع فيتم اختيار‎ 
الأيقونة بداخل الملف التنفيذي للمشروع ثم اضغط )0 كما يمكنك اختيار أيقونة‎ 
من ملف وء إذا قمت بإضافته كملف إضافي عند تحديد الملفات الإضافية‎ 


Primary output fram TestbE (Active) 
8 WUserManual, DOZ 


يمكن هنا القيام بإفاقة أ 


o 
5 
اة سذة از‎ 
Files of ype: Al Files (*.*} ا ي‎ 2 


Properties ۰ 


للمشروع 

؟ إضافه مجلد وايقونات قائمة ابدا: نقر بزر الفارة اليميني على AddRemoYrePrograrnsIco MIRE‏ 
User's program menu‏ تم Add ۴oder‏ تم أنشئ الاختصارات التي Author M5AS‏ 
تحتاجها ضمن المجلد الذي قمت بإنشائه للتو وذلك بنفس الطريقة التي Description‏ 


استخدمناها لإنشاء الاختصار على سطح المكتب حيث يمكن إضافة اختصار DetectNewerInstaledyYer True‏ 


% 
sa34n05 EE] r a40 |3 an |05 دخ‎ 


للملفت يدي لمشروعك وكذلك لملف يخترى ديل السقخك أو ملف False‏ اا 
2 ا Keywords‏ 
المساعدة الخاص بالتطبيق أو أيا مما يمكن أن تحتاج إضافة اختصار له 

i 2‏ ب ج د د Localization English {LInited States}‏ 
. تحديد خيارات مشروع النشر اختر ءء امم هم لمشروع النشر Manufacturer MAS‏ 
الذي نعمل عليه وحدد القيم الناسبة لخيارات المشروع وأهمها تم تحديدها في Manufacturerllrl‏ 
الصورة PostBuildEyYent‏ 
ریما تکون قد استخدمت تحكما أو كتبة ما تحتاج إلى إضافة PreBuildEvenıt‏ 
6 ن ا ار ت Praductiad LE7B423-SLA-4FFA-BELA‏ 

PE إلى المشروع حيث يمكن إضافتها بسهولة وذلك بالنقر بزر‎ Merge Module 
PraductName SetupTestDE ا م‎ 
RemoyePreyiousYersions False صم۲عe الفار ءالب يلي هي 1 روح على مسروح الإعداد واختيار‎ 
RunPastBuildE¥ent ûn successful build من ۸44 حيت يكون المسار الافتراضي لمكتبات الدمج التي يقوم‎ صدduاe‎ 
searchPath فيجول ستوديو بوضعها هو‎ 
Subject C:\Program Files\Common Files\ Merge Modules ۰ 


i TT 
UpDporTUr 


قد وضع مكتبة الدمج الخاصة به فيه 


TargetPlatfForrn x 

Title SetupTestDE 

UpgradeLode 1F94394420-4396-432F-AFDF- 
Yersion 1.0.0 
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ه الآن انقر بزر الفأرة اليميني على مشروع النشر الخاصة بك ثم اختر ءع اهمه ليظهر لك صندوق حوار يمكنك من تحديد 
خصائص إضافية لمشروع الإعداد الخاص بك وإذا أردت إضافة مكتبات ضرورية استخدمتها لمشروعك أو تحديد خيارات من أين 
سیحصل مستخدم تطبيقك على هذه المكتبات عندها اضغط علی الزر prerequisites‏ وقم بتحديد الخيارات التي تناسبك ثم اضغط 
Ok‏ م Ok‏ 


SetupTestDB Property Pages 


Lonfiguration: | Release ج په‎ Loanfiguration Manager... 


E] Lonfiguration Properties اسم ملف الحرج‎ 


Build Dutput file nma: Release SetupTestDB msi 1 ا‎ 


وع اريه 
In setup File‏ ت Package Reel‏ 


Lompression: dhiخiا‎ | Optimized For speed 


limited 


E e 
مسار الاأصداف‎ 


المتطلبات الضرورية للمشروع 


Prerequisites 


Lreate setup programm to install prerequisite cormponents 


Lhoase which prerequisites to install: 
Ll j Microsoft Data ûllcess Lomponents 2Z, 
او‎ NET Framework 2,0 
cra Reports For MET Framework 2,0 
Ll jl microsoft isal J¥# NET Redistributable Package 2,0 
Ll jl microsoft visual Studio ZOOS Report Viewer 
Ll ادا اک‎ ++ Runtime Libraries x86} 


Ll jl windows Installer 2,0 
% 


heck. Microsoft lpdate For more redistributable camnponents 
Specify the install location Far prerequisites 
من موفع الناشن للمكتبة‎ 


{ê Download prerequisites fram the component Yendor's web site 
O Download prerequisites from the same location as my application صن تفل مو فح تحميل‎ 


التطبيق 
1 


O Download prerequisites from the Following location: 4û 4=. من مون‎ 
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تم شرح الخيارات الأساسية التي ستحتاجها كلما قمت بعمل مشروع إعداد ولكن هناك خيارات أخرى مفيدة قد تحتاجها أثناء عملك على 
مشروع الإعداد الخاص بك والآن وقد اطلعت على المهارات الأساسية لعمل برنامج الإعداد يمكنك بسهولة استخدام باقي هذه الخيارات بقليل 
من العمل فعلى سبيل المثال على الخيارات الأخرى انظر الصورة 


aU testDEODDataS5et, xsd 
ZTE 


SekuUplz 


a ا‎ 


Rebuild 


Fle Syste 


Registry ٣ 
Fila Types 

User Interface 

Lustom Actions 

Launch Zonditions Remy 


Renarmıêë 


Properties 


AddRemoyE 2 
Author MAS 
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القسم الحادي عشر قواعد البيانات 


ويضم المواضيع التالية: 
عندما تتصل ب 2005 ۲ع۲۷م؟ ا5 تعاني من طول فترة الاتصال 
٠‏ كيف تضيف إجراءاتك الخاصة إلى ٣عم۷إمS؟S SQ1|‏ 
ه كيف نقوم بالتبديل بين إصدارات سيكول سيرفر 2008 المختلفة 
٠‏ إنشاء قاعدة بيانات أكسس من داخل فيجول بايزيك دوت نت 
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عندما تتصل ب 2005 إمام؟ 5Q1‏ تعاني من طول فترة الاتصال 


الظاهرة 
عندما تقوم بالاتصال بمحرك قواعد البيانات ل 05 Microsoft SQ Server‏ ربما تعاني من وقت اتصال اطول مما اعتدت 
عليه في 2000 5٥۲۷٠۲‏ 5۵01 وهذا يحدث عندما تتوافر لديك الشروط التالية: 


استخدام 2.8 00۸۲ أو أقدم 

البروتوکول 1٤٥۶/۱۶‏ غير مفعل في ال 2005 SQL Server‏ 

بروتوكول الذاكرة المشتركة |معماهام رممصعص 4ءrهمء‏ مفعل في الكمبيوتر العميل وفي الكمبيوتر الذي يشغل 
SQL Server 2005‏ 


السبب 

بروتوكول الذاكرة المشتركة اrotocoم memory‏ ډre4هhء‏ الذي يستخدم في ۸0۸٥0‏ غیر متوافق مع برتوکول الذاکر ة 
المشتركة في 2005 5٥۲۷٠١‏ ا50 وعندما يحاول الكمبيوتر العميل الاتصال ب 2005 5۷٥۲‏ ا50 باستخدام بروتوكول الذاكرة المشتركة 
قوم الكمبيوتر العميل مباشرة بالانتقال إلى البروتوکول ۲٤۲/۱۶‏ من أجل القیام بالاتصال وبما أن البروتوکول 1٥۴۶/۱۶‏ غير مفعل يحصل 
التأخير عندها. حيث يقوم الكمبيوتر العميل بمحاولة الاتصال عبر البروتوكول 1۳۴/۴ لحوالي الثانية ثم يقوم بالاتصال عبر عممأم ه2۳" 
أاprotoco‏ و يوفر 2005 SQ Server‏ اتصال اەعەrotم‏ eمiم‏ edمصهم‏ للعميل المحلي إذا كانت الذاكرة المشتركة مفعلة في اه؟ 
Server 2005‏ 


الحل 


يمكنك استخدام إحدى الطرق التالية للتغلب على هذه المشكلة: 


الطريقة الأولى 


MDAC je lضge‎ SQL Server ¬ JIصتںl‎ SQL Server Native Client افتح عمیل‎ 


الطريقة الثانية 
قم بتفعيل البروتوكول ۶/٥‏ في 2005 5٣۷۵۲‏ 501 وللقيام بذلك اتبع الخطوات التالية: 


SQL Server Configuration Manager zil .\ 

SQL Server 2005 Network Configuration gy 

انقر eعذٹ” Protocols for SQLInstance Name‏ حیٹ SQL lnstance Name‏ هو اسم 2005 Q1 Server‏ لديك 
فعل البروتوکول ۲٤۲/۱۲‏ 


الطريقة الثالثة 
على الكمبيوتر العميل أنشئ اسم مستعار 6ا۸ للكمبيوترات العميلة ل 205 SQL Server‏ في 
Q1 Server Configuration Manager‏ تم قم بتحدید اotocoام‏ eمipم‏ amedم‏ خاص لھذا الاسم المستعار: 


SQL Server Configuration Manager zil .۱ 
SQL Native Client Configuration guy .Y 
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انقر علی ھا۸ تم انقر یAlia New‏ 
في خیار البروتوکول امهاه۴ حدد مم۴ عه" وأدخل المعلومات المناسبة ن Alias Name‏ ڍ Server g Pipe Name‏ 


نصيحة إضافية من التجربة قم بإيقاف تفعيل بروتوكول الذاكرة المشتركة shared memory protocol‏ 
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كيف تضيف إجراءاتك الخاصة إلى ام إمS SQ1¡‏ 


سأقوم بشرح المثال هنا على ال ووع۲م×٤‏ ٣ممك S01‏ حتى يستطيع الجميع المتابعة 
أولا - هناك تعريفا صغيرا في 5٥۲۷٥۲‏ ا50 علينا عمله حتى يعمل المتال 


Surface رثخl ڌم‎ SQL Server 2005 Surface Area Configuration دioll‎ SQL Server دlجn‎ joa Îدبا افتح من قائمة‎ ٠ 
OK ثم اختر‎ Enable CLR Integration رڼıخll اختر‎ CLR Integration ةحiص‎ ja pû for Features Area Configuration 
5Q1 Sمإ۷م ويفضل إعادة تشغيل الجهاز أو إعادة تشغيل‎ 
انشئ مشروعا جدیدا من نوع ۲۵۲۷ا وھا وسمه ۵" »٤ء٣ إن كنت تريد المتابعة معي بنفس التسميات‎ ٠ 
المتابعة حيث سيكون العمل ذات نفسه بعد تحويل الأكواد البسيطة‎ K# ه ملاحظة: سيكون الكود على عم. ۷8 ويمكن لمبرمجي‎ 
عند تعريف الإجراء‎ K# في ۷8 تكافئ اجك في‎ 5۸٣٥١ مع الانتباه إلى أن‎ C# التي سنستخدمها هنا إلى‎ 
ه اجعل محرر الكود لديك والخاص بالمكتبة التي تقوم بإنشائها كالكود التالي‎ 
Imports System.Data. SqlTypes 
PUBL Clas TeStCLasS 
Public Shared Function Triple (ByVal TrNum As SqlInt32) As SqlInt32 


Return TrNum * 3 
End Füretion 


Public Shared Function sFactorial (ByVal Tn As SqlDouble) As SqlDouble 
Dim Res As SqlDouble = 1 
For i As SqlDouble = Tn To 1 Step -1 
RES *= i 
Next 
RéelUER Res 
End FûüRNEtIoN 
ERG CLES 


يلاحظ هنا استعمال الكلمة ل١ع۲ةط؟‏ في تعريف الإجراءات التي سنستخدمها وذلك حتى نستطیع إضافتها لاحقا لقاعدة البيانات هنا نستخدم 
static functions‏ فقط الآن قم بعمل 4ا8 للمشروع ثم قم بنسخ الملف |ال.١"٠×٤1ءم٣‏ الناتج إلى المجلد :5 إذا كنت ترغب بالمتابعة 
معي حرفيا أو إلى أي مجلد آخر تريده مع مراعاة تعديل المسار في الأكواد التالية عند استيراد المكتبة لداخل قاعدة البيانات 


ه إذهب إلى محرر أوامر الدوس و شغل 501٤)"‏ كما يلي 
SQLCMD -S .\SQLEXPRESS‏ 
وعلى جهازي الأمر ")1ا50 موجود في المسار 
C:\Program Files\Microsoft SQL Server\9O\Tools\Binn‏ 
بقية العمل سيكون من ضمن ك "5۵10 وهنا لافرق بين ۷8 و 6# انتقلنا الأن لأوامر م۷ مS 5Q1‏ 
سنقوم بإنشاء قاعدة بيانات للتجربة - أدخل السطرين التاليين عند الموجه 
create database SamerTest‏ 
GO‏ 
هه ثم سنقوم بتغيير قاعدة البيانات المستخدمة إلى قاعدة البيانات الجديدة 
use SamerTest‏ 


GO 
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ه الآن سنقوم بإضافة المكتبة التي قمنا بإنشائها إلى قاعدة البيانات كالتالي مع ملاحظة الدقة في حالة الأحرف هنا حتى لو 
كنت استخدمت ۷/8 .٥م‏ لإنشاء المكتبة 


create assembly TestExtend 
"from 'D:\TestExtend.dll 

with PERMISSION_SET = SAFE 
GO 


حيث يقوم ۲۷٥۲‏ ه5 501 بتخزين المكتبة اال.ل"٠×ع1ءه‏ 1 ضمن قاعدة البيانات ولن ببقى حاجة لوجود مكتبتنا على القرص الصلب إلا 
على سبيل الاحتياط و نحدد الصلاحيات الخاصة بالمكتبة بأنها آمنة بواسطة |Jخيlر PERMISSION_SET = SAFE‏ 


ه الآن سنقوم باستيراد الأجراءات الموجودة ضمن المكتبة إلى 56٣۷6۲‏ ا50 حتى نستطيع استخدامها 
create function sFactorial‏ 
(@Tn Float) RETURNS Float‏ 
as external name TestExtend.[TestExtend.TestClass].sFactorial‏ 


§O 


create function Triple 

(@tn int) returns int 

as external name TestExtend.[TestExtend.TestClass]. Triple 
EO 


الكود يقوم بإنشاء إجراء يستخدم كود الإجراء الموجود في المكتبة حيث نعرف wlم‏ ټجرlء create function sFactorial‏ 
تم نقوم بتحدید محددات الدخل بالضبط كما عرفناها في مکتبتنا @۵٥ا؟‏ † ثم نحدد نوع الخرج ھ٥ا‏ ما tuمم‏ ثم نحدد مسار الإجراء في 
مكûبڌi external name TestExtend.[TestExtend.TestClass].sFactorial as‏ 


ه الآن وبعد إضافتنا المكتبة والإجراءات لقاعدة البيانات بقي أن نقوم بتجريبها - استخدم الكود التالي لبناء الجداول 
التجريبية 


create table Test(Tn int) 

GO 

insert into acctest values(15) 
insert into acctest values(25) 
insert into acctest values(50) 
insert into acctest values(40) 
insert into acctest values(70) 


GO 
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create table AccTest(Amount int,Interest int, Days Int) 
GO 

insert into acctest values(150000,5,95) 

insert into acctest values(250000,5,95) 

insert into acctest values(50000,4,105) 

insert into acctest values(2500000,3,180) 

insert into acctest values(25000,7,73) 

GO 


٠‏ استخدم استعلامات شبيهة بالتالي وانظر كيف تعمل إجراءاتنا ضمن علاقة عم |م5 تماما كالإجراءات الموجودة سابقا 


SQL Server jaض‎ 


SELECT Tn, DBO.Triple(Tn) from Test 


GO 


SELECT Tn, DBO.Triple(Tn), sFactorial(Tn) from Test 
GO 
مازلنا بحاجته‎ 5۵1٤0٩ لا تغلق‎ 
ه الآن ارجع وافتح مشروع المكتبة التي أنشأناها سابقا وأضف إليها الإجراء التالي ثم اعمل 4|ں للمكتبة بعد إضافة‎ 
الإجراء‎ 


FUBLIES SHAE FUREEION SIRtErest (BYVAL Value .A& SGLINEIA, _ 
ByVal Interest As SqlInt32, ByVal Days As SqlInt32) As SqlInt32 


Return CType (((Value * Interest * Days) / 36500), SqlInt32) 


ERS. FUREEION 

0 استخدم ملف المكتبة المحدث أتحديث النسخة الموجودة ضمن قاعدة البيانات کالتالي وذلك من ضمن 5۵1٤٥0۳‏ 
alter assembly TestExtend‏ 
"from 'D:\TestExtend.dll‏ 
with PERMISSION_SET = SAFE‏ 
GO‏ 

حيث يقوم الكود السابق بتحميل النسخة الجديدة من المكتبة مكان النسخة القديمة في قاعدة البيانات 
ه الآن أضف الإجراء الجديد حتى نستخدمه 

create function sInterest 
(@Value int, @Interest int, @days int) returns int 


as external name TestExtend.[TestExtend.TestClass].slnterest 
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go 
استخدم استعلاما شبيها بالتالي لتجربة الإجراء الجديد‎ 
select amount, dbo.sInterest(amount,interest,days) as Duelnterest, 
dbo.Triple(dbo.sInterest(amount,interest,days)) as TripleDue 
from acctest 
go 
إذا أردت حذف إجراء يمكنك ذلك ببساطة‎ 
DROP FUNCTION slInterest 
GO 
وإذا أردت حذف المكتبة بكاملها نقوم أولا بحذف جميع الإجراءات المرتبطة بها ثم نستخدم الكود‎ 
DROP ASSEMBLY TestExtend 
GO 


وإذا أردت استخدام تلك الإجراءات من داخل كود برنامجك: أضف قاعدة البيانات لمشروعك وقم بإنشاء الاتصال و ال 


Dataset J| ں۴ ضمن‎ ct بالطرق الاعتیادیة - تأکد من استیر اد ۶ہ‎ Dtatset 


في محرر الكود أضف الاستيراد التالي قبل كل شئ 
Imports System.Data. SqlTypes‏ 


يحوي الكود التالي وذلك باستخدام الطريقة الاعتيادية لتنفيذ أمر ام5 من ضمن الكود حيث يمكنك ملاحظة استخدام أوامر 
تعديل صلاحیيات المستخدم الحالي على ]اه5 ٥۲‏ ه6 قبل تنفيذ جملة الاستعلام 


MoCmd. CommandText = "SELECT Tn, DBO. TRIPLE (Tn) AS TRIP FROM TEST" 


Me.ListBox1.Items.Clear () 
Me.ListBox2.Items.Clear () 


TEY 
Using MoCon As New SqlConnection (My.Settings.TestConnectionString) 
Dim MoCmd As New SqlCommand 
Dim MoReader As SqlDataReader 
MOCmMA. COmMmMARATOERE, = TSB OONELOUES ELF eENaDILeA" ; 1L7" 


MoCmd. CommandType = CommandType. Text 
MoCmd.Connection = MoCon 


MoCmd.Connection. Open () 


MoCmd. ExecuteNonQuery () 


MoCmd. CommandText = "RECONFIGURE; " 
MoCmd. ExecuteNonQuery () 


MoReader = MoCmd.ExecuteReader 


If MoReader.HasRows = True Then 
While MoReader. Read 
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Me.ListBox1l.Items.Add (MoReader. Item ("Tn") .ToString) 
Me.ListBox2.Items.Add (MoReader. Item ("TRIP").ToString) 

End While 

ERO TÊ 

MoCmd.Connection.Close () 

ERE USING 

Catch ex As Exception 

MsgBox (ex.ToString) 

Enid Tey 
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كيف نقوم بالتبديل بين إصدارات سيكول سيرفر 2008 المختلفة 


في الحقيقة توجد خطوة إضافية تحتاج لعملها عند قيامك بالترقية من نسخة سيكول سيرفر 2008 إلى أخرى فمثلا عندما تقوم بالترقية من 
نسخة وومع م×ع إلى نسخة ءامه٣ Express With‏ تدعى هذه الخطوة الإضافية بترقية الإصدار eلraعٍمل‏ nەditiع‏ وأحيانا SKU‏ 
مها عمل وبالنتيجة ستحتاج لتشغيل معالج التنصيب مرتين عندما تريد الترقية من نسخة موجودة إلى نسخة مختلفة 


لماذا نحتاج لعمل ذلك 

النقطة الأساسية هي أن شجرة المزايا التي تراها مبنية على النسخة الموجودة حاليا في جهازك وعندما تريد الترقية من نسخة إلى 

أخرى تكون المعلومات الموجودة على الجهاز متعلقة بالإصدارة القديمة ونتيجة لهذا عليك تحديث تلك المعلومات لتتضمن الإصدارة الجديدة 
قبل أن تستطيع إضافة الخصائص الجديدة المتعلقة بالنسخة الجديدة. 


وتکون عملية ترقية النسخة العامة حدث نادر ولكنها تحدث بشكل أكبر بالنسبة لمستخدمي الإصدارات وع م»ع بما انه على الأغلب تكون قد 
نصبت منتجا آخر مثل فيجول ستوديو الذي يكون متضمنا على النسخة الأساسية فقط وتريد إضافة ميزة من النسخ الأخرى الأكثر اكتمالا مثل 
Express with tools‏ 


ماذا علينا أن نفعل 

ترقية الإصدار عمله۲ عمل ١٠اااكع‏ هي في الحقيقة مسيرة أخرى عبر معالج التنصيب التي تقوم فيها بإدخال مفتاح المنتج الخاص بالنسخة 
الجديدة عندما تنتقل إلى النسخة المدفوعة وبما أن جميع النسخ وع م×ع تمتلك مفتاح منتج مدخل مسبقا تكون هذه الخطوة حقيقة هي تنزيل 
تلك الحزمة إلى قرصك الصلب والمرور عبرها مرتين. 


في المرة الأولى عندما تقوم بتشغيل الحزمة عليك أن تختار خيار الترقية إلى نسخة مختlفة upgrade to a different edition‏ وه 
سيمر عبر مجموعة من الفحوصات وتعطيك الخيار لإدخال مفتاح المنتج الجديد وفي حالة النسخ Express‏ لن تضطر لإدخال مفتاح المنتج 
وحالما تنتهي من ترقية النسخة عليك تشغيل معالج التنصيب مرة أخرى وهذه المرة عليك اختيار إضافة مزايا لنسخة موجودة Add‏ 
۴eatures to an existing !nstance‏ وستمر عبر عدة صفحات معالج حتى تصل لشجرة المزايا التي تعرض لك قائمة بالمزاي) المتوفرة 
مع الإصدارة الجديدة 


هناك دوما استثناء ما هو 


نعم هناك دائما استثناء ففي حالة أمكنك تخطي خطوة ترقية الإصدار بين نسخة SQL Express With Tools‏ و llنسخã SQL‏ 
Express With Advanced Services‏ إذا كنت قد قمت بتنصيب النسخة ءامه† ۸٤اس‏ سلفا وتريد إضافة مزايا من النسخة Advanced‏ 
عار يمكنك الذهاب مباشرة إلى إضافة مزايا ٣٠‏ uةه۴‏ هل۸ وتخطي ترقية الإصدار. 


راجيا أن تكون هذه السطور قد أوضحت الأمور عندما تريد ترقية نسختك 
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القسم الثاني عشر - التعابير النظامية 


ويضم المواضيع التالية: 
ه التحقق من السلاسل النصية والأرقام والتواريخ 
ه تعابير نظامية شائعة جاهزة للاستخدام 


288 


البحث عن الكلمات والنصوص المقتبسة 


إحدى العمليات الشائعة للتعابير النظامية Regular Expressions‏ هي تقسیم سلسلة نصية طويلة إلى كلمات وهي تعتبر أبسط 
عملية يمكن أن تقوم بها باستخدام التعابير النظامية 


Dim text As String = "A word with daccéntêd vowels, and the 123 number." 
Dim pattern As String 

pattern = "\w+" 

For Each m As Match In Regex.Matches (text, pattern) 


Console.WriteLine (m.Value) 
Next 


والمشكلة في هذا المثال المبسط في انه يحتوي على أرقام وشرطات في مجموعة ۸٥0آاءم‏ ااه النتائج وقد لا ترغب بذلك وستكون المحاولة 
الأفضل على الشكل 


pattern = "\w+" 


وهذا سيعمل بشكل أفضل ولكنه سيفشل بإضافة الكلمات كاملة إذا كانت تحتوي على حروف دة accented characters‏ أو حروق من 
لغات أخرى كاليونانية متلا وتحت النسخ السابقة من الفريموورك يمكنك أن تحل هذه المشكلة باستخدام م والذي يمكنك من استخدام محارف 
يونيكود فعلى سبيل المثال [ا1)م) يمثل أي محرف صغير بينما )م يمثل أي محرف كبير وبذلك يكون حل المشكلة كالتالي 


pattern = " (\p{Lu}|\p{LL}) +" 


تم تقديم ميزة طرح فئات المحارف في الفريموورك 2.0 لتقدم حلا جديدا لهذه المشكلة معتمدا على حقيقة أنه يمكنك طرح الأرقام والشرطات 


pat ten = T(\WE[O=9 TIE™ 


وعندما تستخرج الكلمات غالبا ما تريد اسقاط كلمات الضوضاء مثل ١ط‏ و ه و ۸ه وما مثل ذلك حيث يمكنك اسقاط هذه الكلمات ضمن 
حلقة هع ... ۴۴ ولكن الأكثر أناقة هو ترك التعابير النظامية لتقوم بالتخلص منهم 


pattern = "\b(?! (the|a|an|and|lor|on|of|lwith) \b) \w+" 

text = "A fox and another animal on the lawn" 

For Each m As Match In Regex.Matches (text, pattern, RegexOptions.IgnoreCase) 
Console.Write("{0} ", m.Value) ' => fox another animal lawn 

Next 


1 


التعبير ۷ في المثال السابق يحدد أننا نبحتث عن كلمة بينما التعبير (ط[...!?) يحدد أن النتيجة يجب أن لا تحتوي أحد كلمات الضوضاء 


وبذلك تكون النتيجة بأناقة هي أن النموذج ۲۸٠1هم‏ سيطابق جميع الكلمات عدا تلك الموجودة في قائمة الضوضاء. 
مشكلة أخرى شائعة وهي عندما تريد أن تعتبر نص مقتبس 4عامں ككلمة واحدة وذلك كمثل عندما تقوم بمعالجة أمر يتم تمريره عبر 


سطر الأوامر والمثال التالي يستخدم تعبيرا نظاميا يطابق كلمة مفردة أو نص مضمن ضمن علامات اقتباس مفردة أو مزدوجة 


"FOF SiMplicity's Sake, Usé \wWwF t6 Match an ihdivVILdüal WOoEd. 
patter = TOSCO TTT RECO 


لاحظ أن .*؟ تقوم بعمل مطابقة كسولة بحيث تطابق أي محرف بين علامات الاقتباس بينما لا تطابق علامات الاقتباس للإغلاق 
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ربما ترغب أحيانا باستخراج كلمات فريدة مثلا عمدما تريد عمل قاموس بجميع الكلمات الموجودة في ملف نصي حيث يمكن أن يشكل جدول 
هاش ءاط هاوج حلا لتذكر الكلمات التي تم إيجادها حتى الآن 


Dim text As String = "one two three two zone four three" 
Dim re As New Regex ("\w+") 
Dim words As New Hashtable () 
For Each m As Match In re.Matches (text) 
If Not words.Contains (m.Value) Then 
ConSolée.WE1LteE ("{O} ", M.Valüe) 
wOrds.Add (m.Value, Nothing) 


ERE TE 
NXE 
وبشكل آخر يمكنك تحقيق ذلك باستخدام التعبيرات النظامية‎ 
pattern = T(?SWOFAS\BNWENB) (F1 NBN EEWOFAS\ Bb)" 
For Each m As Match In Regex.Matches (text, pattern) 
Console.Write (m.Value & " ") 
Next 


التعبير (ط[+س[ط[<ل۲هس>?) يطابق سلسلة محارف وأرقام (س]) على حدود الكلمة (ط)) وتحدد في هذا السياق الاسم "0۲۵س" 
والتركيب (!?) يعني أن الكلمة يجب أن لاتطابق كلمة تم إيجادها سابقا ( المرجع الخلفي <ل۲مس>)) ) وحتى إذا كانت هناك محارف أخرى 
في المنتصف ممتلة بالتسلسل +. وبتعبير واضح يعني التعبير النظامي طابق أي كلمة في النص بحيث أن لاتكون متبوعة بورود آخر نفس 
الكلمة أو ببساطة أكثر احصل على الكلمات التي لها ورود واحد في الوثيقة أو آخر ورود للكلمة المكررة وبهذا سيتم إيجاد كافة الكلمات 
الفريدة بصورة صحيحة 


لاحظ أن المحارف ط] في التعبيرات النظامية تمنع المطابقات الجزئية ف ه٠٠‏ لاتطابق 2"٥‏ وبتعبير نظامي مختلف قليلا يمكنك إيجاد 
الكلمات المكررة في الوثيقة 


pattern = " (?<word>\b\wt\b) (?=.+\b\k<word>\b) " 


حيث أن (=?) يعني أن الكلمة المطابقة يجب أن تكون متبوعة بورود آخر لها ومع أن تقنيات التعبيرات النظامية أنيقة فإن التعبير (=?) 
الخاص بالنظر للأمام يجعلها غير كفوة نسبيا فمثلا عند معالجة مصدر نصي يحتوي على حوالي مليون حرف سيكون استخدام النعبيرات 
النظامية أبطاً بحوالي 8 مرات من التقنية التي تستخدم جدول هاش ءاطة٤طءهط‏ مساعد لكي يحتفظ بسجل عن الكلمات التي تم إيجادها سابقا 


نوع أخير من البحث عن الكلمات يمكن أن نتحدث عنه هنا هو البحث التقريبي وذلك عندما تبحث عن نصين يجب إيجادهما قريبين من 
بعضهما في النص المصدر بحيث لايكون أكثر من عدد N١N‏ من الكلمات يفصل بينهما فعلى سبيل المتثال النص "one two three two‏ 
z0ne four three"‏ هو المصدر فالبحث التقريبي للکلمات "٥۸٥"‏ و "۲ں" والعدد ل مساوي 4 سیتم بنجاح بینما سوف یفشل إذا کان 
العدد ١‏ مساوي ل 3 ويمكن أن يكون نموذج البحث ببساطة كالمثال 


pattern = "\bone (\Wt\w+) {0, 4}\W+\bfour\b" 

If Regex.IsMatch (text, pattern, RegexOptions.IgnoreCase) Then 
' At least one occurrence of the words "one" and "four" 
' with four or fewer words between them. 

ERC LE 


ويمكن أن تحدد دالة مهن†ءمں؟ تأخذ سلسلة نصية كمدخل وكلمتان ورقم يمتل المسافة الأعظمية بينهما وتعيد خرج بشكل مجموعة مطابقات 
MatchCollection‏ 
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Function ProximityMatches (ByVal text As String, ByVal word1 As String, 


ByVal word2 As String, ByVal maxDistance As Integer) As MatchCollection 


Dim pattern As String = "\b" & wordl & "(\W+\w+) {0," & 


maxDistance.ToString () 


& "}\" & "WHt\b" & word2 & "\b" 
Dim re As New Regex (pattern, RegexOptions.IgnoreCase) 
Return re.Matches (text) 


ERO, FUREEION 


وبهذا تصبح قطعة الكود السابقة بالشكل 


Dim mc As MatchCollection = ProximityMatches (text, "one", "four", 4) 
If mc.Count > 0 Then 


End If 
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التحقق من السلاسل النصية والأرقام والتواريخ 


يمكننا استخدام نموذج بحث كنموذج تحقق وذلك بتضمينه ضمن الرموز ^ و $ واستخدام الطريقة Match!ا‏ بدلا من الطريقة 
Match‏ فمثلا يتحقق الكود التالي من أن النص يحتوي على خمسة أرقام تمثل رمز منطقة في أمريكا 


pattern = "^\d{5}$" 
Tf Regex.IsMatch (Text, pattern) Then 

" TES a SEEING COREa1nING fie diGIES: 
ERE. TLE 


وهنا ستصبح الأمور أكثر إثارة عندما تريد استبعاد بعض التراكيب من مجمو عة النصوص الصحيحة الشئ الذي يمكنك فعله بواسطة 
التركيب (!?) فعلى سبيل المثال التسلسل 00000 لا يعتبر رمز منطقة صالح حيث يمكنك استبعاده كالتالي 


pattern = TS (FIOOO0OOJ NASE S™ 

يمكنك استخدام تراكيب النظر مقدما (=?) للتأكد من أن نص الإدخال يحتوي على جميع المحارف ضمن فئة معطاة بغخض النظر عن مكانها 

فمتلا يمكنك استخدام التركيب التالي لفرض سياسة كلمة سر قوية والتأكد من أن مستخدم البرنامج يقوم بإدخال ثمانية محارف كحد أدنى وأنها 
تحتوي على أرقام وحروف كبيرة وصغيرة 

pattern = "^*^ (2=.*\Q) (2=.* [a-z]) (?=.* [A-2] ) \w{8, }5$" 


دعنا نرى كيف يعمل هذا التركيب. الشرط الأول (4]*.=?) يجعل البحث يفشل منذ البداية إذا كان جزء النص على يمينه لا يحتوي على 
أرقام والتركيب ([2-ه]*.=?) يتأكد أن النص المدخل يحتوي على حروف صغيرة وبالمثل التركيب ([4-2]*.=?) يتأكد من احتواء النص 
على حروف كبيرة. وتراكيب النظر للأمام هذه لا تستهلك أية محارف وبهذا يتأكد التركيب [,8)) المتبقي من أن النص يحتوي على ثمانية 
محارف کكحد أدنى 


ويظهر في التحقق من رقم في مجال معطى مشاكل مثيرة وبشكل عام قد تريد استخدام التعابير النظامية للتحقق من الأرقام والتواريخ لأن 
النوع ٥۲1۳ء0‏ يزودك بالطرق ع۴2۲ و عء۲ة٥-ر٣۲‏ وجميع الأنواع الرقمية أيضا مما يوفر مرونة أكثر ومع ذلك في بعض الحالات 
تكون التعابير النظامية قابلة للتطبيق حتى في هذه المهمة فمثلا قد تريد استخراج الأرقام والتواريخ الصحيحة من وثيقة أطول والتأكد من أن 
العدد الصحيح Integer‏ يملك قيمة حتى حد معين تعتبر مشكلة عادية بالطبع 


' Validate an integer in the range of 0 to 9,999; accept leading zeros. 
pattern = "^\d{1,4}$" 
تركيب النظر للأمام (!?) السلبي يجعلك تتحكم بعدة حالات‎ 


' Validate an integer in the range 1 to 9,999; reject leading zeros. 
pattern = "^(?!0)\d{1,4}$" 


' Validate an integer in the range 0 to 9,999; reject leading zeros. 
' (Same as previous one, but accept a single zero as a special case.) 
pattern. = TA OIE IOFNOI; AF S™ 


إذا كان الحد الأدنى للمجال المقبول ليس بالصيغة 99...999 تبقى لديك إمكانية استعمال التعابير النظامية لعمل التحقق ولكن التركيب يصبح 
أكثر تعقيدا فمثلا يتحقق التركيب التالي من أن الرقم ضمن المجال من 0 إلى 255 بدون أصفار سابقة 


Petter = WA SLOSS A LOA NOLENONAT IIIE OFS 
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التركيب [25]0-5 يتحقق من الأرقام في المجال من 250 إلى 255 والتركيب 2]0-4[|4 يتحقق من الأرقام ضمن المجال من 200 إلى 
9 والتركيب 1]4]4 يتحقق من الأرقام ضمن المجال من 100 إلى 199 والتركيب ]1-9[|١‏ يهتم بالأرقام من 10 إلى 99 وأخيرا 
التركيب ك) يغطي المجال من 0 إلى 9 وبتعديل بسيط على التركيب يمكنك التحقق من رقم |١‏ مكون من أربعة أقسام مثل 192.168.0.11 


pattern = A MESLOSSI LZ LOA OLLI ONA NOINOEINS OTL 
€ (ASLO ALOSA TOL INOANAT TLE NON NOS 


وتصبح الأمور أكثر تعقيد بسرعة ضمن المجالات الأكبر 


' Validate an integer number in the range 0 to 65,535; leading zeros are OK. 
patton = ® CIES NOE IOAN SPF IOSLO=ATNOCAF OSS LOSS INAN OSS LOAD VALA 


وقد يكون للأرقام إشارة تسبقها تحتاج لمعالجة خاصة 


' Validate an integer in the range -32,768 to 32,767; leading zeros are OK. 
patter = TE TTAINO(A FSS OTINO(S FITS LO-O NOAA FISTS AT 
& "-?3276]0-7[ | -32768|-?d)1, 4} 5" 


لاحظ في التركيب السابق أن الحالة الخاصة 3278- يجب التعامل معها بشكل مستقل وكل التركيب الباقي يملك إشارة ناقص اختيارية سابقة 
ويمكنك استخدام تقنية شبيهة للتحقق من قيمة وقت 


' Validate a time value in the format hh:mm; the hour number can have a leading 
zero. 
patter = TAC LOSTI LOLI VAI OFS LOZST NEA" 


والتحقق من قيم التاريخ قد تكون أكثر صعوبة بسبب احتواء كل شهر على عدد مختلف من الأيام وفوق كل ذلك يعتمد اليوم الصحيح في شهر 
شباط على كون السنة كبيسة أم لا وقبل تقديم حل لهذه المشكلة دعنا نرى كيف يمكن للتعابير النظامية التحقق من أن أي رقم معطى ذو 
خانتين يقبل القسمة على 4 


' TF the EIFS dIGIl 15 êven;g the. SecoRd QAiIGILE MUSE bé O0; 4; OE 8. 
' TÊ the EIESTE QIGIE 15 Odd; TERE. SECON GGIL MUSE Be. 2. OE 6: 
patter =. TA ([024681] [OAS TLSSTIT [26I 


وباستخدام افتراض مبسط بأن رقم السنة ذو خانتين فقط فسيكون بالتالي التاريخ المعطى في القرن الحالي مما سيمكننا من تبسيط التعبير 
النظامي بشكل واضح لأن السنة2000 كبيسة بعكس السنة 1900 و 2100 ولتوضيح التعبير النهائي قسم التركيب إلى أربعة سطور 


'" THIS PBOFEION deals: WIR MONERS WILE 31 days: 
DIN OL A0 SEEING SOOT STOLE ZZ SLOLVITOLET ONAN 
'" THIS pOoOFELON deals WIEB MONERS: WIE 30 days. 
IN DZ AE SEEING 3 TOF IFOITILLLY7 (SOLLOLATIAN NAP NAA Z PF 
' This portion deals with February 29 in leap years. 
DIM PS E. SERIRG = MOOS AV OLO2AGOIIOASTITLSSTOZSI™ 
' This portion deals with other days in February. 
Dim p4 As String = (OF 7(2 [0-BI COLIN MEF" 
' Put all the patterns together. 
Patten = §EECIRG:FOEMaE TOF ELP IZED, ply P2, B3 B4) 
' Check the date. 
If Regex.IsMatch (Text, pattern) Then 
" Datê 15 Valid: 
ENE TLE 
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وإن كان رقم السنة ذو خانتين أو أربع خانات وجب علينا الأخذ بعين الاعتبار أنه ليست جميع السنوات القابلة للقسمة على 100 كبيسة إلا إن 
كانت قابلة للقسمة على 400 مما يجعل التركيب النظامي أكثر تعقيدا ولكنك أصبحت تملك الخبرة الكافية لفهم كيف يعمل الكود التالي 


' This portion deal 


GONEE. S1 A SENG 
' This pofFtion deal 
CORSE S2 AE SEEING 
"THIS POFEILORD deal 
COREE 83 AS. SEEING 
' This POFELonNn. deal 
Const 54 AS SEEING 
' This portion deal 


CORSE €5. AS. SEEING 
U 


WLER MORNERS: WIEN 3L day5: 

(OS LLSSTO U LECELA  SCLOLTLELEASTLNATLOS TION FONE SOE 
WLER mMonrths: WIR 30 days: 

FOTIA SOTTLZINATOS LESION NANE. 
WIÈER days 1-28 in February ih aALL years: 

"OO CLO ITLOLINALOP ELE CSO NO YO OT 

with February 29 in years divisible by 400. 
(UFZ 29/ (LEO ZOOO AAO 2O0 OOF 

with February 29 in noncentury leap years. 

"(O2 729/ (NANO) (OLAS [2468I TOAST TLISSTITN 2O)" 
Put all the patterns together. 

Pattern = EERO Format (WT COOEALFZEMSFAEIST,, Sl, S2, S83, S54; 85) 


ll n» ص اا‎ 


ll n 


ll n 


ll 0» 


وسيكون من السهل عمل تعبير نظامي للتواريخ من الشكل رر/"/ل وذلك بالأخذ بعين الاعتبار اختلاف الحرف الفاصل بين أقسام 
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تعابير نظامية شائعة جاهزة للاستخدام 


Pattern الوصف‎ 


عدد بنقطة عائمة يمكن تمثيله اختياريا بالشكل الأسي +J?\d#(\\d+)?(E[+-]?\d+)?‏ 
رقم ست عشري | o9A-Fafji‏ 
للسلة من الحروف والأرقام والشرطاتا 0 WW‏ 

كلمة تكون فيها الحرف الأول كبير والباقي صغيرأ ~۳ + )۸-2 


كلمة فيها الحرف الأول كبير والبقية يمكن أن يكون في [A-Z][A-Za-z']+‏ 
حروف كبيرة وفواصل علوي 

كلمة بعشر حروف أو أة [A-Za-z]{1,10}‏ 

كلمة بأحد عشر حرفا أو أكثر [A-Za-z]{11,}‏ 


متغير فيجول بايزيك أو سي شارب يبدأ بحرف أو شر [A-Za-z_]\w*‏ 


واختياريا تتمته بحروف أو أرقام أو شرطات 
نص مقتبس ضمن علامتي اقتباس مفردتين أو مزدوجتين (?<q>[""])*?\k<q>‏ 


(10|11|12|0?[1-9])(?<sep>[-/])(30|31|2|04|1|4|0?]1- | تاريخ بالتنسيق الأمريكي‎ 
9])\k<sep>(\d{4}| \d{2}) 
mm-dd-yyyy OR mm/dd/yyyy 
(30|31|2\d|1\d|0?[1-9])(?<sep>[-/1)(10|11|12|0?]1- تاريخ بالتنسيق الأوربي‎ 
9])\<sep>(\d{4}| \d{2}) 
dd-mm-yyyy or dd/mm/YyYyyYy 
(2[0-3] | [O1I\d | \d):[O-5]\d تاريخ بنظام 24 ساعة والصفر السابق لرقم الساعة اختياري‎ 
hh:mm 24-hour format 
\(\d{3\)-\d{3}-\d{4} رقم هاتف بالشكل‎ 
(123)-456-7890. 


رمز منطقة أمريكي \a{5}(-\d{4})?‏ 
رقم ضمان اجتماعي أمريكي \d{3}-\d{2}-\d{4}‏ 
رقم بطاقة ائتمان من 16 خانة ((\d{16}l\d{4(-\d{41){3}) | (\d{4}(\d{4}){3}))‏ 


([O0-9A-Fa-f]{32}| [0-9A-Fa-f]{8}-([0-9A-Fa-f]{4}-){3}[0- GUID 
9A-Fa-f]{12}) 


([A-Za-z]:)?\\?([/:*?<>" [\\[+\\)*[1/:*?<>" | \\ J+ اسم ملف مع أو بدون المسار‎ 
(http | https)://([\w-]+\.)+[\w-]+(/\w- ./?%8&=]*)? An Internet URL 
\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)* An Internet e-mail address. 
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الوصف 

A four-part IP address, such as 192.168.0.1; the 
pattern verifies that each number is in the range 
0-255. 

A 16-bit integer that can be assigned to a UShort 
variable, in the range of O to 65,535. 

A 16-bit integer that can be assigned to a Short 
variable, in the range of 32,768 to 32,767. 

كلمة سر تحتوي ثمانية محارف على الأقل بحيث تحتوي على 


الأقل رقما وحرا كبيرا وحرفا صغيرا ويمكن أن يحتوي بعض 
الخزو فة الخاضة 


Pattern 


((25[0-51|2[0-4]\d | 1\d\d | [1-9]\d |\d)\.{3(25[0-5] | 2[O- 


41\d| T\ad\d | [1-9]\d | \0) 


([1-5]\d{4}| 6[0-4]\d{3}| 65[0-4]\d{2}| 655 [0-2]\d | 6553 [0- 


41|\d{1,4}) 


(-?[12]\d{4}|-?3[0-1]\d{3}|-?32[0-6]\d{2}|-?327[0-5]\d | - 
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?3276[0-7]|-32768|-?\d{1,4}) 
^(?=.*\d)(?=.*[a-2])(?=.*[A-Z])\w{8,}5 


القسم الثالث عشر - مواضيع مختلفة 


ويضم المواضيع التالية: 
If Operator e‏ 
Lambda Expressions ®‏ 
م تعابير لمدا في llعJn Lambda Expressions‏ 
Nullable Value Types‏ 
Object Initializers ®‏ 
٠‏ الاستدلال المحلي عل illوع Local Type Inference‏ 
ه إجبار المستخدم على اختيار واحدة من عدة قيم محددة سابقا في صندوق 
اللصوص 
ه استخدام الوظائف nllخijة Using Stored Procedures‏ 
© الأنواع المجوlة Anonymous Types‏ 
PropertyGrid pS>تîll e‏ 
ه التحويل بين أنواع البيانات باستخدام التضييق خأءام×ع والتوسيع ااام "| 
StringBuilder ةill e‏ 
Obsolete Attribute ةiصlgll e‏ 
ه تخزين ملف ما ضمن ه×ع البرنامج أثناء التطوير واستعادته أثناء التشغيل 
ه تشفير الأسرار للمستخدم الحالي 
ه توجيهات المعالج 
كيف تجعل لنافذة برنامج ظلا 
ف كا و ع 6 اس اك الكاضص 
ه لماذا يأخذ كودك وقتا طويلا أثناء التنفيذ 
٠‏ ملفات المصادر وتخصيص البرنlمج Resources and localization lal‏ 
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If Operator 


في البداية أحب أن أنوه أن هغه۲ مم0 ۴| هنا مختلف عن الوظيفة ۴|| أو عبارة ماع ... ٣٣٥٣‏ ... ۴| المعتادة. فسابقا عندما کنا نستخدم |١۴‏ 
كان النوع المعاد من النوع اء زط0 مما يعني أنه لن يحصل تدقيق على النوع بالحالة الافتراضية كما لن يتوفر مء ه؟|ا|امم| لتلك القيمة 
ولهؤلاء الذين يصرون على كتابة كود آمن خلال الأنواع ومن أجل الربط المبكر للكود كان يجب عليهم تحويل ذلك النوع إلى نوع البيانات 
لمراد فقد يبدو لديهم الكود كما يلي 


DIM IRE AS IRitéder =. CINE (LLEERNEA = IREB;, THEA, REB = 1)) 


ولكن الآن وباستخدام المعامل ۴| يمكننا إعادة كتابة نفس الكود والحصول على فوائد الربط المبكر وتدقيق النوع وتوفر مء" ع؟İ|||اع†ہ|‏ لتلك 


القمة 
Dim intD As Integer = If(intA = intB, intA, intB)‏ 

الصيغة العامة 

يوفر المعامل ۴| طريقة مختصرة لإعادة قيمة واحدة من قيمتين وفق شرط معين حيث يمكن استدعاؤه بتمرير ثلاثة وسائط له أو 


If( [argument1l, |] argument2, argument3 ) 


استدعاء 0۲ مم0 1f‏ بثلاثة وسائط 
عندما يتم استدعاء المعامل ۴ بثلاثة وسائط يجب أن يمكن تقييم الوسيطة الأولى كقيمة بوليانية التي ستحدد بدورها أية واحدة من 
الز رى كر ن مك تا ر اعا ها ر تكرن الرساط اللات عت اتك امامل مر فة راط كا ل 


me1صuع‏ اه ضرورية وقيمتها بوليانية وهي تحدد أية واحدة من الوسيطتين الأخريين سيتم تقييمها وإعادتها 
argume2‏ ضرورية وهي من النوع اء عزط0 ويتم تقييمها وإعادتها في حال کون قيمة ٥۸۲1‏ ۳ں ع2۲ هي عں٣‏ 
argument3‏ ضرورية وهي من النوع ءعزط0 ويتم تقييمها وإعادتها في حال كون قيمة "٠٣۲1‏ ںع۲ه هي عءاج۴ 


فعندما يتم استدعاء المعامل ۴| بثلاثة وسائط يعمل بشكل مشابه للوظيفة ۴|| فيما عدا أنها تستخدم التقييم المختصر. فالوظيفة ۴|| تقيم دوما 
جميع الوسائط الثلاث بينما المعامل ۴| يقوم بتقييم اثنين فقط من تلك الوسائط حيث يتم تقييم الوسيطة الأولى وتحويل نوعها إلى ”ما80 
فإن كانت النتيجة مں 1٣‏ فسيتم تقييم "٠۸٤2‏ عه ثم إعادة قيمتها ولكن لن يتم تقييم "٠۸۲3‏ عه في هذه الحالة. وإن كانت قيمة الوسيطة 
الأولى عءاه۴ عندها لن يتم تقييم "٠۸۲2‏ عه وسيتم تقييم "٠۸3‏ عه وإعادة قيمتها ويوضح المتال التالي استخدام المعامل ۴| بثلاثة 
u,‏ 


' This statement prints TruePart, because the first argument is true. 
Console.WriteLine (If (True, "TruePart", "FalsePart") ) 


' This statement prints FalsePart, because the first argument is false. 
Console.WriteLine (If (False, "TruePart", "FalsePart") ) 


Dim number = 3 
' With number set to 3, this statement prints Positive. 
Console.WriteLine (If (number >= 0, "Positive", "Negative") ) 


number = -1 


' With number set to -1, this statement prints Negative. 
Console.WriteLine (If (number >= 0, "Positive", "Negative") ) 
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والمثال التالي يوضح قيمة التقييم المختصر مظهرا محاولتين لتقسيم متغير umber‏ ہم على متغیر divi‏ عدا أنه عندما تكون قيمة 
٣0اه‏ مساوية للصفر يجب إعادة القيمة صفر ولا يجب محاولة القيام بعملية القسمة وإلا نتج عن ذلك خطاً وقت التنفيذ - خطأ القسمة 
على صفر - وبسبب أن المعامل ۴| يستخدم التقييم المختصر فإنه يقيم إما الوسيطة الثانية أو الثالثة اعتمادا على قيمة الوسيطة الأولى فإن 
كانت للوسيطة الأولى القيمة مں٣۲‏ فيكون إمءأ۷مل لا يحمل القيمة صفر وبالتالي يكون آمنا تقييم الوسيطة الثانية وإجراء عملية القسمة وإن 
كانت قيمة الوسيطة الأولى عءاه۴ فسيتم تقييم الوسيطة الثالثة فقط وسيتم إعادة القيمة صفر ولهذا فعندما تكون قيمة ٣مءاامل‏ مساوية للصفر 
فلن يتم محاولة إجراء عملية القسمة وبالتالي لن يكون هناك خطأً في زمن التنفيذ وبما أن ١|۴‏ لا تستخدم التقييم المختصر فسيتم تقييم الوسيطة 
الثانية دوما مهما كانت قيمة الوسيطة الأولى وبالتالي سينطلق خطا القسمة على صفر وقت التنفيذ دوما 


number = 12 


' When thé QIVISOF 1s NOt O0, BotRm TE ad ILIf EElUER 4: 
Dim divisor = 3 

CONSOLE :WELEELIRE (TEIIVLSOE «> O, Umber \ divisor; 0)) 
CORSOLEWELEEDIRE(TTE (OIVISOE <> O0, HOMBeF XX dIFILSOFE; 0)) 


' When the divisor is 0, IIf causes a runtime error, but If does not. 
divisor = 0 

CoOnSoOLE.WELEELIREe (TET LSOE <S O; RUMBErF \. QiViSoEy, 0)) 

' ` CORSOLE.WELESLIRG (IIE(AIVISOE <= 0, MOMOEF \ ALVISO, 0)) 


استدعاء اھا مم0 1۴ بوسیطتین 
يمكن حذف الوسيطة الأولى مما يمكنك من استدعاء المعامل ۴| بوسیطتین حیث تکونان کما يلي 


argument2‏ ضرورية من النوع ا1ء٠زط0‏ ويجب أن تكون من نوع يمكن أن يحمل القيمة Nothing‏ أو نوع مرجعي 
Reference or nullable type‏ حیث یتم تقییمه وإعادته عندما يحمل أي قيمة مغایرة ل عہ11†هN‏ 

argument3‏ ضرورية من النوع اء٠زط0‏ حيث يتم تقييمها وإعادة قيمتها في حالة كون قيمة 2 arg umen‏ مساویة ل 
Nothing‏ 


فعندما يتم حذف الوسيطة البوليانية عندها يجب أن تكون الوسيطة الأولى من نوع يقبل أن يحمل القيمة Nothing‏ أو نوع مرجعي 
reference or nuااabاe type‏ فإن تم تقييم الوسيطة الأولى إلى ع” ااه عندها يتم إعادة قيمة الوسيطة الثانية وفي جميع الحالات 
الأخرى يتم إعادة قيمة الوسيطة الأولى كما يظهر المثال التالي 


' Variable first 15 ã MüûLlable type: 
Dim first? As Integer = 3 
Dim second As Integer = 6 


' Variable first <> Nothing, so its value, 3, is returned. 
Console.WriteLlLine (If (first, second) ) 


second = Nothing 
' Variable first <> Nothing, so the value of first is returned again. 
Console.WriteLine (If (first, second) ) 


first = Nothing 

second = 6 

' Variable first = Nothing, so 6 is returned. 
Console.WriteLine (If (first, second) ) 
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Lambda Expressions 


ا Lambda Expression‏ هو وظيفة ١٥آاءمں۴‏ بدون اسم تحتسب وتعيد قيمة وحيدة كما يمكن استخدامها في التعابير التي تطلب 
إجراءات مفوضة عه عء |ام والمثال التالي عن هذه التعابير يأخذ قيمة ويعيد الناتج بعد إضافة واحد لها 


Function (num As Integer) num + 1‏ 
كما يمكنك إسناد هذه الوظيفة لمتغير وتمرير القيمة له 


Dim add1 = Function (num As Integer) num + 1 
Console.WriteLine (add1 (5) ) 
كما يمكنك تعريف وتنفيذ الوظيفة بنفس الوقت‎ 


Console.WriteLine ( (Function (num As Integer) num + 1) (5)) 


كما يمكن أن تستخدم ”هاوه م×ع هلطم ه|1 كقيمة معادة عند استدعاء وظيفة أو تمريرها كوسيط لإجراء مفوض ففي المثال التالي 
تستخدم Landa E×مrعووi‌o ns‏ بوليانية كوسائط للإجراء ااuوع۸ءه†‏ حيث تطبق الطريقة فحص بولياني لوسيط من النوع ١ععم†١|‏ 
ویظھر القیمة ووعععں؟ إذا كانت قیمة Lambda E×مressi0 ٣‏ هي rue‏ أو Failure‏ إن کانت قیمتەھ ۴a|se‏ 


Module Module2 


Sub Main () 
' The following line will print Success, because 4 is even. 
testResult (4, Function (num) num Mod 2 = 0) 


' The following line will print Failure, because 5 is not > 10. 


testResult (5, Function (num) num > 10) 
End Sub 


Sub testResult takes two arguments, an integer value and a 

Boolean fUnNCELOoN 

' If the function returns True for the integer argument, Success 

is displayed. 

' Tf the function returns False for the integer argument, Failure 

LS displayed. 

Sub testResult (ByVal value As Integer, ByVal fun As Func (Of Integer, 
Boolean) ) 


If fun (value) Then 


Console.WriteLine ("Success") 
Else 
Console.WriteLine ("Failure") 
End If 
End Sub 
End Module 
بإنشاء‎ ٥٠ ماا٥۲ هي الأساس لکثیر من معاملات الاستعلام ٣ا حيث يقوم المترجم‎ Lambda Expressions تکون تعابیر‎ 


تعابیر یوما م×ع هلطم هlV‏ للقيام بالعمليات الحسابية للطرائق الخاصة بالاستعلام Select gy Where Jin‏ ۾ Take sBy sy Order‏ 
W6‏ قعلى سيل المقال انظ الأستادم لاني 


Dim LONdORNCUSES = FEO CUSt IN QAB:CUSEOmMEES 
Where cust.City = "London" 
Select cust 


حيث ستتم ترجمته إلى الكود التالي 


301 


DINE, LORAORNCUSES: = AD CASE OMEES 
.WHEEe (FUNCELONn(CUSE) cüust.CItEyY = "London™) 
:SELECE(FURCETOR(OUSE) CUSE) 


وتكون صيغتها على الشكل 

هذه التعابير لا تملك اسما 

لا يمکن استخدام المعدلات معا iثJ Overrides ڃİ Overloads‏ 

ه لا تستخدم قسم ۸5 لتحديد نوع القيمة المعادة وبدلا عن ذلك يكون نوع القيمة المعادة هو نوع القيمة التي يشكلها جسم الإجراء فإن 
كان جسم الإجراء مثلا "لما" = ر†ا٣.اوCu‏ فتكون القيمة المعادة بوليانية 

ه جسم الإجراء يجب أن يكون تعبير وليس تصريح ويمكن أن يحتوي على استدعاء لوظيفة ١٥أاء"ں۴‏ ولكنه لا يمكن أن يستدعي 
إجراء Sub‏ 

٠‏ لا يوجد تعبير ٣۲ں‏ ه8 وتكون القيمة المعادة هي قيمة ذلك التعبير الذي يشكل جسم الوظيفة 

٤٣d لا یوجد تعبیر‎ ٠ 

ه يجب أن تكون جميع الوسائط محددة النوع أو تكون جميعها بأنواع بالإشارة 

ه غير مسموح بالوسائط الاختيارية 

الوسائط ٥٣٥م‏ غیر مسموح بھا 


ونتيجة لهذه القواعد سنرى أن أي تعبیر ۸هأووم۲م×٤‏ aلط‏ ها سيكون بسيطا وغير معقد 


تشترڭك هiوومام×٤‏ هلاص ه1 مع الوظائف هطع" بأنها محددة ولها جميع حقوق الوصول كأي كود مكتوب في الطريقة التي تحتويها 
وهذا يتضمن الوصول إلى متغيرات الأعضاء والوظائف وجميع المغيرات الموجودة في الوظيفة التي تحتوي التعبير Lambda‏ 
Expression‏ ففي المثال التالي المتغير اءععه] هو محلي بالنسبة ل ع”۳ه6ء٣۲ء)هم‏ والطريقة التي تم تحديد التعبير aلط"ها‏ 
Expression‏ فيها هي عhe64۳آ۲رهام‏ لاحظ أن القيمة المعادة من التعبیر ۸n٥iییعام×xع Lambda‏ يتم تعيينها ل یں e۸6‏ kهt‏ في 
مMi‏ مازالت تستطيع الوصول للمتغير المحلي أععه] 


Module Module1l 


Sub Main () 
' Variable takeAGuess is a Boolean function. It stores the target 
' number that is set in makeTheGame. 
Dim takeAGuess As gameDelegate = makeTheGame () 


' Set up the loop to play the game. 
Dim guess As Integer 
Dim gameOver = False 
While Not gameOver 
guess = CInt (InputBox ("Enter a number between 1 and 10 (0 to quit)", 
"Guessing Game", "0")) 
' A guess of 0 means you want to Give up. 
If guess = 0 Then 
gameOver = True 
Else 
' Tests your guess and announces whether you are correct. Method takeAGuess 
' is called multiple times with different guesses. The target value is not 
' accessible from Main and is not passed in. 
gameOver = takeAGuess (guess) 
Console.WritelLine ("Guess of " & guess & " is " & gameOver) 
End If 
End While 


End Sub 
Delegate Function gameDelegate (ByVal aGuess As Integer) As Boolean 


Public Function makeTheGame () As gameDelegate 
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' Generate the target number, between 1 and 10. Notice that 

' target is a local variable. After you return from makeTheGame, 
"TE T5. DOE QIEECGEIY ACCESSIBLE: 

Randomize () 

Dim target As Integer = CInt (Int (10 * Rnd() + 1)) 


'"' Print the answer if you want to be sure the game is not cheating 
' by changing the target at each guess. 
Console.WriteLlLine (" (Peeking at the answer) The target is " & target) 


' The game is returned as a lambda expression. The lambda expression 

' carries with it the environment in which it was created. This 

' environment includes the target number. Note that only the current 

' guess is a parameter to the returned lambda expression, not the target. 


' Does the guess equal the target? 
Dim playTheGame = Function (guess As Integer) guess = target 


Return playTheGame 
End Function 
End Module 


ويستعرض المثال التالي مجالا عريضا من حقوق الوصول المعششة في ٥٩١‏ اءءم۲م×٤‏ هلط" ه] فعندما يتم تنفيذ التعبير هلط" ها 
Expression‏ من Main‏ ك |اع0ه يستخدم العناصر التالية ( حقل في الفئة ل |ما۴ج - خاصية في الفئة م٠٣۴ج‏ - وسيط للإجرائية 
function With NestedLambda‏ هو 1اeve|‏ - متغير محلي ن function With NestedLam bda‏ هو Varاocaا‏ - وسیط للتعبیر 
Lambda Expression‏ المعشش ھور 2|عevا‏ ) 


Module Module3 


Sub Main () 
' Create an instance of the class, with 1 as the value of 
' the property. 
Dim lambdaScopeDemoInstance = New LambdaScopeDemoClass _ 
With {.Prop = 1} 


' Variable aDel will be bound to the nested lambda expression 

' returned by the call to functionWithNestedLambda. 

' The value 2 is sent in for parameter level1. 

Dim aDel Aš aleleğate = | 
lambdaScopeDemoInstance.functionWithNestedLambda (2) 


' Now the returned lambda expression is called, with 4 as the 
' value of parameter level3. 
Console.WriteLlLine ("First value returned by aDel: " & aDel (4)) 


' Change a few values to verify that the lambda expression has 
' access to the variables, not just their original values. 
lambdaScopeDemoInstance.aField = 20 


lambdaScopeDemoInstance.Prop = 30 
Console.WritelLine ("Second value returned by aDel: " & aDel (40)) 
End Sub 


Delegate Function aDelegate (ByVal delParameter As Integer) 
As Integer 


Public Class LambdaScopeDemoClass 


Public arield As Integer = 6 
Dim aProp As Integer 
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As Integer 
PEO 


lue As Integer) 
value 


functionWithNestedLambda _ 
As Integer) As aDelegate 
As Integer 5 


ested lambda expression is executed the first 
Del from Main, the variables have these values: 


after alLambda is called in the Return statement 
after aDel is called in Main 
5 


f 
0 


time it is executed, two values have changed: 
0 


0 


Function (level2 As Integer) _ 
Function (level3 As Integer) _ 
1leyelL # LEVEL. # LEVELS. E LOGAN. | 
# AFITEIQd # aPEOB 
on returns the nested lambda, with 3 as the 
arameter level2. 


Property Prop () 
Get 
REEUEN @ 
End Get 
Set (ByVal va 
@AEEOP 
End Set 
End Property 


Public Function 
(ByVal level1l 
Dim localVar 


' When the 
' time, as 
' levell 
' level2 = 
' level3 
" TOCEEVAE 
' aField = 
" @PEOop 1 
' The second 
' aField 2 
"' APEOB 30 
' level3 4 
Dim alLambda 


n 
a 
2 


3 
4 
6 


' The functi 
' value of Pp 


Return alLambda (3) 


کما یمکن تحویل ٥۸5‏ اووعام×٤‏ هلط ه1 لتتوافق مع الإجراءات المفوضة فعندما تعين 


End Function 


End Class 
End Module 


Lambda Expression‏ لإجراء مفوض 


هatعeاeط‏ يمكنك تحديد أسماء الوسائط ولكن مع إغفال أنواع البيانات الخاصة بها تاركا مهمة تحديدها للإجراء المفوض ففي المثال التالي 
یتم تعیین ssi0۸عام×٤‏ aلط‏ ه1 لمتغير اسمه اع من النوع ام٥ءامصه×ع‏ الذي هو عبارة عن إجراء مفوض يأخذ وسيطتين ٥‏ ععا١]‏ 


و ڇ٣‏ ا٣ء‏ لاحظ أن أنواع المتغيرات في ۸٥اووع۲م×ع‏ هلط" ه]1 لم يتم تحديدها ومع ذلك ف 
ووسیطا آخر من النوع عہ ا٣ء‏ کما تم تحدیدہ عند تعریف ع0 عام Exam‏ 


امل يتطلب وسیطا من النوع rععماہا‏ 


ExampleDel. 


' Definition of function delegate 


AS. INET 


argl1l As Integer, 


ExampleDel (ByVal 


ByVal. a02 AS SEFIRG) 


Delegate Function 


ExampleDel, with no data 
i AHÛ S5 


m 


sending in an integer and a string. 


Neither of these calls is valid. Function del requires an integer 


Declaration of del as an instance of 


5) 


' type specified for the parameters, 


Dim del As ExampleDel POUNCE LOTT, 


' Vall CELL EO det, 
Console.WriteLlLine (del (7, 


Tip) ) 


' argument and a string argument. 


'Console.Write 


3)) 


„ine (del (7, 


„1ne (del ("abc") ) 


304 


'Console.Write 


في المثال التالي يتم تحديد ٣هاوومم×ع‏ مها ليعيد القيمة م٣۲‏ إذا كان الوسيط يمتلك قسمة أو عءإج۴ إذا كان القيمة عمNo†i‏ 


Dim notNothing = Function (num? As Integer) 
num IsNot Nothing 
Dim arg As Integer = 14 
Console.WriteLine ("Does the argument have an assigned value?") 
Console.WriteLine (notNothing (arg) ) 


والمثال التالي يحدد ر0اووع۲م×ع ملطص ها يعيد ×هل ,| العنصر الأخير في مصفوفة 


Dim nüm bers) AS: Ihteger = {0;, l1l, 2; 3, 4; S5, 6, TT, BC, 9F} 
Dim lastIndex = Function (intArray() As Integer) 
IREAEFFAY LENGER =1 
For i = 0 To lastIndex (numbers) 
numbers (i) = numbers(i) + 1 
Next 
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تعابير لمدا في انمق Lambda Expressions‏ 


تعتبر تعابير لمدا من الإضافات المفيدة في فيجول بايزيك 2008 حيث يمكنك إعادتها كقيمة من وظيفة أو تمريرها كمحدد لوظيفة أخرى 
حيث تمت إضافتها للغة البايزيك كدعم للغة الاستعلامات المضمنة "|1 التي تضيف إمكانيات استعلامية قوية لبرمجة البيانات في فيجول 
بايزيك وعندما تبداً باستخدام تعابير لمدا سترى القوة والمرونة الكامنة فيها 


يشكل الكود التالي مثالا عن تعريف تعبير لمدا أساسي فهو يعرف تعبير لمدا يأخذ ntegerا‏ ویعید ٣eعteہ|‏ بحیث یأخذ قیمة 


الدخل ويعيدها مضروبة ب 2 


Dim doublelt as Func(Of Integer, integer) = _ 
Function(x As Integer) x * 2 


والنوع "ں۴ من الأنواع الجديدة في فيجول بايزيك 2008 وهو في الأساس إجراء مفوض م اهعء ام يعيد نوعا يحدده المحدد الأخير 
ويمكنك من تمرير أربعة محددات تسبق ذلك المحدد والنوع المفوض عء١ں۴‏ معرف في المجمع |ا.0۲6۵٤."”عtئSy‏ الأمر الذي يمكنك من 
الاستفادة منه فوريا وذلك لأن المجمع المذكور يتم استيراده تلقائيا عندما ننشئ تطبيقا جديدا ويمتل الكود التالي تحميلات ولهها م0۷ مختلفة 


Func 


Dim fO As Func(Of Boolean) 
Dim f1 As Func(Of Integer, Boolean) 
Dim f4 As Func(Of Integer, Integer, Integer, Integer, Boolean) 


ففي المتثال السابق ۴0 هو مفوض يعيد قيمة ۵۸ع‌اهه8 و ۴1 مفوض يأخذ ۲عع |١۸‏ ويعيد اه8 و ۴4 مفوض يأخذ أربعة محددات من 
النوع Integer‏ ويعيد قيمة من النوع eanاBo0‏ وتكمن النقطة الأساسية في التعبير لمدا هو أنه مفوض قابل للاستدعاء تماما كالمفوضات في 
فيجول بايزيك 2005 فمن ناحية المساواة اليمنى في قطعة الكود الأولى يمكنك رؤية الصيغة الجديدة للتعابير لمدا فهي تبدأ بالكلمة المحجوزة 
Function‏ متبوعة بقائمة من المحددات وتعبير وحيد ففي المثال السابق يأخذ تعبير لمدا محددا واحدا من النوع tegerہا‏ ونلاحظ عدم 
وجود تعبير R۲٣‏ وذلك لأن المترجم يعرف النوع المؤسس عليه التعبير وبهذا يقوم بتمرير عبارة نه تلقائيا وفي هذه الحالة بما أن 
× هو من النوع ١عععا"|‏ ونتيجة المعادلة هي ١ععها"|‏ لهذا فنتيجة تعبير لمدا هي ١ء‏ عه۲١|‏ أيضا ويمكن السحر في تعابير لمدا في أنه 
یمکن استخدامها کمفوض بسیط كما نری في المثال 


Dim doublelt As Func(Of Integer, Integer) = _ 
Function(x As Integer) x * 2 
Dim z = doublelt(20) 


فإن نفذت الكود السابق سترى أن القيمة المخزنة في < هي 40 وأنت بهذا قمت بإنشاء تعبير لمدا يضاعف قيمة أي ٥۲‏ ع |٠٥‏ يمرر له. 
دعنا الآن نتفحص مثال معقد أكثر باستخدام تعابير لمدا 


Dim mult As Func(Of Integer, Func(Of Integer, Integer)) = _ 
Function(x As Integer) Function(y As Integer) x * ¥ 


ویعتبر ٤اا"‏ تعبير لمدا معقد قليلا فهو يأخذ كدخل له محدد من النوع ۲ععع |١۲‏ ويعيد تعبير لمدا كقيمة له والذي أخذ بدوره قيمة ۲عععا١|‏ 
ويعيد قيمة ععع" | كما يمكننا إعادة تقسيم التعبير السابق على أسطر من أجل توضيح الكود 
Dim mult As Func(Of Integer, Func(Of Integer, Integer)) = _‏ 


Function(x As Integer) _ 
Function(y As Integer) xX * ¥ 


فتعبير لمدا الخارجي يحتوي تعبير لمدا آخر الذي يستخدم من قبل المترجم كقيمة معادة ويكون التوقيع الخاص بتعبير لمدا الداخلي مماثلا 
لتوقيع المفوض Func(Of Integer, Integer)‏ في القيمة المعادة من تعبير لمدا الخارجي حيث يقوم المترجم بتر جمة التعبير بأكمله دون 
مشاكل ويمكننا رؤية تعبیر لمدا هذا كما يلي 
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Dim mult_10 = mult(10) 
Dim r = mult_10(4) 


فالسطر الأول یحدد 10_٤اںص‏ ک (۲)10اںہ وبما أن (10)اں یعید تعبیر لمدا یأخذ محدد ویضربه ب 10 والنوع المعاد من 10_†اں" 
ھو Func)0۴ اnteger, Integer)‏ والسطر الثاني يستدعي 10_اںم" ممررا له القيمة 4 بهذا ستكون القيمة المخزنة في ۲ هي 40 ويكون 
نوع ٣‏ ھو ٣عععا٣|‏ ویعتبر ٤ا‏ مصنع لتعابير لمدا فهو يعيد تعبير لمدا مخصص بالمحدد الأول وستلاحظ أن تعبير لمدا الداخلي يستخدم 
محدد تعبير لمدا الخارجي ولكن فترة حياة تعبير لمدا الداخلي تتجاوز فترة حياة تعبير لمدا الخارجي 


تعابیر لمدا کاستدعاءات 
بما أن تعابير لمدا هي ببساطة مفوضات لذا يمكنك استخدامها في أي مكان يمكن استخدام المفوض فيه. لاحظ الإجراء التالي الذي 
يأخذ مفوض كمحدد له ويستدعي مفوض من أجل كل عنصر في القائمة 


Delegate Function ShouldProcess(Of T) (element As T) As Boolean 


Sub ProcessList(Of T) ( _ 
Elements As List(Of T), shouldProcess As ShouldProcess(Of T)) 


For Each elem in elements 
If shouldProcess(elem) Then 
' Do some processing here 
End If 
Next 
End Sub 


ويكون المثال التالي تطبيقا قياسيا على المفوضات فالطريقة اءأاءوععه٣"‏ ستمر على كل عنصر من القائمة وتتحقق فيما إذا كان عليها 
معالجة العنصر ثم تقوم ببعض المعالجة وحتى تتمكن من استخدام هذا في فيجول بايزيك 2005 عليك إنشاء وظيفة تمتلك نفس توقيع 
المفوض تم تمرر عنوان تلك الوظيفة إلى الإجراء ءأاءوهعه۴۲ 


Class Person 
Public age As Integer 
End Class 


Function _PrivateShouldProcess(person As Person) As Boolean 
Return person.age > 50 
End Function 


Sub Dolt() 
Dim list As New List(Of Person) 
'Obtain list of Person from a database, for example 
ProcessList(list, AddressOf _PrivateShouldProcess) 
End Sub 


وهذا يسبب بعض الإز عاج فغالبا عليك البحث في توثيق الكود لمعرفة ماذا يمثل توقيع المفوض تم يجب عليك مطابقته كليا وإن احتجت 
ProcesslList sli‏ مع عدة إجراءات ستقوم بإنشاء العديد من الوظائف الخاصة. 


دعنا نرى الآن كيف يمكننا استدعاء هذا الإجراء باستخدام تعابير لمدا 
Class Person‏ 


Public age As Integer 
End Class 


307 


Sub Dolt() 
Dim list As new List(Of Person) 
'Obtain list of Person from a database, for example 
ProcessList(list, Function(person As Person) person.age > 50) 
End Sub 


فباستخدام تعابير لمدا لم يعد هناك حاجة لإنشاء وظيفة خاصة للقيام بمنطق المعالجة حيث يتم تعريف المفوض في النقطة التي سيستخدم فيها 
وهذا أفضل من تعريفه ضمن وظيفة خاصة في مكان ما وفقدان محليتها باستخدام الطريقة الخاصة وبهذا أنت ترى قوة تعابير لمدا وتسهيلها 
لعملية قراءة وصيانة الكود الخاص بك 


لماذا تم تقديم تعابير لمدا 
من أجل دعم استعلامات لينك ٩ا‏ كان يجب إضافة مجموعة من الإمكانيات الجديدة للغة فيجول بايزيك ومن ضمنها كانت تعابير 
لمدا. افترض أنه لدينا الاستعلام التالي 


Dim q = From p In Process.GetProgesses() _ 
Where p.PriorityClass = ProcessPriorityClass.High _ 
Select P 


فلكي يتم ترجمة هذا التعبير يجري الكثير من العمل تحت الغطاء فالمترجم سيقوم بالمرور عبر المجموعة Process.GetProcesses‏ 
ويطبق المرشح الموجود في قسم ۷٠۲٠‏ عليها ويعيد قائمة بالعمليات التي تطابق ذلك الشرط كما نلاحظ وجود تعبير فيجول بايزيك داخل 
قم Where‏ و ProcessPriorityClass.High‏ = assاiorityاP.م‏ وذلك لتطبيق المرشح وهنا يقوم المترجم بإنشاء تعبير لمدا من أجل 
المرشح الموجود في قسم ۷٠۴١٠‏ ويطبقه على كل عنصر في قائمة العمليات 


Dim q = Process.GetProcesses().Where( _ 
Function(p) p.PriorityClass = ProcessPriorityClass.High) 


اکر ا اس قر ن ن اكان عه هة اشرق ورام اترات ت هى كن كو اك 
وافافة التي نها من تابر مدا رلا نها عك انتخدام الرظاف والمترضات هى أن المترجم ها يتك الاست لال الى على اللرع 
عى فان لعا في لقال لكق ك هة وع امك م قاو ى الامتكام رفي د الها كه اقم فى ق كع ت لدا 
ويقوم المترجم بالاستدلال آليا على نوع القيمة المعادة من التعبير لمدا بحيث تعتبر ميزة الاستدلال المحلي على النوع المدعومة من قبل 
المعالج فن الإضاقات القرية لجرل بابك 


الاستدلال المحلي على النوع 

تقديم ميزة الاستدلال المحلي على النوع القوية يعني أنه لم يعد عليك أن تقلق حول تحديد النوع الملائم لكل متغير وبالتالي فهي 

تمكنك من القيام بالعديد من الأمور التي كانت تبدو مستحيلة فالاستدلال على النوع المعاد من تعابير لمدا مفيد جدا فإن كان لديك نوع مفوض 
تريد ربطه مع تعبير لمدا لم يعد عليك تحديد نوع جميع المحددات 


Dim lambda As Func(Of Integer, Integer) = Function(x) x * x 


ففي هذا المثال یکون نوع تعبیر لمدا هو (٣ععع ter, |٣٤‏ ہا ۴unc)0۴‏ وهو مفوض یأخذ محدد من النوع ٥١‏ ع٥۸|‏ ویعید محدد من النوع 
Integer‏ وكنتيجة لهذا فالمترجم يستدل آليا لے أن المحدد × العائد لتعبير لمدا هو من النوع Integer‏ والقيمة المعادة من التعبير لمدا هي 
امعteم!‏ أيضا كما يمكنك الاستفادة من الاستدلال على نوع تعابير لمدا عندما تستدعي طريقة تأخذ مفوضا لاحظ الكود التالي 


Delegate Function ShouldProcess(Of T) (element As T) As Boolean 


Sun ProcessList(Of T) (_ 
Elements As List(Of T), shouldProcess As ShouldProcess(Of T)) 
' Method body removed for brevity 
End Sub 
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في هذه الحالة تأخذ الوظيفة †ءأاووعع ه٣۴‏ تعبير لمدا ويمكن استدعاؤها على الشكل 


Sub Dolt() 
Dim list As new List(Of A) 
' fill or obtain elements in list 
ProcessList(list, Function(a) a.x > 50) 
End Sub 


لاحظ أننا لم نحدد نوع المحدد الممرر للتعبير لمدا كما فعلنا سابقا وذلك لأن المعالج يستدل عليه بنفسه. 


كيف يمكن حدوت شئ كهذا؟ في الحقيقة هناك عدة مستويات من الاستدلال على النوع في هذا المثال ففي البداية يرى المترجم اءأ)اsومعP"ro‏ 
كإجراء عادي يأخذ (۲ 1)0۴ءا کدخل له و (۲ 4۴۲٥ ٤٤55)0۴‏ اںهط؟ في استدعاء tواایومع‌ه۴۲‏ ويرى المترجم أن ءا هي المحدد الأول 
وأنها (”0ء٣٠۴‏ 1)0۴ء| وبما أن المحدد الثاني لا يوفر تلميحات حول ماهية نوع ۲ فيقرر المترجم أن ۲ من النوع 0۸ء۴٣٠۴‏ ويستدل من هذا 
على أن محدد (۲ d٥r0 cess)0۴‏ اuهsh‏ هو من النوع ٣0ء٥۴‏ وبهذا يستدل على أن المحدد الثاني هو من illوع‏ )7 ShouldProcess(Of‏ 
وأخيرا بما أن تعبير لمدا لا يقدم نوع المحدد الخاص به والمترجم يعرف أن نوع المحدد يعتمد على توقيع 

المفوض (۲ ۵۴٣٥ ٤٤55)0۴‏ امک وقد استدل علی أن نوع المحدد ھ ھو ۸٥ء٥۴‏ ویعتبر ھذا نوعا قویا من الاستدلال على النوع فلیں 
عليك معرفة نوع محددات المفوض عندما تبني تعبير لمدا وفي الحقيقة من الأفضل ترك المترجم يقوم بذلك العمل نيابة عنك والاستدلال على 
نوع النتيجة بهذه الطريقة مفيد حقيقة إن لم يكن لديك نوع مفوض وتريد من المترجم أن يقوم بتصنيعه من أجلك علما بأن هذه الميزة متوفرة 
في فيجول بايزيك فقط 


Dim lambda = Function(x As Integer) xX * x 


ففي المثال السابق بما أن المحدد × هو من النوع ٣عععم|‏ فالمترجم يستدل آليا على أن القيمة المعادة هي من النوع ٣ععهم|‏ أيضا كنتيجة 
المعادلة الموجودة في التعبير وبما أن تعبير لمدا لا يمتلك نوعا لهذا يقوم المترجم بتصنيع مفوض مجهول يطابق شكل تعبير لمدا ويربط ذلك 
النوع المفوض بتعبير لمدا. وهذه ميزة عظيمة لأنها تعني أنه يمكنك إنشاء تعابير لمدا بسرعة بدون أن تحتاج لتعريف الأنواع المفوضة 

الخاصة بها. فكم مرة كنت في وضع تحتاج فيه لتطبيق مجموعة من المتغيرات وتحتاج إلى فعل ذلك في العديد من الأماكن ففي الكود التالي 


مرت عدة حالات مشابهة وعادة يمكننا معالجة ذلك بحيث يمكن التحقق من الشرط في مكان واحد بدلا من التشتت في أرجاء الوظيفة 


Class Motorcycle 
Public color As String 
Public CC As Integer 
Public weight As Integer 
End Class 


Sub PrintReport(motorcycle As New Motorcycle) 
If motorcycle.color = "Red" And motorcycle.CC = 600 And _ 
Motorcycle.weight > 300 And Motorcycle.weight < 400 Then 


' do something here 
End If 


' do something here 


If motorcycle.color = "Red" And motorcycle.CC = 600 And _ 
Motorcycle.weight > 300 And Motorcycle.weight < 400 Then 


' do something here 
End If 
End Sub 


وفي بعض الأحيان يستخدم هذا التحقق في هذه الوظيفة فقط ويمكننا إضافة إجراء في الفئة لدعم تلك الوظيفة فقط والقيام بذلك يؤثر على 

عملية صيانة الكود فماذا لو قام أحد ما باستدعاء هذه الوظيفة في مكان آخر واحتجت للقيام بتعديل ما وقد يؤدي هذا في بعض الفئات إلى 

وجود وظائف يصعب تعقبها جاعلا خاصية مء ء؟|||م٤ه|‏ أقل فائدة لوجود العديد من المدخلات الإضافية فيها إضافة إلى خرق منطق 
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المحلية وإن قمنا بذلك باستخدام طريقة منفصلة مختلفة عندها يفضل أن تكون قريبة من الطريقة التي تستخدمها ومع وجود العديد من 


الأشخاص يعملون على نفس المشروع يصبح من الصعب صيانة المحلية على المدى الطويل وهنا يأتي استخدام تعابير لمدا وترك المترجم 
يقوم آليا بإنشاء المفوضات ويقوم باستخدامها عند الحاجة 


Sub PrintReport(motorcycle As New Motorcycle) 
Dim check = Function(m As Motorcycle) m.color = "Red" And _ 
m.CC = 600 And _ 
m.weight > 300 And _ 
m.weight < 400 


If check(motorcycle) Then 
' do something here 
End If 


' do something here 


If check(motorcycle) Then 
' do something here 
End If 
End Sub 


قمنا هنا بتعديل منطق تفحص بعض شروط عءاءل٣٤ ٥٤٥۲‏ ليستخدم تعابير لمدا عوضا عن سيئات الطرائق الخاصة حيث سيقوم المترجم 
تلقائيا بإنشاء النوع المفوض ويقوم بالعمل لكي نستطيع استدعاء تعابير لمدا أينما احتاج ذلك وهذه الطريقة مفيدة لأنها تضع المنطق قريب من 
التصريح حيث نقوم بتصنيع نسخة واحدة ويقوم المترجم بعدها بمعظم عمليات الصيانة ويعتبر هذا مفيدا لأنه يمكنك من بناء تعبير معقد 
كجسم لتعبير لمدا وباستخدام الربط المتأخر والاستدلال على النوع في هذا السيناريو فلا نحدد نوع تعبير لمدا أو المتغير 


Dim lambda = Function(x) X * x 


وهنا أيضا يولد المعالج مفوض مجهول من أجلك ولكن يحدد نوع تعبير لمدا ك اء عزط0."ءاءر؟ وهذا يعني أنه قد تم تفعيل الربط المتأخر 
في هذا السيناريو عندما يكون الخيار عاك "هنام على الوضع 0f‏ ويعتبر هذا السيناريو جيدا بالنسبة لأولئك الذين يعتمدون على الربط 
المتأخر حيث أن تعابير لمدا تدعم عمليات الربط المتأخر بشكل كامل ففي المثال السابق طالما أن المعامل * معرف على الأنواع الممررة إلى 
تعبير لمدا فسوف يعمل 


Dim a = lambda(10) 

Dim b = lambda(CDec(10)) 

Dim c = lambda("This will throw an exception because " & _ 
"strings don't support the * operator") 


کاوین لفن ا طا ان اعا رجن في كات زم اف بق تر فر ر قرت بجی کی کے کل جه کا 
أن تعابير لمدا تتأقلم بشكل رائع مع الربط المتأخر في فيجول بايزيك. 


توليد الكود تحت الغطاء 
بعدما استكشفنا تعابير لمدا دعنا نلقي نظرة على الكود الذي يتم توليده من قبل المترجم. انظر للكود السابق 


Sub TestLambda() 
Dim doublelt As Func(Of Integer, Integer) = _ 
Function(x As Integer) X * 2 
Console.WriteLine(doublelt(10)) 
End Sub 
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أنت تعلم أن ء"ں۴ هو مفوض والمفوضات هي مؤشرات للوظائف فكيف يقوم المترجم إذا بالعمل؟ في هذه الحالة يقوم المترجم بإصدار 
وظيفة جديدة ويربطها بمفوض يشير إلى تلك الوظيفة الجديدة 


Private Function $GeneratedFunction$(x As Integer) As Integer 
Return x * 2 
End Function 


Sub TestLambda() 
Dim doublelt As Func(Of Integer, Integer) = _ 
AddressOf $GeneratedFunctionS 
Console.WriteLine(doublelt(10) 
End Sub 


حيث يأخذ المترجم تعبير لمدا وينشئ وظيفة جديدة بمحتوياته ويغير عبارة التصريح بحيث يأخذ تعبير لمدا عنوان الوظيفة الجديدة المولدة 
ففي هذه الحالة يتم توليد الوظيفة بنفس الأب الذي يحتوي على الطريقة التي تستخدم تعبير لمدا فإن كان هلط ها†ءه7 معرف في الفئة ° 
فسوف يتم تعريف الوظيفة الجديدة في الفئة C‏ أيضا ونلاحظ أن هذه الوظيفة غير قابلة للاستدعاء ويتم التصريح عنها باستخدام محدد 
الوصJg Private‏ 


تعابير لمدا ورفع المتغيرات 

في الأمثلة السابقة يشير جسم تعابير لمدا إلى متغيرات يتم تمريرها إلى تلك المتغيرات ومع ذلك تأتي قوة تعابير لمدا مع ثمار رفع 
المتغيرات وجميع تعابير لمدا مبنية على مبدأً متشابه. وتعبير لمدا يمكن أن يستخدم متغيرات مرتبطة أو متغيرات حرة لم يتم تعريفها ضمن 
التوقيع الخاص بتعبير لمدا فالمتغيرات الحرة ممكن أن يكون قد تم التصريح عنها في الإجراء المستدعي للتعبير فقد تكون متغيرات محلية أو 
محددات ممررة لذلك الإجراء والتعابير المرتبطة تكون تلك التي تم التصريح عنها في جسم التعبير أو عناصر في الفئة المحتوية للتعبير لمدا 
متضمنا الفئة الأب لتلك الفئة. وهذا هام من أجل التمييز بين المتغيرات المرتبطة والحرة في تعابير لمدا الخاصة بك لأنها تؤثر على دلالة 
تعبير لمدا والكود الذي يتم توليده وبالتالي يؤثر على صحة برنامجك وهذا مثال يحتوي على تعابير لمدا تستخدم متغيرات مرتبطة وأخرى 
حرة 


Function MakeLambda() As Func(Of Integer, Integer) 
Dim y As Integer = 10 
Dim addTen As Func(Of Integer, Integer) = Function(ByVal xX) x + y 
Return addTen 

End Function 


Sub UseLambda() 
Dim addTen = MakeLambda() 
Consloe.WriteLine(addTen(5)) 
End Sub 


فهذا الكود سيقوم بطباعة 15 على نافذة الكونسول عندما يتم استدعاء هلط" هاعءل ولكن يمكن أن تسأل نفسك كيف يعمل هذا؟ تحدد 
الوظيفة aلdطاصهاع)ة"‏ المتغير ب كمتغير محلي والتعبير لمدا يستخدم ‏ ب ولكن التعبير لمدا يتم إعادته كنوع معاد من الوظيفة 
MakeLkambda‏ والوظيفة ةلط" هاعءل تحصل على التعبير لمدا من الوظيفة aل١طا"هاع)ه"‏ وتنفذ التعبير لمدا ويبدو الأمر كما لو أن 
المتغير ر قد تم تذكره من قبل التعبير لمدا. ففترة حياة المتغير ب تنتهي مع نهاية الطريقة aلط‏ 2 اع )هة فعندما نحصل على التعبير لمدا 
من da‏ اص Maka‏ فسوف تصبح هلط" هاع)ج" خارج المجال ويجب إزالة المساحة التي تحجزها في المكدس وبطريقة ما يعلق هذا 
المتغير مع تعبير لمدا وهذا ما يعرف برفع المتغير ع” ۴اا عاطها ج۷ ففي هذه الحالة يدعى المتغير ب بالمتغير المرفوع وكماترى 
فالمتغيرات المرفوعة تعتبر ميزة برمجية قوية فالمترجم يقوم بالكثير من العمل من أجل تمكينك من إمساك حالة المتغير حيث يحفظها خارج 
مجال فترة حياتها الطبيعية فعندما يصادف المترجم تعابير لمدا تستخدم متغيرات حرة يقوم برفع المتغير إلى فئة تدعى ٣روا٣‏ بحيث تكون 
قر خباة هذه فة تمت إلى ما بس رة حاة امترات الحرة المستهافة داخنها وق المتر جم باإغادة فة الوضول إلى المتخر ات في 
الطرق ليتم الوصول إلى نسختها الموجودة في الفئة مuوهاz)‏ 


دعنا نسير مرة أخرى عبر المثال Makelam bda‏ 
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Dim MakeLambda() As Func(Of Integer, Integer) 
Dim y As Integer = 10 
Dim addTen As Func(Of Integer, Integer) = Function(ByVal x) x + y 
Return addTen 
End Function 


وكما قمنا بالتحليل سابقا فالمتغير × مرتبط بمحدد التعبير لمدا ولكن المتغير ر تعبير حر ويقوم المترجم بالكشف عن ذلك ويتابع بإنشاء الفئة 
Closure‏ التي تلتقط المتغيرات الحرة كما في تعريف تعبير لمدا 


Public Class _Closure$_ 1 
Public y As Integer 
Public Function _Lambda$_ _1(ByVal x As Integer) As Integer 
Return x + Me.y 
End Function 
End Class 


يمكنك رؤية أن متغير ١إںوهاع‏ يلتقط المتغير ر ويخزنه في الفئة ٠إںءه‌اع‏ ويتم تحويل المتغير الحر بعدها إلى متغير مرتبط داخل الفئة 
م suهاC‏ كما يقوم المترجم بإعادة كتابة الطريقة التي تحتوي على التعبير لمدا لتبدو كما يلي 


Function MakeLambda() As Func(Of Integer, Integer) 
Dim Closure As New _Closure$_ 1 
Closure.y = 10 
Return AddressOf Closure._Lambda$_ 1 

End Function 


يمكنك الآن رؤية كيف يقوم المترجم بإنشاء المتغير مءإرءه‌اع ويعيد كتابة المتغير ر الذي تم رفعه ضمن المتغير ٠إ‏ uءها٣‏ ويضبط قيمته 
ويعيد ببساطة عنوان تعبير لمدا المخزن ضمن الفئة ٠إ‏ وها ومن الهام ملاحظة أن المترجم يقوم برفع المتغيرات الحرة في تعابير لمدا فقط 
ويتم التقاط حالة المتغير في ۲٥‏ اوها الذي يبقى موجودا طالما أن تعبير لمدا بقي موجودا. انظر للمثال التالي 


Sub Test() 
Dim y As Integer = 10 
Dim Lambda As Func(Of Integer, Integer) = Function(ByVal x) x + ¥ 
۷ = 20 
Console.WriteLine(Lambda(5)) 
End Sub 


ما هي القيمة التي تظهر عند تنفيذ الوظيفة السابقة؟ إن قلت 25 فقد أصبت. فلماذا 25 إذا؟ المترجم يقوم بالتقاط وإعادة كتابة جميع المتغيرات 
الحرة ۷ إلى نسخة Closure‏ کالتالي 


Sub Test() 
Dim Closure As New $Closure_Compiler_Generated_NameS 
Closure.y = 10 
Dim Lambda = AddressOf Closure.Lambda_1 
Closure.y = 20 
Console.WriteLine(Lambda(5)) 
End Sub 


ففي الوقت الذي يتم تنفيذ تعبير لمدا فيه تكون قيمة ب قد تغيرت إلى 20 وبهذا فعندما يتم تنفيذ تعبير لمدا يعيد 20 + 5 وهذا هام جدا لأنه 


عندما نأتي للحديث عن الحلقات وأن المتغيرات الحرة يتم التقاطها في وها وحيد قد ترى تصرفات غريبة. انظر للمثال التالي 


Sub Test() 
Forl=1To05 
StartThread(Function() | + 10) 
Next 
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End Sub 


افرض أن 5۲١٣۸۲٥١۵١‏ ينشئ مسارا جديدا ويطبع النتيجة على الكونسول وطالما أنه تم التقاطه إلى ءإںءهاع فيمكن أن تكون الحلقة قد 
غيرت قيمة | في الوقت الذي يقوم المسار فيه باستدعاء تعبير لمدا وفي هذه الحالة فالبرنامج قد لا يطبع النتيجة المتوقعة وبدلا عن ذلك عليك 
رؤية المتغير الملتقط داخل الحلقة 


Sub Test 
Forl=1To05 
Dim x =| 
StartThread(Function() x + 10) 
Next 
End Sub 


فالكود سيلتقط الآن قيمة × في ءإںءها والبرنامج سيطبع القيم كما هو متوقع ومن الهام جدا معرفة أية متغيرات سيتم رفعها عندما سيتم 
تنفيذ تعبير لمدا ومتى سيتم تغيير قيمة تلك المتغيرات المرفوعة وبذلك يمكنك التأكد من أن برنامجك يتم تنفيذه بصورة صحيحة. 


استخدام تعابير لمدا بالشكل الأمثل 
في فيجول بايزيك 8يمكنك تمرير تعبير واحد كجسم لتعبير لمدا وقد تم تقديم كلمة محجوزة ثلاثية جديدة هي ۴| لتمكنك من 
كتابة تعابير شرطية ذات نوع كامل 

Dim x = IF(condition, 10, 20) 


والكلمة المحجوزة ۴| مشابهة لاستدعاء الوظيفة |١۴‏ فيما عدا أنها آمنة ضد النوع. وهذا يعني أنه في المثال السابق يتتبع المترجم كلا فرعي 
الكلمة المحجوز ۴| ويعيد ۲ع ععا"| وبهذا فهو يطبق قواعد الاستدلال على النوع ویقرر أن نوع »× هو ۲٥عهہ‏ | ولکن استخدام ۴|| سيعيد 
النوع اء عزط0. كما يمكنك استخدام |f‏ في تعبير لمدا 


Dim x = Function(c As Customer) _ 
If(c.Age >= 18, c.Address, c.Parent.Address) 


ففي المثال السابق افترض أنه لديك فئة ٠١‏ ۳٥ں‏ يتضمن تعريفها الخاصية ءءع۲لل۸ التي تمتل العنوان الحالي للزبون حيث أن تعبير 
لمدا يستخدم التعبير الثلاثي ۸٥‌آووم×ع‏ ر۲ هم٣٠٣‏ لتطبيق الشرط على محدد الدخل فإن كان عمر الزبون مساويا أو أكثر من 18 فهو يعيد 
عنوانه وإلا فهو يعيد عنوان والده وهنا يتم استخدام الاستدلال على النوع أيضا ويقوم المترجم بتحدید نوع تعبیر لمدا لیکون re59‏ ل۸ تم 
يقوم بإنشاء النوع المفوض × بالطريقة التي تمت مناقشتها سابقا حيث يأخذ النوع المفوض ٠۲‏ ٥اءں‏ كدخل ويعيد sءعكل۸.‏ 
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Nullable Value Types 


في بعض الأحيان نتعامل مع قيمة ذات نوع ولكنها قد لا تملك قيمة محددة في حالات معينة فحقل في قاعدة بيانات مثلا يمكن 
ثفييزه بين أن آله قيمة ذات معني أو أن ليس.له قيمة أدا. عندها یمکننا توسیع أنواع القيم لتأخذ إما قيما عادية أو قيم لا شئ null Value‏ 
وھذا التوسیع يدعی عمty .nullable‏ 


کل عم را عاطھااuم‏ يتم إنشاؤه من التركيب (١)عاطه|اں.‏ ففي المثال التالي يتم التصريح عن متغير يحمل النورع ہaعا0مB Nullable‏ 
مما کما يلي 
Dim ridesBusToWorkl1? As Boolean‏ 


Dim ridesBusToWork2 As Boolean? 
Dim ridesBusToWork3 As Nullable (Of Boolean) 


فالمتغير W0)‏ 0آء8uءعلام‏ يمكن أن يحمل القيمة مرإ أو القيمة مءاهج۴ أو أن لا يحمل أي قيمة إطلاقا وتكون القيمة الافتراضية له هي 
أنه لا يحمل أي قيمة وفي هذه الحالة قد يعني أنه لم يتم الحصول على تلك المعلومة من ذلك الشخص وفي المقابل القيمة عءاه۴ قد تعني أن 
الشخص لا يركب الباص للعمل. 


يمكنك التصريح عن متغيرات أو خصائص أو حتى مصفوفات أو إجراءات Nullable type öداعإ كنكaي la nullable types ja‏ منjù‏ 
وظيفة ما. ولكن لا يمكنك إنشاء ممرا ماطھاام من نوع مرجعي ممر† ع "مم۴ Re‏ مثل المصفوفات أو الفئات أو عم ام فالنوع 
الأساسي يجب أن يكون نوع بالقيمة ممر† ue‏ اج۷ 


تعتبر الخصائص HasValue‏ و ueاVa‏ هي العناصر الأكثر أهمية في عمر† ٥اطدااںم‏ فمن أجل متغير من النوع ماطھااںم 
مم تخبرنا الخاصية عںاة۷ءه٠‏ فيما إذا كان للمتغير قيمة محددة أم لا فإن كانت قيمة تلك الخاصية م٣1‏ عندها يمكنك قراءة قيمة المغير 
من الخاصية مں اج۷ ويجب عليك الانتباہ إلى أن كلتا الخاصیتين عںاة۷ه١‏ و عماج۷ هما خاصيتين للقراءة فقط. 

عندما تصرح عن متغير من النوع ممرا عاطداام تكون القيمة الافتراضية للخاصية عںاة۷ءة١‏ هي ءءاه۴ وهذا يعني أن المتغير في 
الحالة الافتراضية لا يحمل أي قيمة محددة عوضا عن القيمة الافتراضية لنوع القيمة المؤسس لهذا النوع ففي المثال التالي لا يكون للمتغير 
num berOfChildren‏ قيمة محددة مع أن القيمة الافتراضية للنوع ٣هعع]"!|‏ هي الصفر 


Dim numberOfChildren? As Integer 
وتكون القيمة لا شئ عماج۷ اا مفيدة لتوضيح أن قيمة المتغير غير معروفة أو غير محددة فإن تم التصريح عن المتغير‎ 
على أنه ممععtم! فلن يكون هناك قيمة تشير إلى أنه لم يتم توفير المعلومات المطلوبة بعد‎ number OfCchildren 


كما يمكن ضبط قيمة المتغير من النوع عممtyp‏ eاطهااuم‏ بالطريقة الاعتيادية كما في المثال التالي الذي يضبط قيمة للمتغير 
drenاfChi umber‏ م الذي تم التصريح عنه في المثال السابق 


numberOofChildren = 2‏ 
وإن كانت لمتغير أو خاصية من النوع عمرا عاطهااںم قيمة محددة يمكنك إعادتها للقيمة الأساسية بعدم احتوائها على قيمة وذلك بضبطها 
إلى چہiط†tمN‏ كما في المثال 
numberOfChildren = Nothing‏ 
مع انه يمكنك ضبط القيمة Nothing‏ للمتغير من النوع Yl Nullable type‏ أنه لا يمكنك فحصه بالمقارنة مع Nothing‏ باستخدام علامة 


المساواة وتكون قيمة المقارنة التي تستخدم علامة المساواة مثل عہاNo†۸‏ = someVar‏ دائما مساوية ل عم iط†مN.‏ بدلا عن ذلك يمكنك 
فحص قيمة الخاصية عںاة۷ءهط من اجل القيمة عءإه۴ أو باستخدام المعامل ء| أو المعامل خ0١ء|‏ 
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للحصول على القيمة المخزنة في متغير من النوع عمرا عاطدااںم يجب عليك أولا فحص الخاصية عںاج۷ءه| للتأكد من أنها تحمل قيمة 
فإن حاولت قراءة قيمة ذلك المتغير وكانت قيمة خاصيته ueاHasVa‏ مساوية ل اه۴ سوف يقوم فيجول بايزيك بإطلاق استثناء 
d0 peration Exception‏ iاnva|‏ ويرينا المثال التالي الطريقة المنصوح بها لقراءة قيمة المتغير ١۸٥ل|ط٣r0۴عمbصuم‏ الخاصة بالمثال 
السابق 


If numberOfChildren.HasVvalue Then 

MsgBox ("There are " & CStr (numberOfChildren) & " children.") 
Else 

MsgBox ("It is not known how many children there are.") 
End If 


عندما یتم استخدام متغیرات من النوع ۸ھعاہہ8B‏ ٥اط‏ ھااں في التعابیر المنطقیة یمکن أن تکون القیمة مں ۲٣‏ أو ماج۴ أو ع”أط†هN‏ وفيما 
يلي جدول الحقيقة من أجل كA‏ و 0۲ بما أن 1ط و 2ط يملكان ثلاثة قيم محتملة يكون هناك تسعة احتمالات للمقارنة 


b1 b2 b1 And b2 b1 Or b2 
Nothing Nothing Nothing Nothing 
Nothing True Nothing True 
Nothing False False Nothing 
True Nothing Nothing True 
True True True True 
True False False True 
False Nothing False Nothing 
False True False True 
False False False False 


عندما تكون قيمة المتغير المنطقي أو التعبير عه" فالقيمة هي ليست ع ں٣۲‏ و ليست مءاه۴ أيضا انظر للمثال التالي 


Dim b1? As Boolean 
Dim b2? As Boolean 
b1 = True 

b2 = Nothing 


' The following If statement displays "Expression is not true". 
If (b1 And b2) Then 

Console.WriteLine ("Expression is true") 
Else 


Console.WriteLine ("Expression is not true") 
End If 


' The following If statement displays "Expression is not false". 
If Not (b1 And b2) Then 

Console.WriteLine ("Expression is false") 
Else 


Console.WriteLine ("Expression is not false") 
End If 
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ففي هذا المتال تقیم ٥1 ۸۸۵ ٥2‏ إلى ع" اه" وبالنتيجة یتم تنفیذ قسم ماع في كلا تعبير ۴| ويكون الخرج كما يلي 


Expression is not true 
Expression is not false 


لاحظ ان ما۸۸04 و ١ء|ع0۲‏ اللتين تستخدمان التقييم المختصر تقومان بتقييم معاملهما الثاني في حالة كون التعبير الأول قد تم تقييم قيمته 
Nothing JJJ‏ 


إن كان كلا أو أحد المعاملات في معادلة رياضية أو منطقية أو إزاحة عاطه|ااںم فستكون النتيجة أیضا عاطھااںم وإِن کان لكلا 
المعاملين قيمة لا تساوي و٣‏ اه" تتم العملية وفق قيم تلك المعاملات كما لو أنهما من نوع قيمة وليس عاطهاانام ففي المثال التالي 
المتغير ۲٥1‏ 2م١٠0‏ والمتغير 1٠ء‏ نوعان ضمنيان فإن أوقفت مشيرة الفأرة قليلا فوقهما ستلاحظ أن المترجم يشير إلى أن كلاهما 
nullable type ja‏ 


"Variable n is a nullable type, but both m and n have proper values. 
Dim m As Integer = 3 
Dim n? As Integer = 2 


' The comparison evaluated is 3>2, but comparel is inferred to be of 

' type Boolean?. 

Dim comparel = m > n 

' The values summed are 3 and 2, but suml is inferred to be of type Integer?. 
Dim suml = m + n 


' ‘The FOLLOWING LINE. QALSPLANS SI 2 5 FF TEE 
CONSOLE .WELEELINEM € T 8# TENET *# TE UML E ™ *# FT € cCompaFslL) 


وإن كانت قيمة واحد أو أكثر من المعاملات ع امهل فالنتيجة ستكون عNothin‏ 


' Change the value of n to Nothing. 
n = Nothing 


Dim compare2 = m > n 
Dim sum2 = m + n 


' Because the values of n, compare2, and sum2 are all Nothing, the 


" FOLLOWINGS LINeQLSPLAYS. 3 %8 # 
CONSOLE. WEILIteELInE(M & " =" E RN & " * TT & sSUmM2 & " * " ¢ compared) 


تشکل قواعد البیانات أکثر أماکن استخدام sھمرا‏ ماطھااںم أهمية مع أن لیست جمیع أغراض قواعد البیانات تدعم sممر†‏ ماطھااںم ولكن 
ال Adapter‏ eاطهr‏ المولد من قبل المصمم يدعمها 
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Object Initializers 


تمكنك 6|اntiaا Objet‏ من تحديد خصائص غرض معقد ضمن تعبير واحد وتستخدم لتعريف متغيرات من كلا من الأنواع 
المعروفة والمجهولة فلو فرضنا أنه لدينا فئة بسيطة eعyهام‏ "۴ معرفة على الشكل 


Public Class Employee 
PEivatê _Mame: AS SEEING 
PEIi¥atê _Salalfy As ShOEE 
PEivatê Address As String 


Public Property Name () As String 


Get 
Retürn _naَme 
End Get 
Set (ByVal value As String) 
_name = value 
End Set 
End Property 


PUOLLC FEODEFEY SAlary(). As ShHOFE 
Gel 
Return _Salalry 

End Get 

Set (ByVal value As Short) 

If value > 0 Then 
_Salalry = value 

ERQ’ TE 

EN Se 

ENS. BEOpEEFEY 


Public Property Address() As String 
GE 
Return _Address 

End Get 

Set (ByVal value As String) 

_Address = value 

End Set 

End Property 

ENG TCIaSS 


يمكننا باستخدام تعريف متغير يشير إلى تلك الفئة واسندا الخصائص كما في الكود التالي مع أننا لسنا مضطرين هنا لضبط قيم كافة 
الخصائص التي تحتويها الفئة فنقوم بضبط قيم الخصائص التي نحتاج لضبطها فقط 


Dim Empl3 = New Employee With {.Name = "Mazen", .Salary = 8500} 


Dim Empll1 As New Employee With {.Name = "Reem", .Salary = 10000} 


کما یمکننا اختصار قسم 5 هنا فيمكن كتابة التصريح کما يلي وذلك اعتماد على local type inference‏ 


Dim Empl5 = New Employee With {.Name = "Ahmad"} 


بينما كنا في السابق وباستخدام نفس الفئة كما يلي 


Dim Empl2 As New Employee 
With Emp1l2 
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.Name = "Ahamd" 
.Salary = 11500 
End With 


وإن كانت لدينا فئة تحتاج لتمرير قيم لمشيد الفئة مثل الفئة 0ء٣٠‏ مثلا فيمكننا أيضا استخدام نفس الطريقة لضبط خصائص أخرى لا يتم 
تمرير ها لمشيد الفئة 


Dim Perl As New Person ("Ghassan") With {.Address = "Damas"} 
كما تستخدم هذه الطريقة أيضا لتعريف الأنواع المجهولة‎ 
Dim Visitor = New With {.Name = "Mussa", .Account = 232536} 


وكما نلاحظ من طريقة التعريف فصيغة تعريف الأنواع المعروفة مماثلة في الشكل للأنواع المجهولة ففي الأنواع المعروفة لاحظ وجود اسم 
الفئة بعد الكلمة عم بينما عندما نعرف نوعا مجهولا لايوجد اسم للفئة بعد الكلمة عم بسبب أن الأنواع المجهولة ليس لها اسم فئة قابلة 
للاستخدام فعند استخدام فئة معروفة عند التصريح يجب أن تكون الخصائص التي نريد ضبط قيمها موجودة فعلا والتصريح ينشئ متغيرا 
يشير إلى تلك الفئة ومن أجل تعريف النوع المجهول يقوم المترجم بإنشاء فئة جديدة لذلك المتغير تحتوي الخصائص المشار إليها في 
التصريح ويحدد اسمها عند الترجمة وقد يختلف لاسم من عملية ترجمة لأخرى لذلك لا يمكن الاعتماد على اسم الفئات المجهولة ضمن الكود 
أو التعريف 


وإليك بعض الملاحظات الخاصة بالتعريف 

- قائمة التعريف بعد W1‏ لا يمكن أن تكون فارغة 

- لا يمكن تكرار تعريف قيمة لخاصية أكثر من مرة في نفس التعريف 
- يمكن ضبط قيمة خاصية من خاصية أخرى 


- في حال كانت إحدى الخصائص فئة يمكن تعشيش التصريح بنفس الطريقة 


Dim cust1Z2 = New Customer With {.Name = "Toni Poe", _| 
.Address = New AddressClass _ 
WIth {(SCILEy = WEOULSTVILIE, _ 
.State = "Kentucky"} } 


Console.WriteLine (cust12.Address.State) 
W۸ لا يمكن استخدام عناصر مشتركة 0عمإ هم5 أو للقراءة فقط را40 هء# أو الثوابت أو استدعاء الطرق في القائمة بعد كلمة‎ - 


- لا يمكن استخدام الخصائص التي تمتلك فهرسا أو المشروطة كمصفوفة مثلا فالتعريفات التالية مثلا غير صحيحة 


"T NOE Valdis 
' Dim c1 = New Customer With {.OrderNumbers (0) = 148662} 
'"' Dim c2 = New Customer with {.Address.City = "Springfield"} 
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Local Type Inference عوill الاستدلال المحلي على‎ 


يستخدم المترجم في فيجول بايزيك 8 الاستدلال على النوع |"۴٠۲٠٣٤٠٤١‏ مما لتحديد نوع المتغيرات المحلية التي تم 
التصريح عنها بدون استخدام فقرة ء۸ في تعبير التصريح حيث يستدل المترجم على نوع المتغير من نوع التعبير الذي يضبط قيمة ذلك 
المتغير مما يوفر إمكانية تعريف المغيرات بدون تحديد نوعها كما في المثال التالي 


Public Sub inferenceExample () 


"` USIMGS OKOLLCILE ‘EYDIRG 4 
Dim numl As Integer = 3 


' Using local type inference. 
Dim num2 = 3 


End Sub 


ولا يمكن استخدام الاستدلال على النوع عند تعريف الحقول في الفئة ولاعا۴ ءوهاع فإن كان 2نم في المثال السابق حقلا في فئة بدلا عن 
کونه متغیرا محلیا فسوف یولد التصریح خطاً إذا کان Option S†rاcا 0n‏ وسوف یصنف ۸2ں" علی آنه غرض ٥۲‏ ٥زط0‏ إن کان 
Option Strict ۴۴‏ وبشکل مشابه فنوع المتغيرات الساكنة sعاط‏ ھ۷2 Stic‏ لا یمن الاستدلال علیھا إن کان Option Strict On‏ وإنù‏ 
کان 0۴۴ Option Strict‏ فنوع المتغير الساكن سيكون غرض اء زط0 فإن لم تكن تريد من المتغير 2نم في المثال السابق أن يكون من 
lڏiوع Integer‏ فيمكنك تحدید نوعا آخر عند التصريح عنه 


Dim num3 As Object = 3 or Dim num4 As Double = 3 


والكود الذي يستخدم استدلال النوع يشابه الكود الذي يعتمد على الربط المتأخر ع”1ل" 8 ه1 الذي سيكون نوعه معروفا فقط في زمن 
التشغيل. ومعرفة النوع بشكل مبكر يمكن المترجم من تحديد المشاكل قبل التنفيذ وحجز الذاكرة بدقة وإجراء عمليات التحسين الأخرى 
بالإضافة إلى تمكين بيئة التطوير من تزويد المبرمج ب عء"ع؟5|ا|ع١|‏ والمساعدة حول أعضاء ذلك الغرض بالإضافة إلى تفضيله لاعتبارات 
خاصة بالأداء بسبب أن جميع البيانات التي تخزن باستخدام الربط المتأخر يجب تغليفها وكأنها من النوع اءءزط0 والوصول إلى الأعضاء 
في زمن التشغيل سيكون أبطأ. 

يحدث الاستدلال على النوع عندما يتم التصريح عن المتغير بدون استخدام فقرة ك۸ في تعبير التصريح وضبط قيمة لذلك المتغير فيستخدم 
المترجم نوع تلك القيمة كنوع للمتغير فمثلا سطور الكود التالية تعرف متغيرا من النوع ع”أ٣†؟‏ 


"USING ESBITLELE. EYPIRG: 
Dim namel As String = "Springfield" 


' Using local type inference. 
Dim name2 = "Springfield" 


ويستعرض الكود التالي طريقتان متكافئتان لإنشاء مصفوفة من النوع معم†١|‏ 


"USING ESP ILETE EYP: 
Dim someNumbers1 () As Integer = New Integer() {4, 18, 11, 9, 8, O, 5} 


' Using local type inference. 
Dim someNumbers2 = New Integer() {4, 18, 11, 9, 8, O0, 5} 


كما يمكنك استخدام الاستدلال على النوع لتحديد نوع متغير التحكم لحلقة تكرارية ففي الكود التالي سيتعرف المترجم على صم بأنه من 
النوع |nt eger‏ لان someNumbers2‏ عبارة عن مصفوفة عع ع۲"| 
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Dim total = 0 

For Each number In someNumbers2 
total += number 

Next 


ويستخدم الاستدلال على النوع في العبارة ع ول أيضا لتحديد نوع اسم المصدر كما هو واضح في المثال التالي 


Using proc = New System.Diagnostics. Process 
' Insert code to work with the resource. 
End Using 


ويستدل على نوع المتغير من القيمة المعادة من الإجراء أيضا كما هو ظاهر في الكود التالي حيث يكون 1اءأام و 2ءأام عبارة عن كاءاا 
of Processes‏ 


" USING EXPILEIE TEYOILRG. 
Dim pList1() As Process = Process.GetProcesses () 


' Using local type inference. 
Dim pList2 = Process.GetProcesses () 


وقد قدم فيجول بايزيك 2008 خيارا جديدا هو |٣۴٠۲‏ ١ه‏ ام0 يمكنك من تحديد إذا كان الاستدلال المحلي على النوع مسموحاأم لا في ملف 
معين. فلتمكين أو تعطيل خيار الاستدلال على النوع اكتب التعبير المناسب من السطرين التاليين في بداية الملف 


Option Infer On 
OpETOn InEcE OEE 


وإن لم تقم بتحديد قيمة للخيار |١۴٥١‏ هام0 في الكود فالمترجم سيستخدم الخيار الافتراضي 0۸ |١۴١١‏ ١٥م‏ من أجل المشاريع التي 
تم إنشاؤها في 2008 Basi‏ امںءا۷ والخيار f٣ 0f‏ ما Option‏ من أجل المشاريع التي تمت ترقيتها من إصدارات سابقة. وإن تضاربت 
قيمة الخيار Option Infer‏ في الملف مع القيمة المضبوطة في خيارات بيئة التطوير أو في سطر الأوامر فسوف یتم استخدام القيمة 
الموجودة في الملف. 


ويستخدم الاستدلال على النوع فقط في المتغيرات الغير ساكنة ءأخه†ك-"ه" ولا يمكن استخدامها في تعريف حقول الفئة ءلاع۴ وها أو 
الخصائص Functions ٽءlرجإلا gİ Properties‏ 
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إجبار المستخدم على اختيار واحدة من عدة قيم محددة سابقا في صندوق النصوص 


تقوم الفكرة على استخدام الحدث ع”نه اه۷ للتأكد من أن المستخدم قد اختار ما يطابق قائمة القيم المقترحة. 
للتجربة قم بإنشاء مشروع جديد ثم أضف إليه صندوقي نصوص 


في الحدث له ه] للنموذج ضع الكود التالي 


' التلقافي. التلأكمال حبار اتتا ستجمل مصفوقة تعزرق‎ 
Dim Lis As New List (Of String) 
Lis.Add("Visual Basic") 
Lis.Add("Visual C#") 

LES ZAQdA(TVISUAL CFE") 
Lis.Add("Pascal™") 

Lis.Add ("Delphi") 

Lis.Add ("C++") 

Lis.Add ("2100") 

Lis.Add ("3200") 

Lis.Add ("Nokia 6600") 

Lis.Add ("Nokia 3250") 

Lis.Add ("Nokia 7610") 


االتلفاتي ‏ اکال .طريقة تجود ' 

Me.TextBox1.AutoCompleteMode = AutoCompleteMode. SuggestAppend 
التقاتي الاكمال. مصدي تجديحة‎ 

Me.TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource 


التلقفاتي للاإكفال كمضةان اسا . الخاضة القاخمة اقافة ' 
TextBox1.AutoCompleteCustomSource.Clear ()‏ 
Me.TextBox1.AutoCompleteCustomSource.AddRange (Lis.ToArray)‏ 


في الحدث ع" اة اج۷ لصندوق النصوص ]٠×80×1‏ ضع الكود التالي 


If Me.TextBoxl1.AutoCompleteCustomSource.Count = 0 Then 
' قارفة التشاتى. امال قاتمة كخانخ ا5‎ 

Me.TextBox1.Text = String. Empty 

BELE Sub 


Else 
' التكقاتي. الإكمال .قائمة شمن مخوجوة انض كان 3 تجدحة‎ 
For Each Str As String In Me.TextBox1.AutoCompleteCustomSource 
If Str.ToUpper = Me.TextBox1.Text.ToUpper Then 
Me.TextBox1.Text = Str 
EXILE SUB 
ERQ LÊ 


Next 
ER. TE 
' موجوف. قر المدجل اتس أن مغعتي فهةا هاا إلى وصكنا .ةا‎ 
' قاشلة. التحجقق عمكة فتكرق التلقائي الإكمال قانية قي‎ 
e.Cancel = True 


شغل البرنامج وقم بالتجربة 
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Using Stored Procedures ةijall استخدام الوظائزف‎ 


في العديد من الحالات البرمجية بدلا من تنفيذ عبارة 501 مباشرة ستحتاج إلى تنفيذ ما يدعى بالوظائف المخزنة أو stored Procedures‏ 
والتي تعتبر بدورها طريقة ممتازة لتغليف منطق قواعد البيانات وتعزيز الأمان في التطبيقات متعددة الطبقات ١۲۴ء‏ )انم ولتنفيذ وظيفة 
مخزنة ستحتاج Command object ”l|‏ تaوم‏ بضبط خاصıت4 CommandText ةصlëg StoredProcedure Jll CommandType‏ 
لئ اسم الوظيفة المخزنة وفي المقال التالي نقوم بتنفيذ وظيفة مخزنة تقرأً عد employees‏ في قاعدۃ البیانات یاںم 


Public Overloads Function CountEmployees() As Integer 
Dim oPubConnection As New SqlConnection 
Dim sConnString As String 
Dim oSqlCommand As SqlCommand 


TEY 
SCONNSEEIRNG = TData SUE IFES ETOLFIRTLELAL Catal; GE. 
"Integrated Security=True"™ 
oPubConnection.ConnectionString = sConnString 


oPubConnection. Open () 
oSqlCommand = New SqlCommand () 
oSqlCommand.Connection = oPubConnection 
oSqlCommand.CommandText = "GetEmployeeCount™ 
oSqlCommand.CommandType = CommandType.StoredProcedur 
Return oSqlCommand. ExecuteScalar 

Catch oOEx As Exception 
MessageBox. Show (oEx.Message) 

Finally 

If Not oPubConnection Is Nothing Then 
oPubConnection.Close () 


End If 
ERA TEE 
في العادة عندما نقوم بتنفيذ وظيفة مخزنة نحتاج إلى تمرير وسائط دخل ئٍParamet utمہا وقد تستعید نتائج الخرج من خلال‎ 


وسائط الخر ج مامص هام۴ utput‏ وللتعامل مع الوسائط يجب علينا تعريف مرجع ل إعاع"ه۲ه۴|ه؟ وتزويده باسم الوسيطة ونوعها 
وبالنسبة لبعض أنواع البيانات ستحتاج لتمرير حجم هذه البيانات أيضا وعندما تمرر وسيطة خرج» دخل» دخل-خرج عليك أيضا أن تحدد 
اتجاهها في المتال التالي نمرر وسيطة دخل عبارة عن حرف وتعيد عدد الموظفين الذين تبدأً أسماء عائلاتهم بذلك الحرف والعدد يعاد بشكل 
وسيطة خرج 


Public Overloads Function CountEmployees (ByVal LInitial As String) As Integer 
Dim oPubConnection As New SqlConnection 
Dim sConnString As String 
Dim oSqlCommand As SqlCommand 


TEY 
SCONASEEING = "DAE SOUFECE=IFESETOLEIRTELAL "CACELSSBOBST & 
"Integrated Security=True™"™ 
oPubConnection.ConnectionString = sConnString 


oPubConnection = New SqlConnection (sConnString) 
oPubConnection. Open () 

oSqlCommand = New SqlCommand () 

oSqlCommand.Connection = oPubConnection 

oSqlCommand. CommandText = "GetEmployeeCountbyLInitial" 
oSqlCommand.CommandType = CommandType.StoredProcedur 
Dim olInputParam As SqlParameter = | 
oSqlCommand. Parameters.Add("GCLInitial", SqlDbType.Char, 1) 
olInputParam.Value = LInitial 
Dim oOutPutParam As SqlParameter = _| 
oSqlCommand. Parameters. Add ("CGEmployeeCount", SqlDbType.Int) 
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oOutPutParam. Direction = ParameterDirection. Output 
oSqlCommand. ExecuteNonQuery () 
Return oOutPutParam. Value 

Catch oOEx As Exception 
MessageBox. Show (oEx.Message) 

EAL 

If Not oPubConnection Is Nothing Then 
oPubConnection.Close () 

ER TE 

End TEY 

ENG. FUREE LON 
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Anonymous Types lوھجملا الأنواع‎ 


يقدم فيجول ستوديو 2008 الأنواع المجهولة وممر† usمصرم‏ ممه والتي تمكنك من إنشاء الأغراض واءعزطا0 بدون كتابة 
تعريف فئة ٣۴0هل‏ sوجا‏ من أجل نوع البيانات وعوضا عن ذلك يولد المترجم الفئة من أجلك ولن يكون للفئة اسما قابلا للاستخدام 
حيث تكون هذه الفئات موروثة مباشرة من tء‏ زط0 وتمتلك الخصائص التي تحددها عند تعريف الغرض 1ء٠‏ زط0 وبما أن نوع البيانات لم 
يتم تحديده يتم الإشارة إليه على أنه نوع مجهول عمرا sامصرم‏ هم" ه. حيث يصرح المثال التالي عن المتغیر ct‏ ں هم كمتغير من النوع 
anonymous type‏ ممتلکا الخاصیتین Name‏ و Price‏ 


' Variable product is an instance of a simple anonymous type. 
Dim product = New With {Key .Name = "paperclips", .Price = 1.29} 


حيث يستخدم تعبير الاستعلام التالي الأنواع المجهولة لدمج أعمدة البيانات المحددة بواسطة الاستعلام وبما أنه لا يمكنك تحديد نوع النتيجة 
مقدما بسبب عدم إمكانية التنبؤ بالأعمدة التي يمكن أن يختارها استعلام معين فتمكنك الأنواع المجهولة من كتابة استعلام يختار عدد من 
الأعمدة بأي ترتيب نريده فيقوم المترجم بإنشاء نوع البيانات المماثل لتلك الخصائص المحددة بذلك الترتيب المعين. وفي المثال التالي يكون 
Products‏ عبارة عن قائمة من أغراض اع ںله۴ وكل منها يمتلك خصائص عديدة بحیث يحمل المتغیر ۷٥ں‏ Qء ۳٥۴٣٥‏ ھم تعریف 
الاستعلام الذي يعيد عند تنفيذه مجموعة من الأنواع المجهولة التي تمتلك الخاصیتین Name‏ و Price‏ 


Dim namePriceQuery = From prod In products_ 


Select prod.Name, prod.Price 


والمتغير nameQuantity Query‏ يحمل تعریف الاستعلام الذي يعيد يعيد عند تنفيذه مجموعة من الأنواع المجهولة التي تمتلك خاصیتین 
OnHand sy Name‏ 


Dim nameQuantityQuery = From prod In products__ 


Select prod.Name, prod.OnHand 


تعریف نوع مجJg4‏ eھصضTyp Declaring an Anonymous‏ 
تعریف متغير من نوع مجهول يستخدم قائمة بناء لتحديد خصائص ذلك النوع بحيث يمكنك تحديد هذه الخصائص فقط عند الإعلان 
عن النوع المجهول ولا يمكن استخدام بقية عناصر الفئات مثل الطرائق والأحداث في الأنواع المجهولة ففي المثال التالي يكون 1٤ں‏ مه۴ 

من نوع مجهول يمتلك خاصیتین N۳٥‏ و ۴٣٥٥‏ 


‘Variable product1 is an instance of a simple anonymous type. 

Dim product1 = New With {.Name = "paperclips", .Price = 1.29{ 

5 'or- 

'product2 is an instance of an anonymous type with key properties. 
Dim product2 = New With {Key .Name = "paperclips", Key .Price = 1.29{ 


فإن قمت بتحديد الخصائص كخصائص تة key properties‏ أصبح بإمكانك استخدامها لمقارنة نوعين مجهولين هل هما متساويين ام 
لا ومع ذلك فقيم الخصائص المفتاحية لا يمكن تغييرها فهي للقراءة فقط. مع ملاحظة أن التصريح عن نوع مجهول يماثل التصريح عن نوع 
مسمى باستخدام باني ائلغرض object initializer‏ 


‘Variable product3 is an instance of a class named Product. 
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Dim product3 = New Product With {.Name = "paperclips", .Price = 1.294 


الخصائڀص nllتحة Key Properties‏ 
تختلة الخصائص المفتاحية عن العادية بعدة أمور: 


٠‏ تستخدم الخصائص المفتاحية فقط لمقارنة المساواة بين نوعين مجهولين 
ه لا يمكن تغيير قيم الخصائص المفتاحية فهي دائما للقراءة فقط 
فقط الخصائص المفتاحية يتم تضمينها ضمن ال مله كه الذي يولده المترجم من أجل الأنواع المجهولة 


Equality ة|وlصسaلا‎ 


تکون متغيرات الأنواع المجهولة متساوية عندما تكون متغيرات لنفس النوع المجهول ويقوم المعالج بمعاملة متغيرين كمتغيرين من 
نفس النوع إذا توفرت فيهما الشروط التالية 


تم التصريح عنهما في نفس المجمع 
تمتلك خصائصهما نفس الاسم والنوع وتم التصريح عنها بنفس الترتيب وتكون مقارنة الأسماء غير حساسة لحالة الأحرف 
نفس الخصائص فيها محددة كخصائص أساسية 

يمتلك كل نوع خاصية أساسية واحدة على الأقل 

والتصريح عن نوع مجهول الذي لا يمتلك أي خاصية مفتاحية يكون مساويا لنفسه فقط 


'prod1 and prod2 have no key values. 
Dim prod1 = New With {.Name = "paperclips", .Price = 1.29} 


Dim prod2 = New With {.Name = "paperclips", .Price = 1.29} 


'The following line displays False, because prod1 and prod2 have no 
'key properties. 


Console.WriteLine(prod1.Equals(prod2)) 


'The following statement displays True because prod1 is equal to itself. 


Console.WriteLine(prod1.Equals(prod1)) 


وتکون قيمة متغيرين لنفس النوع المجهول متساويين إذا كانت قيمة خصائصهما المفتاحية متساوية كما في المثال التالي الذي يوضح كيفية 
فحص هذه المساواة 


Dim prod3 = New With {Key .Name = "paperclips", Key .Price = 1.29} 
Dim prod4 = New With {Key .Name = "paperclips", Key .Price = 1.29} 
'The following line displays True, because prod3 and prod4 are 
‘instances of the same anonymous type, and the values of their 
'key properties are equal. 


Console.WriteLine(prod3.Equals(prod4)) 


Dim prod5 = New With {Key .Name = "paperclips", Key .Price = 1.29} 
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Dim prod6 = New With {Key .Name = "paperclips", Key .Price = 1.29, OnHand = 423} 
'The following line displays False, because prod5 and prod6 do not 
'have the same properties. 


Console.WriteLine(prod5.Equals(prod6)) 


Dim prod7 = New With {Key .Name = "paperclips", Key .Price = 1.29, OnHand = 24} 
Dim prod8 = New With {Key .Name = "paperclips", Key .Price = 1.29, OnHand = 423} 
'The following line displays True, because prod7 and prod8 are 

‘instances of the same anonymous type, and the values of their 

'key properties are equal. The equality check does not compare the 

'values of the non-key field. 


Console.WriteLine(prod7.Equals(prod8)) 


القيم القابلة للقراءة فقط 
۷ یمکن تغيير قيم الخصائص المفتاحية فمثلا في 48٠۲م‏ في المثال السابق الحقول مه" و مء زم قابلة للقراءة فقط في حين أن 
الحقل 0۸۳١2۳١‏ يمكن تغيير قيمته 


'The following statement will not compile, because Name is a key 
‘property and its value cannot be changed. 


'prod8.Name = "clamps" 


'OnHand is not a Key property. Its value can be changed. 
prod8.OnHand = 22 
Anonymous Types from Query Expressions pںتwlلا الأنواع المجهولة من تعابير‎ 
تعابیر الاستعلام لا تتطلب دوما إنشاء أنواع مجهولة فعند الإمكان يمكنها استخدام نوع موجود ليحمل بيانات العمود وهذا يحدث‎ 
عندما يعيد الاستعلام إما سجلات كاملة من مصدر البيانات أو حقل واحد من كل سجل ففي المثال التالي يكون sعمص۳هاوں٤ عبارة عن‎ 
0ون والفئة تمتلك العديد من الخصائص بحيث يمكنك تضمين واحدة أو أكثر من هذه الخصائص في نتائج الاستعلام‎ ٠۲ مجمو عة فئات‎ 
وباي ترتيب تريده ففي المثالين الاوليين لا يوجد حاجة لأي نوع مجهول لان الاستعلام يجلب عناصر من أنواع معروفة ف 1ءئاوں٤ يكون‎ 
و 2ءtیCu هو مجموعة من الأغراض ٣٥ص ٥اوں٤ لأن كل عنصر في‎ Stig من النوع‎ cust. Name لان‎ stig من النوع‎ 
یں وكامل العنصر تم جلبه بواسطة الاستعلام‎ ٥٣٤۲ هو غرض‎ Customers 


Dim custs1 = From cust In customers_ 


Select cust.Name 


Dim custs2 = From cust In customers_ 


Select cust 
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ومع ذلك فالأنواع المسماة لا تكون دائما متوفرة حيث يمكنك الاستعلام Eعjù ùa Addresses gy Names‏ أجل هدف معین و 0| و 
Numbes‏ و 0cationاL‏ من أجل هدف آخر فهنا تمكنك الأنواع المجهولة من اختيار أية تركيبة من الخصائص وبأي ترتيب بدون أن 
تضطر في البداية للتصريح عن نوع مسمى جديد ليحمل النتيجة وبدلا عن ذلك يقوم المترجم بإنشاء نوع مجهول لكل تركيبة من الخصائص 
فمتلا الاستعلام التالي يحدد فقط مص۳ه" و 0| من كل غرض ٣٥۲‏ 0اءںع في ء۲٥۳‏ ٥اءںع‏ ومن أجل ذلك يقوم بإنشاء نوع مجهول من تلك 
الخصائص 

Dim custs3 = From cust In customers_ 


Select cust.Name, cust.ID 


وكل من الاسم والنوع العائدين لخصائص النوع المجهول يتم أخذها من محددات الاستعلام م۳ه..اوu‏ و لا.tوCu٤‏ وتكون خصائص 
النوع المجهول التي ينشئها الاستعلام خصائص مفتاحية دوما وعند تنفيذ 3ور في حلقة طعهجع...١٠۴‏ التالية تكون النتيجة هي مجموعة 
أنواع مجهولة تمتلك خاصیتین مفتاحیتین Na ۳٥‏ و ۱0D‏ 


For Each selectedCust In custs3 
Console.WriteLine(selectedCust.ID & ": " & selectedCust.Name( 


Next 


تحدید متی ا الأنواع المجهولة 
کن راھ اکر شن کول اا ا والطرائق ا کا الفئة e‏ عندها ا 
المجهول حلا جيدا وتكون الأنواع المجهولة ملائمة عندما تريد انتقاء مجموعة مختلفة من الخصائص عند كل تصريح أو إن کنت ترید تغيير 
ترتيب هذه الخصائص وإن كان مشروعك يحتوي على عدة أغراض تحمل نفس الخصائص بترتيب ثابت يمكنك عندها التصريح عنهم 
بسهولة باستخدام الأنواع المسماة باستخدام باني فئة فعندها باستخدام باني ملائم يمكن تعريف عدة متغيرات من الفنة ct‏ uله٣"‏ ويكون ذلك 
أسهل من استخدام عدة متغيرات مجهولة النوع 
'Declaring instances of a named type.‏ 
Dim firstProd1 As New Product("paperclips", 1.29)‏ 
Dim secondProd1 As New Product("desklamp", 28.99)‏ 
Dim thirdProd1 As New Product("stapler", 5.09)‏ 
‘Declaring instances of an anonymous type.‏ 
Dim firstProd2 = New With {Key .Name = "paperclips", Key .Price = 1.29}‏ 
Dim secondProd2 = New With {Key .Name = "desklamp", Key .Price = 28.99}‏ 
Dim thirdProd2 = New With {Key .Name = "stapler", Key .Price = 5.09}‏ 


وتكمن فائدة أخرى للأنواع المجهولة في أن المترجم يمكنه التقاط الأخطاء الطباعية في أسماء الخصائص ففي المثال السابق يفترض بالأنواع 
firstProd2‏ و secondProd2‏ و third r02‏ أن تكون متغيرات لنفس النوع المجهول ومع ذلك قمت عن طريق الخطأ بالتصريح عن 
thir r02‏ بأحد الطرائق اللاحقة وهو نوع مختلف عن od2ثfirstP‏ و secondProd2‏ 


'Dim thirdProd2 = New With {Key .Nmae = "stapler", Key .Price = 5.09} 
'Dim thirdProd2 = New With {Key .Name = "stapler", Key .Price = "5.09"} 
'Dim thirdProd2 = New With {Key .Name = "stapler", .Price = 5.09} 


والأمر الأهم هو أنه هناك حدود لاستخدام الأنواع المجهولة لا تنطبق على الأنواع المعروفة فمع أن d2ثثP°first secondProd2 s‏ و 
tir2‏ هي متغيرات لنفس النوع المجهول فالمتغير المجهول المشترك غير متوفر ولا يمكن توقع ظهوره كنوع معروف في الكود 
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فمثلا يمكن استخدام النوع المجهول لتحديد توقيع الطريقة للتصريح عن حقل متغير فيكون بالنتيجة النوع المجهول غير ملائم لتبادل البيانات 
عبر الطرائق 
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PropertyGrid pكaتil‎ 


يقوم التحكم Property Gr‏ بعرض معلومات حول الكائن اء زط0 بأسلوب مشابه لأسلوب نافذة الخصائصض عا ۵م۴۲0 
0ل" Wi‏ في بيئة التطوير وهو يمكن المستخدم من تنظيم الخصائص بحسب الفئة أو أبجديا ممكنا إياه من تحرير قيم هذه الخصائص. 
ويمتلك هذا التحكم العديد من العناصر ولكن الأهم من بين هذه العناصر هي الخاصية اءعزطا40ءاءءام التي تستخدم لضبط أو معرفة 
الكائنات المرتبطة مع التحكم وتكون قيمتها من النوع زط0 كما في الكود 


' Show Buttonl Properites 
Me.PropertyGrid1.SelectedObject = Buttonl 


'". Show Cla BPEOperELeS 


Dim cla As New Classl 
Me.PropertyGrid1.SelectedObject = cla 


والتحكم ل۲۲۷6 مم١۴‏ يقوم بعرض خصائص التحكم أو الفنة ءع امم ه۲" فقط فهو لا يعرض المتغيرات العامة Public Variables‏ 
مثلا وهو يعرض من هذه الخصائص تلك القابلة للاستعراض فأي خاصية معلمة بالواصفة ۴ale)‏ )eاBrowsab‏ لن یتم عرضھا کما 
تستخدم الواصفة إ٣همعهه)‏ لتنظيم خصائص التحكم ضمن أقسام والواصفة ۸٥اامأ»ءه0‏ لإظهار وصف لتلك الخاصية حيث يتم ضبط 
قيم هذه الواصفات بالشكل المناسب ولكل خاصية على حدى عند كتابة كود الفئة أو التحكم 


فإذا افترضنا أنه لدينا فئة باسم 1ءءه|ع نريد عرض خصائصها في التحكم ل۲۷6٠‏ م٠٣۴‏ وكان كود هذه الفئة كما يلي 
Imports System. ComponentModel‏ 


PULLS. CLASS CLASS 
Public Enum ProgrammingLanguageEnum 
VisualBasic 
CSharp 
CPIUSPIUS 
Java 
Pascal 
HAQ. EAU 


PEiVaEê _mTest A8 STtEIAG 
PEFIVaLê: _ mName: A44 StEFING 
Private _mProg As ProgrammingLanguageEnum 


<Browsable (False)> _ 
PULLS FEOBEEEY TeStE (0): AE. STEELS 
Get 


REME. _ MITES 
End Get 
Set (ByVal value As String) 
_mTest = value 
EAd Sel 
End Property 


<CAEETOFY(TPEESORSAL"), DescriptELon ("PEESOR NNE) _ 
PUDILE PEOopéeEtyY Name() A5 SEEING 
Get 
Return _mName 
End Get 
Set (ByVal value As String) 
_ mName = value 
End Set 
End Property 


<CateğgoFy (TEaNG"), Description ("Ris PEFogGEFammMing Languagée")> | 
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Public Property ProgrammingLanguage () As ProgrammingLanguageEnum 
GE 
RELUER _MPEOG 

BIAQ, GEE 

Set (ByVal value As ProgrammingLanguageEnum) 

_mProg = value 

ERQ: SEE 

End Property 


End Class 
يمكننا كتابة الكود التالي لإظهار خصائص المتغير وا الذي هو عبارة عن تواجد ما لتلك الفئة كما يلي‎ 


Dim cla As New Classl 
Me.PropertyGrid1.SelectedObject = cla 


ففي هذه الفئة استخدمنا في البداية استيرادا لمجال الأسماء املك ۷†”عnمoمtem.omءرك‏ لكي نتمكن من ضبط بعض الواصفات الخاصة 
بخصائص فئتنا والتي توؤثر على طريقة إظهار هذه الخصائص في التحكم ١اا‏ ۲۷6 ممه" حث تلاحظ أن الخاصية ء٥1‏ مزينة بالواصفة 
eاsabسBro‏ مضبوطة قيمتها إلى عءإه۴ لذا فهي ستسبب عدم ظهور الخاصية اءع٦‏ في التحکم لا ٥۲۷6‏ م٥٣۴‏ عندما يعرض خصائص 
الفثة 1ءءها٣‏ ويمكن استخدام الواصفة رم عهه) لضبط القسم الذي نرغب في إظهار الخاصية فيه ضمن التحکم اا e٣۷6‏ م٥٣۴‏ فمتلا تم 
ضبط الواصفة ر معه†ه) إلى اهر مومهم بالنسبة للخاصية عه" التي ستلاحظ ظهور ها ضمن قسم ۱٣0ء٣٥"‏ عند عرض خصائص 
الفئة والواصفة هام ذ موه تمكنك من كتابة وصف للخاصية يظهر أسفل نافذة التحكم لإ 6 مم۴0 
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التحويل بين أنواع البيانات باستخدام التضييق 11tام×Eغ‏ والتوسيع tإiامpص!‏ 


لنفرض أنه لدينا برنامج من النوع کونسول مسمی TypeConversions‏ ڪما هو ظاهر في الكود التالي 
Module Program‏ 
Sub Main ()‏ 
Console.WritelLine ("***** The Amazing Addition Program *****")‏ 
Dim a As Short = 9‏ 
Dim b As Short = 10‏ 
Console.WriteLlLine ("a + b {0}", Add(a, b))‏ 
ERG SUB‏ 


Function Add (ByVal x As Integer, ByVal y As Integer) As Integer 
RELUED XS FF Y 
ERAQ. FuRcetion 


End Module 


لاحظ أن الطريقة ١ل‏ تتوقع أن يمرر لها محددين من النوع ٣مععم!|‏ ومع ذلك نلاحظ أن الإجراء "ة۷ يمرر لها في الواقع محددين من 
النوع ۲٥ط‏ وقد يبدو هذا عدم تطابق كلي في أنواع البيانات إلا أن البرنامج يتم تنفيذه وترجمته بدون أخطاء ويعيد القيمة 9 كما هو 
متوقع. ويعود السبب في ذلك إلى أنه لا يوجد احتمال لحدوث فقدان في البيانات بما أن القيمة الأعظمية للنوع ا۲هطك هي 32767 بينما 
تكون للنوع ٣عععا١|‏ هو 217483647 فيقوم المترجم آليا بتوسيع كل قيمة من النوع 0۲ط إلى النوع ۲معه۲م| وذلك بعملية نسخ تلقائية 
من 0۲ط إلى ۲معمtم|.‏ وبالرغم من أن عملية التعريض الآلية قد تمت لصالحنا في المثال السابق ولكن في بعض الحالات قد تتسبب في 
أخطاء زمن التنفيغ يصعب كشفها. 


افترض أنك قمت بتعديل قيم المتغيران في المثال السابق بحيث عندما يتم جمعهما معا يتسببان في حدوث فيضان على القيمة الأعظمية للنوع 
0مك وبافتراض أنك تقوم بتخزين القيمة المعادة من الطريقة ١ل‏ ضمن متغير محلي من النوع 5۸0۲۲ إضافة إلى إظهار النتيجة على 
الكونسول 


Module Program 


Sub Main () 
Console.WritelLine ("***** The Amazing Addition Program *****") 
Dim a As Short = 30000 
Dim b As Short = 30000 
Dim answer As Short = Add(a, b) 
Console.WriteLlLine ("a + b {0}", answer) 
ETO Sub 


Function Add (ByVal x As Integer, ByVal y As Integer) As Integer 
RELUED XxX FE yY 
End: Fûüfietion 


End Module 


فعلى الرغم من أن البرنامج تتم ترجمته بصورة صحيحة هنا إلا أنه عندما يتم تنفيذ البرنامج فسوف يتم إطلاق خطأ زمن التنفيذ 

System. verflow Exception‏ وبالرغم من أن الطريقة ل۸ يمكنها إعادة ٣عععم|‏ يحمل القيمة الصحيحة التي تقع ضمن مجال قيم 
النوع ٣#عع١|‏ ولكن لا يمكن تخزين تلك القيمة في متغير من النوع ٤0ط‏ لأن القيمة تقع خارج مجال القيم التي يمكن تخزينها ضمن النوع 
0اك ففي هذه الحالة يحاول المترجم القيام بعملية تضييق التي ستنتج خطأ فيضان في زمن التنفيذ. ولكن ليست جميع عمليات التضييق ينتج 
عنھا الخطأً Sytem .0verflowwExceptio n‏ انظر للمثال التالي 
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Dim myByte As Byte 

Dim myInt As Integer = 200 

myByte = myilint 

Console.WriteLine ("Value of myByte: {0}", myByte) 


ففي الكود السابق تكون القيمة ١‏ لمحتواة في ١‏ لمتغير Integer‏ تقع ضمن مجال النوع Byte‏ لذا فتحويل التضييق لا يتسب يتسبب في إطلاق خطاً 
زمن التنفيذ ومع أن العديد من تحويلات التضييق تعتبر آمنة فإنه من الأفضل تعقب تحويلات التضييق عند الترجمة قبل أن نصل إلى زمن 
التنفيج ويتم ذلك باستخدام توجيه |ئمترجp Option Strict‏ 


فم Option Strict‏ 
يتأكد Option Sti‏ في زمن الترجمة عوضا عن زمن التنفيذ من تحويلات التضييق ويعطينا إعلاما بحيث يمكننا تصحيحه في 
وقت مبكر فعندما نستطيع تحديد تحويلات التضييق هذه يمكننا اتخاذ إجراءات تصحيحية وتخفيف خطر ظهور أخطاء في زمن التنفيذ. ومع 

أنه يمكنك تحديد هذا الخيار في بداية كل ملف كود 


OpBELOD SEDLCOE OA 


إلا أنه يمكننا أيضا تفعيل التوجيه اءأ؟ هام0 أو إيقافه للمشروع ككل وذلك بتحديد الخيار المناسب من صفحة ماام ٥٥۳‏ من خصائص 
tهزداP Ny‏ فعندما تقوم بتفعيل هذا الخيار فأنت تعلم المترجم بأن عليه التحقق من هذه الاحتمالات خلال عملية الترجمة وسوف يولد لك 
خطأ في زمن الترجمة عن كل عملية تحويل تضييق. 

ويمكننا إضافة الخيار ا٣ك‏ مها)م0 لمثالنا السابق ليقوم المترجم بالتحقق من عمليات التضييق حيث يمكننا تغيير نوع المتغير الذي سيحمل 
النتيجة من النوع ۲هط؟ إلى النوع ٣ععهم|‏ الذي يمكنه حمل النتيجة بأمان 


Dim answer As Integer = Add(a, b) 


دالات التحويل المحدد 

يزودنا فيجول بايزيك بعدد من دالات التحويل التي تمكننا من التحويل بين الأنواع بأمان مثل CBool‏ ڪ g CDate ڪs CByte‏ 
اط و اا٤‏ إضافة إلى الوظيفة ممر٣)‏ التي تأخذ محددين الأول هو البيانات التي لديك والثاني هو نوع البيانات المراد فمثلا سطري 
الكود التاليين يعتبران متكافئين 


myByte = CByte (myInt) 
myByte = CType (myInt, Byte) 


وتكمن الفائدة في الوظيفة مم رآ٤‏ هي أنها تستطيع التعامل مع جميع عمليات التحويل بين مختلف الأنواع والفئات الأساسية والمشتقة وكذلك 


الأغراض وواجهاتها 
دور System.Convert‏ 
من أجل إكمال الحديث عن موضوع التحويل يحب علينا إلقاء نظرة على مجال الأسماء صعاءرك الذي يحتوي على الفئة 


net‏ التي يمكن استخدامها أيضا في عمليات تحويل التضييق والتعريض كما في المثال 


myByte = Convert. ToByte (myInt) 
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وتكمن الفائدة من استخدام الفنة ام ۷٣0).هاءر؟‏ في أنها توفر طريقة لغوية طبيعية للتحويل بين مختلف أنواع البيانات ومع ذلك يزودنا 
فيجول بايزيك 2008 بكم جيد من وظائف التحويل المضمنة مثل امه C8‏ و ٤ر8٤‏ حيث أن استخدام الفئة ٥٣۷٠‏ للقيام بعمليات التحويل 
لا يعدو کونه خيار تفضيل شخصي 
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StringBuilder لأ‎ 


تخزن الفئة ۲|ں 8عم 5)٣‏ سلاسل نصية ديناميكية وتقدم لنا طرائق للتعامل معها وهي تعتبر أسرع بكثير من الفئة ع١‏ آ٣5‏ ولكنها تستخدم 
قدرا من الذاكرة أكبر بشكل ملحوظ من تلك التي تستخدمها الفئة ع٣ا‏ وحتى تستطيع استخدام الفئة ٣٥ل‏ |ا8uع" 5)٣1‏ في مشروعك عليك 
إضافة مرجع لمجال الأسماء .١٠×‏ ء6 وبافتراض أنك قمت باستيراد مجال الأسماء المذكور يمكننا تعريف متغير يشير إلى تلك الفئة 


Dim txt As New StringBuilder 


وبما أنها تتعامل مع سلاسل نصية ديناميكية فيعتبر من الجيد تعريف حجم النص الذي ستقوم بتخزينه فيها مسبقا وتكون السعة الافتراضية 
6 محرفا وهذه السعة تتضاعف تلقائيا في كل مرة تقوم بتجاوزها ولضبط هذه السعة نقوم بضبط قيمة الخاصية را ةم ج). 


ولإنشاء كيان جديد من الفئة لاأ 8ع” ٣|‏ يمكنك استدعاء باني الفئة بدون تمرير أية محددات أو تمرير قيمة نصية افتراضية 


Dim txt As New StringBuilder("some string") 


وإن كنت قادرا على تقدير طول النص الذي ستقوم بتخزينه يمكنك تمرير هذه القيمة لباني الفئة وبهذا لم يعد هناك تغييرات مستمرة في السعة 
عند تخزين المحارف في StringBuilder‏ 


Dim txt As New StringBuilder(initialCapacity) 

ومع ذلك فالسعة التي قمت بتحديدها ليست نهائية إذ يمكن أن تتغير أثناء التنفيذ وستقوم الفئة ١ع‏ |أں8ع” ذ٣5‏ بضبط قيمة السعة آليا وإن 
كنت ترغب بتحديد سعة عظمى لما سيتم تخزينه يمكنك استخدام الباني التالي 

Dim txt As New StringBuilder( initialCapacity, maxCapacity) 


وعندما تريد إنشاء كيان جديد من الفئة ٣عل|اu‏ 8 ع” ٣ك‏ مستخدما كلا من السعة الابتدائية والسعة العظمى والقيمة الابتدائية يمكنك استخدام 
باني الفئة بالشكل التالي 


Dim txt As New StringBuilder( string, initialCapacity, maxCapacity) 


رأينا حتى الآن خاصيتان أساسيتان للف ٣ع‏ ل|أ8uع"iاStك‏ هما Capacity‏ و MaxCapacity‏ وإضافة لهما تقدم لنا هذه الفئة الخصائص 
Length‏ و Chars‏ والتي تماثل الخصائص التي تحمل نفس الاسم في الفئة ع5 فالخاصية عم م] تعيد عدد المحارف في الكيان الحالي 
للْفة ٣ع‏ لااBuع,‏ ٣اك‏ والخاصية ١۲ج‏ تعيد مصفوفة محارف وعكس الخاصية ء٣جط‏ الخاصة بالفئة عمآ٣†؟‏ فهذه الخاصية قابلة للقراءة 
والكتابة ويكون ترتيب العنصر الأول في هذه المصفوفة هو الصفر وتمتلك الفئة مل اا8 ع٣‏ العديد من الطرائق الممائلة لتلك التي تحمل 
نفس الاسم في الفئة ع"أ٣]؟‏ ولكنها تتعامل مباشرة مع النص الذي يتم تطبيقها عليه ولاتعيد سلسلة نصية جديدة 


Append 
تضيف الطريقة لمعم م۸ نوعا أساسيا للكيان الحالي للفئة ٣علاا8uع” آ٣ا وتكون صيغتها على الشكل التالي حيث يمكن أن يكون المحدد‎ 
مداه محرف مفرد أو نص أو تاريخ أو أية قيمة رقمية‎ 


SB.Append(value) 
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فعندما تقوم بإضافة قيمة رقمية إلى ٣ع‏ |ااں8ع” ا٣5‏ يتم تحويلها إلى نص تم يتم إضافتها إلى النص المخزن في ١ع‏ |اuں‏ 8 ع٣ا‏ كما يمكن 
إضافة قيمة من النوع Object‏ إلى der‏ اBuiعStrin‏ حيث تكون القيمة الفعلية المضافة هي القيمة المعادة من الخاصية ع١‏ أ٣†كه]‏ العائدة ل 


SB.Append(chars, startIndex, count) 


أو يمكنك إضافة قسم من نص بتحديد مكان بدء ذلك القسم وعدد المحارف المراد إضافتها 


SB.Append(string, startIndex, count) 


AppendFormat 
الطريقة خ2 ٣۲٥۴ل" ٠مم مشابهة للطريقة ل٣ عمم۸ إلا أنها تقوم بتنسيق النص قبل إضافته ويكون للنص المضاف تحديد معين للتنسيق‎ 
إضافة إلى قيمته وتكون الصيغة العامة للطريقة ۲2٥۴ل" ممم كما يلي‎ 


SB.AppendFormat(string, values) 


والمحدد الأول يكون نص يحدد خصائص التنسيق و ءعں اج تكون عبارة عن مصفوفة من القيم واحدة من أجل كل تحديد تنسيق معين وفي 
المحدد ع اء إذا كان لديك عدد قليل من القيم لتنسيقها وحتى أربعة قيم يمكنك تمريرها كمحددات منفصلة مفصولة بفاصلة 


SB.AppendFormat(string, value1l, value2, value3, vlaue4) 


StringBuilder رıغتnl‎ Your balance as of Thursday, August 2, 2007 is $19,950.40 والكود التالي يضيف النص‎ 


Dim statement As New StringBuilder 

statement. AppendFormat( _ 
"Your balance as of {0:D} is ${1: #,###.00}", _ 
#8/2/2007#, 19950.40) 


وكل تحديد لصيغة يتم حصره بقوسين من الشكل [) ويتم ترقيمهم بالتسلسل ابتداء من الصفر تم تتبع فاصلتهم بالتحديد الفعلي والتنسيق D‏ 
بخبر الطريقة AppendFormat‏ للقيام بتنسيق النص المحدد بتنسية التاريخ الطويل والتنسية الثاني ب یستخدم فاصل الآلاف وعددان عشریان 
بعد الفاصلة العشرية من أجل القيمة حيث يضيف الكود التالي نفس النص ولكنها تمرر القيم عبر مصفوفات 


Dim statement As New StringBuilder 
Dim values) as Object = {#8/2/2007#, 19950.4} 
statement. AppendFormat( _ 
"Your balance as of {0:D} is ${1:#,###.00} ", values) 


وفي كلتا الحالتين سيحمل المتغير "٠"٤‏ عه†ء نصا كما يلي 
Your Balance as of Thursday, August 2, 2007 is $19,950.40‏ 
Insert‏ 


تضيف هذه الطريقة نصا للكيان الحالي للفئة مل u]‏ 8ع" ٣|‏ وتكون صيغتها 
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SB.Insert(index , value) 
حيث أن المحدد ×علم| يحدد المكان الذي سيتم إدراج النص الجديد فيه و عاج هو النص الذي سيتم إدراجه وكما في الطريقة ك"عممم۸‎ 
يمكن أن تكون عں اه من النوع اء زط0 وتكون بالتالي القيمة المدرجة هي القيمة المعادة من الطريقة ع”ا٣†كه] العائدة ل زط0 الأمر‎ 
وتمكننا صيغة‎ S٣١ ٣ع8ںأا| الذي يعني أنه يمكنك استخدام الطريقة اهما لإدراج قيم عددية وتواريخ مباشرة ضمن المتغير من النوع ۲ع‎ 
StringBuilder من إدراج عدة نسخ من نص معین ضمن‎ |٣٥٣٤ معدلة قليلا من الطریقة‎ 
SB.Insert(index, string, count) 
حيث أن المحدد‎ ٤٣| لإدراج مصفوفة محارف في موقع محدد بالمحدد ×علم| في الكيان الحالي ل ۲ع ااں8ع,‎ |٣١٥۲ كما يمكن استخدام‎ 
65ء هو عبارة عن مصفوفة محارف‎ 


SB.Insertindex, chars) 


Remove 
stا†|”لع× هذه الطريقة تزيل عددا من المحارف من عل اا8 ع” م5 الحالي بدءا من موقع محدد وتكون صيغتها كالتالي حيث أن المحدد‎ 
هو موقع أول محرف ستتم إزالته من النص والمحدد هع هو عدد المحارف التي سيتم إزالتها‎ 


SB.Remove(startIindex, count) 


Replace 
هذه الطريقة تقوم باستبدال جميع تواجدات نص ضمن ١٥ل |اں8ع” ٣ك بنص آخر وتكون صيغتها كالتالي حيث يمكن أن تكون قيمة أي من‎ 
المحددين نصا أو محرفا‎ 
SB.Replace(oldValue, new Value) 
وعكس ما يحصل في الفئة عم ذ٣5 فعملية الاستبدال تتم في الكيان الحالي للفئة امل ا8uiع” ذ٣٤ وهذه الطريقة لا تعيد نصا آخر كما يمكننا‎ 
StringBuilder لتحديد الاستبدالات في قطعة محددة من كيان‎ Replace استخدام شکل آخر من الطريقة‎ 
SB.Replace(oldValue, new Vlaue, startIndex, count) 


هذه الطريقة تستبدل جميع تواجدات عںاة4۷|ه بقيمة عںةا/۷سعم في القسم المحدد وبدايته من ×ع ل٣‏ |اهاء ويمتد عددا من المحارف 
بقيمة مء ابتداء من ذلك الموقع الابتدائي 


ToString 
إلى ع ”٣ك وضبط القيمة المعادة في متغير من النوع ع١5 وهي تعيد نصا يمثل‎ 5٣ ,ع8‌ںiا تستخدم هذه الطريقة لتحویل کیان ۲ع‎ 
التي تم تطبيقها عليها‎ ٣ القيمة المحتواة في المتغير من النوع لاأ 8ع”‎ 
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Obsolete Attribute ةصlgلi‎ 


إليكم تقديما بسيطا لواصفة تسمى عع اهءط0 وهي مفيدة عندما تقوم بعمل نسخة مطورة من فئة معينة تستخدمها فقد تكون هناك 
بعض العناصر - دالة أو وظيفة مثلا - في تلك الفئة تريد وضع عناصر أخرى بديلة عنها هنا يمكنك استخدام الواصفة المذكورة لتعليم ذلك 
العنصر أنه لم يعد مستخدما وربما تمرر لها قيمة نصية تظهر للمبرمج الذي يستخدم هذه الفئة بأن يستخدم عنصر آخر عوضا عن ذلك 
العنصر الذي تم تعليمه بواسطة هذه الواصفة 


وإذا نظرنا لتعريفها في مكتبة 50۸ سنری 


Marks the program elements that are no longer in use. This class cannot be 


inherited 
وترجمته للعربية: تقوم بتعليم عنصر في البرنامج بأنه لم يعد مستخدما. وهذه الفئة لا يمكن الوراثة منها‎ 
وهي تأتي باحدى ثلاثة صيغ:‎ 
الأؤلين‎ 
ObsoleteAttribute () 
مثال:‎ 
<ObsoleteAttribute ()> Public Function OldFunction () As String 
Return "This is the String from old function". 
End Function 'OldFunction 
الثانية‎ 


ObsoleteAttribute (String) 
حيث يمرر لها محدد عبارة عن رسالة نصية تتضمن حلا بديلا لاستخدام هذا العنصر‎ 


مثال 
<ObsoleteAttribute ("This function will be removed from future Versions.Use another‏ 
function 'NewFunction'")> _‏ 
Public Function OldFunction() As String‏ 
OldFunction= "This is the String from old function".‏ 
End Function 'OldFunction‏ 
الثالثة 


ObsoleteAttribute (String, Boolean) 
حيث يمرر لها محدد أول يكون عبارة عن رسالة نصية تتضمن حلا بديلا لاستخدام هذا العنصر ويحدد المحدد الثاني ذا النوع البولياني فيما‎ 
إذا كان يجب اعتبار استخدام هذا العنصر خطاً‎ 
مثال‎ 
استخدام العنصر لا يعتبر خطأً‎ 


<ObsoleteAttribute ("This function will be removed from future Versions.Use another 
function 'NewFunction'", False)> _| 
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Public Function OldFunction() As String 
OldFunction= "This is the String from old function". 
End Function 'OldFunction 


استخدام العنصر يعتبر خطاً 
<ObsoleteAttribute ("This function will be removed from future Versions.Use another‏ 
function 'NewFunction'", True)> _‏ 


Public Function OldFunction() As String 
OldFunction= "This is the String from old function". 


End. Fünction "OLQFuünctlon 
سؤال‎ 
هل معنى كلامك انه لم يعد بإمكاننا استخدام الدالة القديمة‎ 


الجواب 

يمكنك استخدام الدالة القديمة في جميع الحالات إلا عند استخدامك للصيغة الثالثة ووضعت قيمة المحدد الثاني إلى عں٣]‏ ولكن الهدف من 
هذه الواصفة هو تعليم العنصر أنه أصبح قديم وغير مستخدم وهدف الرسالة في الصيغة الثانية والثالثة توجيه المبرمج مستخدم هذه الفئة لحل 
بديل عن استخدام هذا العنصر القديم - هذه الواصفة تنطبق على جميع عناصر الفئة وليس الدوال فقط - 


هذا مثال إضافي من أجل مزيد من التوضيح 
دقق جيدا في المتال التالي الذي يظهر بعضا من حالات استخدم هذه الواصفة. 
Public Class TestObsolete‏ 
Public Name As String‏ 
You Can UÜse it With Fields Also‏ ' 
<Obsolete ("No Longer Used")> _|‏ 


Public FName As String 
Sub New () 


End Sub 


' Default Obsolete usage 
<Obsolete()> _ 
Public Sub Test1l () 


End Sub 


'" Passing A Message 
<Obsolete ("Not used Anymore 2, Use Test5")> _| 
Public Sub Test2 () 


End Sub 


تمرير رسالة والمحدد الثاني يحدد أنه لا يتم توليد خطاً ' 


نتيجة استخدام هذه الدالة ' 


<Obsolete ("Not used Anymore 3, Use Test5", False)> _ 
Public Sub Test3 () 


End Sub 


تقرتن اة 7 و المخةة. الاد يجحدد أنه سيتم توليد خطاً ' 


' نتيجة استخدام هذه الدالة‎ 
<Obsolete ("Not used Anymore 4, Use Test5", True)> _ 


Public Sub Test4 () 


End Sub 
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Public Sub Test5 (ByVal abc As String) 
MsgBox (abc) 
End Sub 


End Class 


الآن حاول استخدامها برمجيا. انظر الكود 


Private Sub test () 

Dim a As New TestObsolete 
Test1l ( 
Test2 
.Test3 
Test4 

a.Test5 
End Sub 


mû o م س‎ 


) 
) 
) 
) 


( 
( 
( 
( 


REESE) 


ستری أن استخدام الدالات ۲۵511 و ۲۵۲2 و ۲513 سيولد تحذيرا ع ا١۷‏ عند ترجمة المشروع لدى محاولة تنفيذه وسيتم تنفيذ 
المشروع بينما استخدام الدالة ۲٥۶14‏ سيعطي خطأ ٣۲۵۲‏ ولن يتم تنفيذ المشروع 
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تخزين ملف ما ضمن م×E‏ البرنامج أثناء التطوير واستعادته أثناء التشغيل 
في البداية سنحتاج للاستيرادات التالية كي يعمل الكود معنا 


Imports System.Reflection 


Imports System. IO 
وهذا هو كود الاستعادة مدعما بالتعليقات الكاملة التي تشرح كيفية عمله‎ 


إجراء الغرض منه استخراج أي مصدر ثنائي مضمن ضمن الملف التنفيكدى للمشروع 1 
رقخزننة ف 4 
Private Sub ExtractBinaryResource (ByVal ToStoreFileName As String, ByVal‏ 


EmResourceName As String) 

استخدام حلقة اصطياد الأخطاء ' 

Try 
' احضار اسم المجمع الحالي‎ 
Dim Ref As Assembly = Assembly.GetExecutingAssembly 
' يتضمن المصدر الثنائي الموجود في المجمع €3۳٥٣إاك انشاء‎ 
Dim ResStr As Stream = Ref.GetManifestResourceStream (Ref. GetName.Nam 

& "." & EmResourceName) 


إنشاء مصفوفة بايتات لتحمل البيانات الثنائية ' 
وبطول البياناات التي ستتم قراءتها ' 

Dim TmBuff (ResStr.Length - 1) As Byte 

nمaععStr‏ قراءة البيانات الثنائية من ال ' 

إلى مصفوفة البايتات ' 

ResStr. Read (TmBuff, 0, ResStr.Length) 


يستخدم لتخزين محتويات المصفوفة المؤقتة إلى القرص ۴۵۳٥٤ا ٣۴11٥5‏ إنشاء ' 
Using Fs As New FileStream (ToStoreFileName, FileMode.Create)‏ 
۳11et ren‏ إنشاء كاتب بيانات ثنائية يعتمد على ' 
Using Bw As New BinaryWriter (Fs)‏ 
كتابة مصفوفة البياتات للقرص ' 
Bw.Write (TmBuff)‏ 
كتابة جميع البيانات للقرص وتفريغ مخازن الذاكرة المؤقتة ' 
Bw.Flush ()‏ 
End Using‏ 
End Using‏ 


Catch ex As Exception 
' إظهار رسالة بالخطأً في حال حدوثه‎ 
MsgBox (ex.Message) 

End Try 

End Sub 


والإجراءات الصحيحة لتخزين الملف أثناء التطوير حتى لانواجه مشاكل أثناء التنفيذ 


.١‏ انسخ الملف الذي تريد استخدامه لمجلد المشروع مباشرة إياك ونسخه لداخل المجلد 81١‏ كما يفعل الكثير - ولا تضف أي ملفات 
Resource‏ داعي لھا 

۲. في ال e۲ه‌ام×ع‏ nهااuامك‏ انقر بزر الفأرة اليميني على المشروع ثم اختر )!ا ع" ااء¡»٤/4ك۸‏ وأضف الملف الذي تریده 
للمشروع 

۳. غير خاصیية ۸٥iاAc Bui|d‏ للملف انلمغضlفزف‏ إResourcea Embedded‏ 
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ملاحظة: قيمة المتغير عم" N2ءc Resour‏ "ع حساسة لحالة الأحرف أي عندما تمرر اسم المصدر الثنائي - ملف 


تطابق حالة الأحرف الممررة هنا لحالة الأحرف المكتوب بها الاسم عند تخزين الملف أي تأكد من مطابقة حالة الأحرف بالضبط لاسم الملف 
كما يظهر بعد إضافته في الخطوة رقم 2 


ملاحظة: هذا الكود يعمل مع الكثير من الملفات مثلا ملف ۸08 أو ۴0۴ أو 6( أو 8|١‏ أو 0۸1 أو ... استخدم مخيلتك 


کما یمکننا تطویر کود الاستعادة بعدة أشكال حسب الحاجة فمثلا يمكننا تعديل الإجراء لينقل الملف إلى MemoryStream‏ عوضا عن 
rn‏ tءe|ا۴‏ وبهذا يخزن في ذاكرة مؤقتة بحيث يمكن استخدامه ويكون الإجراء المعدل ليعيد ٣2ءع†ءرمصهم‏ كما يلي: 


.Nam 


Sub ExBinResToMemoryStream (ByVal EmResourceName As String, 
ByRef RetMemStr As MemoryStream) 


Dim Ref As Assembly = Assembly.GetExecutingAssembly 
Dim ResStr As Stream = Ref.GetManifestResourceStream (Ref.GetNam 
& "." & EmResourceName) 


Dim TmBuff (ResStr.Length - 1) As Byte 
ResStr. Read (TmBuff, 0, ResStr.Length) 
RetMemStr = New MemoryStream (ResStr.Length) 
RetMemStr.Write (TmBuff, 0, ResStr.Length) 


Private 


Try 


Catch ex As Exception 


MsgBox (ex.Message) 
Try 


فإذا افترضنا أن الملف هو صورة باسم عمز.0ء |۴ مثلا وأردنا تحميلها في مربع الصور نستخدم الكود التالي 


Dim Ms As MemoryStream 
ExBinResToMemoryStream("Pic0.jJpg", Ms) 
Me.PictureBox1. Image = New Bitmap (Ms) 
Ms.Close () 

Ms.Dispose () 


وهذا مثال عن استخدام الكود الأول الذي يستعيد إلى ملف على القرص 


فتح صندوق حوار فتح 


End 
End Sub 


If Me.SFD.ShowDialog = Windows.Forms.DialogResult.OK Then 


الثنائي استدعاء الإجراء وتمرير اسم الملف واسم المصدر 
ExtractBinaryResource (Me.SFD.FileName, "test.mdb")‏ 

عرض رسالة بعد الانتهاء ' 

MsgBox ("Ok") 
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End If 


تشفير الأسرار للمستخدم الحالي 


يحتاج التطبيق في كثير من الأحيان إلى تخزين بيانات خصوصية في ملف أو في الذاكرة والحل الواضح هو التشفير المتمائل الذي 

يشفر البيانات باستخدام سلسة عشوائية من البايتات تدعى بالمفتاح السري. وتكمن المشكلة عندما تريد فك تشفير البيانات المشفرة في أنك 
ستحتاج لنفس المفتاح السري الذي استخدمته للتشفير مما يؤدي إلى سلسلة من التعقيدات فإما أنك ستحتاج إلى مكان آمن لتخزين المفتاح 
السري وهذا أمر صعب أو أنك ستحتاج لاستخلاصه من معلومات أخرى مثل كلمة سر مزودة من قبل المستخدم والتي تكون في الغالب غير 
آمنة وستنهار كليا عندما ينسى المستخدم كلمة السر الخاصة به. 


و الحل المثالي هو جعل نظام الويندوز يقوم بتشفير البيانات من أجلك ولتحقیق هذا ستحتاج إلى ما يسمى ب Data Protection „Î D°AP|‏ 
|۴ والذي يقوم بتشفير البيانات باستخدام مفتاح متماثل مبني على معلومات خاصة بالمستخدم والآلة وبهذه الطريقة لم تعد تقلق بخصوص 
تخزين المفتاح ووثوقيته وبدلا عن ذلك يتأكد نظام التشغيل من وثوقية المستخدم عندما يدخل إلى النظام وتكون البيانات المخزنة من قبل 


في النسخ السابقة من الدوت نيت لايوجد فئات مدارة لاستخدام 0۶۸۲۴١‏ وتم تصحيح هذا في الدوت نيت 2.0 بالفئة الجديدة Protec 02a‏ 
في مجJl System.Security.Cryptography sla!‏ 


كيف يمکنني فعل ذلك 

الفئة ProtectData‏ تقدم طريقتان مشتركتان ءله N٥1‏ 4ممك الأولى ةمهم تأخذ مصفوفة بايتات تمتل البيانات 
المراد تشفيرها وتعيد مصفوفة بايتات بالبيانات المشفرة والثانية ههة0†ءع†ه مل تقوم بالعملية المعاكسة حيث تأخذ مصفوفة بايتات 
بالبيانات المشفرة وتعيد مصفوفة بايتات بالبيانات المفكوك تشفير ها. وباستخدام ه02 c1مProt°‏ و UnprotectData‏ يمكنك فقط التعامل مع 
مصفوفات بايتات ه٣۸۲‏ هر8 وهذا يعني أنك عندما تريد تشفير بيانات من أي نوع عليك القيام بتحويلها إلى مصفوفة بايتات قبل القيام 


مٿال عملي 


Imports System. Security.Cryptography 
TMpBOEES Systema. 1O0 


Module ProtectData 
Sub Main () 


' Get the data. 

Console.WritelLine ("Enter a secret message and press enter.") 
Console.Write (">") 

Dim Input As String = Console.ReadLine () 

Console.WriteLine () 


If Input <> "" Then 
Dim Data(), EncodedData() As Byte 


' Write the data to a new MemoryStream. 
Dim DataStream As New MemoryStream () 

Dim Writer As New StreamWriter (DataStream) 
Writer.Write (Input) 

Writer.Close () 


' Convert the MemoryStream into a byte array, 


' which is what you need to use the ProtectData() method. 
Data = DataStream. ToArray () 
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' Encrypt the byte array. 
EncodedData = ProtectedData. Protect (Data, Nothing, 
DataProtectionScope.CurrentUser) 


' Store the encrypted data in a file. 
My.Computer.FileSystem.WriteAllBytes ("c:\secret.bin", 
EncodedData, False) 


ERO TE 
ERQ. SUD 


End Module 


عندما تقوم بتشغيل التطبيق سيطلب من إدخال نص والذي سيقوم بتشفيره باستخدام الحساب الحالي للمستخدم ويقوم بتخزين البيانات في 
الملف ہأط.†هءهء والبيانات الموجودة فيه لن يستطيع قراءتها أي مستخدم آخر. وللتأكد من أن البيانات مشفرة فعلا لديك خياران قم بفتح 
الملف وألقي نظرة بنفسك أو يمكنك تعديل الكود ليقراً البيانات مباشرة من مجرى الذاكرة "هك رامصه" و الكود التالي يحاول القيام 
بالخيار الثاني ونتيجة إظهاره ستتكون سلسة نصية لا معنى لها 


' Verify the data is encrypted by reading and displaying it 
' without performing any decryption. 

DataStream = New MemoryStream (EncodedData) 

Dim Reader As New StreamReader (DataStream) 
Console.WriteLine ("Encrypted data: " & Reader.ReadToEnd() ) 
Reader.Close () 


ولتفكيك تشفير البيانات يجب عليك وضعها في مصفوفة بايتات ثم استخدام الطريقة ٥٤٥٤٣122‏ مل لاستخلاص البيانات من 
مصفوفة البايتات ويمكنك إضافة ٣عل Rea‏ 2ءS†r‏ لإضافة دعم لتفكيك التشفير للمتال السابق مثلا يمكنك إضافة الكود التالي ليقراً البيانات 
من الملف ويظهر الجملة التي أدخلتها سابقا 


If My.Computer.FileSystem.FileExists ("c:\secret.bin") Then 
Dim Data(), EncodedData() As Byte 


EncodedData = My.Computer.FileSystem. ReadAl1lBytes ("c:\secret.bin") 
Data = ProtectedData.Unprotect (EncodedData, Nothing, 
DataProtectionScope.CurrentUser) 


Dim DataStream As New MemoryStream (Data) 
Dim Reader As New StreamReader (DataStream) 


Console.WriteLine ("Decoded data from file: " & Reader.ReadToEnd() ) 
Reader.Close () 

Console.WriteLlLine () 
ENG LE 


تذكر بما أن البيانات تم تشفيرها بواسطة حساب المستخدم الحالي يمكنك تفكيك تشفيرها في أي وقت والقيد الوحيد هو انك يجب أن تدخل 
انكام تفن مات الم كك و خط أك سا قرم اة انات بكب كلك لكقار راح من الم من اللاك 
Scope Enumeration‏ ataProtectionط‏ ويكون بذلك لديك خیاران: 


LocalMachine 
سيقوم ويندوز بتشفير البيانات بمفتاح خاص بالآلة وبهذا تضمن أن لا أحد يستطيع قراءة البيانات إلا على نفس الجهاز. وهذا يعمل جيدا‎ 
بالنسبة للتطبيقات التي تعمل على المخدم هiةءااممA عه اك اممك والتي تعمل بدون تدخل المستخدم‎ 
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CurrentUser 
سيقوم ويندوز بتشفير البيانات بمفتاح خاص بالمستخدم وبالتالي لا يمكن قراءتها من قبل المستخدمين الآخرين‎ 


في المتال المذكور يتم تخزين بيانات خاصة بالمستخدم ومع ذلك يمكنك تغيير مجال حماية البيانات DataProtectionScope‏ 
ليتم تخزين البيانات بشكل يستطيع جميع مستخدمي الجهاز الوصول إليها. 


وفيما يلي سرد للمثال كاملا وهو تطبيق من yi‏ ع Console Application‏ 


Imports System. Security.Cryptography 
EMBGOEES Systema. 10 


Module ProtectData 
Sub Main () 


' Get the data. 

Console.WritelLine ("Enter a secret message and press enter.") 
Console.Write (">") 

Dim Input As String = Console.ReadLine () 

Console.WriteLine () 


If Input <> "" Then 
Dim Data(), EncodedData() As Byte 


' Write the data to a new MemoryStream. 
Dim DataStream As New MemoryStream () 

Dim Writer As New StreamWriter (DataStream) 
Writer.Write (Input) 

Writer.Close () 


' Convert the MemoryStream into a byte array, 
' which is what you need to use the ProtectData() method. 
Data = DataStream.ToArray () 


' Encrypt the byte array. 
EncodedData = ProtectedData. Protect (Data, Nothing, 
DataProtectionScope.CurrentUser) 


' Store the encrypted data in a file. 
My.Computer.FileSystem.WriteAllBytes ("c:\secret.bin", 
EncodedData, False) 


' Verify the data is encrypted by reading and displaying it 
' without performing any decryption. 

DataStream = New MemoryStream (EncodedData) 

Dim Reader As New StreamReader (DataStream) 
Console.WriteLine ("Encrypted data: " & Reader.ReadToEnd() ) 
Reader.Close () 
Console.WriteLine () 
EDA TÊ 


If My.Computer.FileSystem.FileExists ("c:\secret.bin") Then 
Dim Data(), EncodedData () As Byte 


EncodedData = My.Computer.FileSystem. ReadAllBytes ("c:\secret.bin") 
Data = ProtectedData.Unprotect (EncodedData, Nothing, 
DataProtectionScope.CurrentUser) 


Dim DataStream As New MemoryStream (Data) 
Dim Reader As New StreamReader (DataStream) 
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Console.WriteLine ("Decoded data from file: " & Reader.ReadToEnd () ) 
Reader.Close () 
Console.WriteLine () 
EAGT LEÊ 


Console.ReadLine () 
ERC SUB 


End Module 


ماذا عن ... 

حماية البيانات قبل تخزينها في قاعدة البيانات؟ طالما أناك استخدمت الفئة ة0 4ءع†ءع†هما"۴ لتشفير بياناتك يمكنك 
وضعها في أي مكان تريده ففي المثال السابق قمت بكتابة البيانات المشفرة إلى ملف ومع ذلك يمكنك كتابة البيانات الثنائية إلى سجل قاعدة 
البيانات ولفعل ذلك ستحتاج ببساطة إلى حقل ثنائي رهط في جدولك بمساحة كافية ليتسع لمصفوفة البايتات المشفرة وفي ال ٣ممك‏ اك 
تستخدم نوع البيانات رجہ اط ج لهذا الغرض 
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توجیهات المعالج 


الترجمة الشرطية 

بك اكام اتر افر اكور قاق م مى اة ترخا نهد رما فرشب في كا رات اشم رة ر عه 
استخدام طرق مختلفة لتحقيق مهمة برمجية معينة أو ربما ترغب في كتابة كود معين من اجل منطقة لغوية معينة وتم تصميم عبارات 
الترجمة الشرطية ليتم تنفيذه أثناء عملية الترجمة. 


يمكنك التصريح عن تابت للترجمة الشرطية باستخدام التوجيه اء"ه٣#‏ ويمكنك بعدها تحديد مقاطع الكود المراد ترجمته شرطيا باستخدام 
بلوك ۴| hen ... #Else ... #Elself ....# ٤¬‏ ... #۴ فمثلا يمكننا التصريح عن ثابت نستخدمه لتحديد هل نقوم بترجمة نسخة كاملة أو 
نسخة للعرض فقط مستخدمین الثابت ء #٣٥‏ كما في المثال 


Const CompDemo = "Demo" 


#If CompDemo = "Demo" Then 

االتخردضن بنسخة الخاض الكود ' 
Elself CompDemo = "Special" Then‏ 
الخافة جالهحة الخاض الكوة ' 


BIS 
العا فة باتش اتخاض الكو“‎ 
#End If 
بالإضافة إلى إمكانية تعريفك للثوابت التي تحتاجها بناء على احتياجات برنامجك هناك ثوابت تأتي معرفة سابقا وهي‎ 
في صندوق‎ Active Solution Configuration نص يعطينا الضبط الحالي لتعريف الحل المفعل حاليا‎ C0N۴6G ه٠‎ 


Configuration manager 

EBU6G ٠‏ قيمة منطقية يمكن ضبطها من صندوق حوار خيارات المشروع وهي تحدد هل ترجمة البرنامج حاليا موضوعة على 
وضع التنقيح في الحالة الافتراضية 

"ARG ۰‏ نص يحدد نوع خرج المشروع والقيم الممكنة لهذا الثابت هي winexe‏ أو library يİ exe‏ و module‏ 

"۴A٣ ۰‏ قيمة منطقية يمكن تحديدها من خصائص المشروع 

۷BC_VE۴ ۰‏ تحتوي على رقم نسخة الفيجول بايزيك 

_M۷۷ PE‏ سلسلة نصية تمثل نوع المشروع الذي يتم بناؤه وهذه تتحكم في أي من أغراض را تتوفر في المشروع 


طوي وإخفاء أقسام من الكود 
تستخدم 0١‏ عع #8 من أجل طوي وإخفاء أقسام من الكود وهي تستخدم من أجل تنظيم الكود وتصنيفه ضمن أقسام وهي تأخذ محدد وحيد هو 
فة تة اها للم کا فی المتال 

#Region " General Functions " 


القسم ضمن الكو ' 


End Region 


E 


#ExternalSource 
وهو يستخدم حصريا من قبل المترجم والمنقح حيث يوفر ربط بين سطور محددة من الكود المصدري ونص خارجي وصيغته العامة‎ 


#ExternalSource( StringLiteral , IntLiteral ) 
[ LogicalLine+t ] 
#End ExternalSource 
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كيف تجعل لنافذة برنامج ظلا 


استخدم الكود التالي لتجاوز الخاصية ئء"۳ aa‏ ٥ءجء"K‏ للنافذة وإضافية خاصية الظل لها 


E Public Class Forni 


Inherits System. Windows . Forms. Form 


H| Vindowa Form Designer JeEnErated code 


= Protected Imzerridea Readbnly Property CreateParams lj 
Aa System. Windows. Forms. LrEEatEPararms 


ا 
Lan3t ZS_DROPSHADOW = 4HEUODNO‏ 
Dim Cp As CreateParams = NyBase. LreateParams‏ 
Cp.LlassBtyle = cp.ClassStyle Or CS _ DRUOPSRADOU‏ 
Return Cp‏ 
End Het‏ 
End Property‏ 
End LlIass‏ 
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كيف تقوم بعمل أيقونة خاصة لتحكمك الخاص 


عندما تقوم بإنشاء تحكم خاص بك فيجب أن تكون له أيقونة تميزه ولاستبدال الأيقونة الافتراضية التي يظهر ها الفيجول ستوديو في شريط 
الأدوات نستخدم ملف مط أو ملف وء¡ مستقلين أو مضمنين ضمن ال إا الناتج عن المشروع ولكن يجب عليك الانتباه إلى أن لون البكسل 
اليساري الأسفل يحدد اللون الشفاف للأيقونة فإذا كان لون ذلك البكسل أصفر فأينما ورد اللون الأصفر في الأيقونة يصبح شفافا 


ولإضافة ملف مضمن ل ا استخدم أمر Add new‏ من قائمة Project‏ وأضف ملف الصورة للمشروع وسمه باسم التحكم الذي سيأخذ 
الأيقونة مثلا إذا كان اسم التحكم لديك ٣٥×8 0×٤×‏ فيجب أن يكون اسم الملف rext8B0x×٤×.b np‏ أو rextBoXEx.ic0‏ ویجب أن تکون 
أبعاده 16 × 16 بكسل ثم قم باختيار خصا الملف و غير الخاصية Compile Jae pî Embedded Resource al! Build Action‏ 
للمشروع وتلاحظ أنك قد نجحت بعمل ذلك دون إضافة إي كود وإذا كان ملف الصورة خارجي عندها ستضطر لاستخدام عا ط٣‏ صفة 
م0×Bitmap‏ ا0ا فعلى سبيل المثال انظر الكود التالي 


<ToolboxBitmap (“C:\CustomControlDemo\TextBoxEx.ico”)> _ 
Public Class TextBoxEx 

8S 
End Class 


وهي مفيدة في حالات أخرى مثل أن الصورة موجودة في || آخر أو موجودة بنفس ال اا و بغير اسم كالمثال 


<ToolboxBitmap (GetType (TextBoxXEx), “TextBoxIcon.bmp”) > 

Public Class TextBoxEx ٤ 

$ 

End Class 

حالة أخرى ستحتاج فيها إلى استخدام هذه الصفة ع طا٣ ۸٤‏ وهي حالة تعشيش الأسماء مثلا التحكم ×٤×80×ع]‏ موجود في مجال الأسماء 

Custom ControlDemo.Controls‏ عندها عليك تغيير اسم الصورة إلى p‏ "۸.6 ٥s.۲e×18B0×|cاContro‏ ومع ذلك ستبقی محتاجا 
لاستخدام انلصفة ToolboxBitmap‏ 
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لماذا يأخذ كودك وقتا طويلا أثناء التنفيذ 
عiاiگهاP‏ هو معرفة تصرفات كودك و قسم كبير منه هو معرفة فيما إذا كان هذا الكود يأخذ وقتا طويلا للتنفيذ. كما لا يجب القيام به منذ 
البدء بالتطوير ولكنه يصبح ضروريا عند تدقيق الأنظمة التي تسير ببطء كما أنه يصبح مفيدا قرب الانتهاء من التطوير وخاصة لتلك الأنظمة 
التي تعمل خارج المجال المقبول 
في فيجول ستوديو 2005 وخاصة إصدارة ۳ه1٥]‏ لديها أدوات رائعة ل عم ااه" ولكنها مصممة للعمل ضمن بيئة التطوير. و ال Auto‏ 
٣eاiگدrاP‏ الذي يبقى مع كودك يجعلك تقرر متى تشغله ومتى توقفه. وهذه المقالة تعرض كيفية توظيف بعض الوظائف المفيدة في الدوت 
نیت لبناء ٣eااگہP Auto‏ سھل الاستخدام یمکنھ توقیت سطر واحد أو برنامج کامل 


Implementing the Timestamp Class 
الخطوة الأولى هي بناء فئة تتعقب وتوقف الأوقات. ويجب أن تعلم أنه عندما تبدأ بتوقيت قطعة من الكود والوقت المار منذ البدء يمكنك‎ 
Stamp أجل توقيت البداية والنهاية متضمنا حسابات الوقت المنتهي لهذه الفئة والكود التالي يبين فئة‎ ùنم‎ DateTime استخدام افأ‎ 


Friend Class Stamp 
Private start As DateTime 
Public Sub New () 
start = DateTime.Now 
End Sub 
Public ReadOnly Property ElapsedTimeString() As String 
Get 
Return ElapsedTime.ToString () 
End Get 
End Property 
Public ReadOnly Property StartTime () 
Get 
Return start.ToLongTimeString () 
End Get 
End Property 


Public ReadOnly Property ElapsedTime () As TimeSpan 
Get 
Return DateTime.Now. Subtract (start) 

End Get 

End Property 

End Class 


Implementing the MarkTime Class 

ولإبقاء الفئة سهلة الاستخدام ضع معظم العمل عليك والفئة التالية N2۲۸٠‏ تستخدم تتبع عام لكائن م" هك وهي تبني كائن م٣‏ هك 
وتضعه في الذاكرة وتعيد علامة الوقت وستحتاج هنا للمكدس )عه لتتبع التكرار فمثلا عندما تكرر الطريقة نفسها عشر مرات فإنك تضيف 
عشر علامات بدء لمکدس N 2۲۸۲|۳٥‏ قبل أن تحتسب أوقات الانتهاء والكود التالي بین MarkTime ill‏ 


Friend Class MarkTime 
Private stack As Stack (Of Stamp) = Nothing 
Public Sub New () 

stack = New Stack (Of Stamp) () 

End Sub 
Public Function AddStart () As String 
Dim start As Stamp = New Stamp () 

stack.Push (start) 
Return start.StartTime 
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End Function 

Public Function RemoveStart () As String 

If (stack.Peek() Is Nothing = False) Then 
Return stack.Pop() .ElapsedTimeString 

Else 


Return "" 
End If 
End Function 
End Class 


بناء AutoProfiler‏ باستخدام جدول اتشر Hashtab]e‏ 


وأخیرا ال erاi؟AutoPro‏ يحتوي على باني مشترك ctor‏ ںا shared const‏ ھور sub New‏ و طریقتان مشترکتان ھما م‌ص‌Sto‏ و Start‏ 
الطريقة 5a٤‏ تستدعي الطريقة المشتركة رع)ء التي تستخدم ع٣‏ ه۲۲)عهt؟‏ والانعكاس اعم ا؟هR‏ للحصول على الاسم الكامل 
للطريقة المستدعية وهذا الاسم يصبح المفتاح ره) في جدول التهشير ءاطة۸ءجة وهنا المستخدم لن يحتاج لمعرفة أي الطرق يتم قياسها 
لأن جدول التهشير ماطه† اوج٣‏ يقوم بذلك وإذا تم استدعاء الطريقة عدة مرات وكان المدخل موجود سابقا في جدول التهشير ماطه†ئa١‏ 
سيتم معاملة التوقفات والابتداءات الإضافية بنفس كائن Mark ime‏ في جدول التهشیر eاطه‏ یه۲ وکل ما سیحتاجه مستخدم 
AutoProfiler.Start slew ga AutoProfiler‏ أو Auto Profiler .Stopp‏ وستقوم الفئة وها بمتابعة وقت البدء والتوقف والمستدعي 
و الكود التالي يحتوي الفئةع "|۲ ~a)‏ 


Public Class AutoProfiler 
Private Shared hash As Hashtable = Nothing 
Private Shared output As OutputType = OutputType.Console 
Shared Sub New () 
hash = New Hashtable 
End Sub 
Private Shared Function GetKey() As String 
Const mask As String = "{0}.{1}" 
Dim trace As StackTrace = New StackTrace 
Dim method As MethodBase = trace.GetFrame (2) .GetMethod () 
Return String.Format (mask, _ 
method. ReflectedType.FullName, method.Name) 
End Function 
Public Shared Property OutputTo() As OutputType 
Get 
Return output 
End Get 
Set (ByVal value As OutputType) 
output = value 
End Set 
End Property 
<Conditional ("DEBUG")> _ 
Public Shared Sub Start () 
Dim marker As MarkTime = Nothing 
Dim key As String = GetKey () 
If (hash (key) Is Nothing) Then 
marker = New MarkTime () 
hash.Add (key, marker) 
Else 


marker = CType (hash (key), MarkTime) 
End If 

WriteLlLine ("Started {0} at {1}", key, marker.AddStart () ) 
End Sub 
<Conditional ("DEBUG")> _ 
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Public Shared Sub Stopp () 
Dim marker As MarkTime = Nothing 
Dim key As String = GetKey () 
If (hash (key) Is Nothing) Then 
Throw New ArgumentOutOfRangeException (key, 


"Can't find start time entry") 
End If 
marker = CType (hash (key), MarkTime) 


WriteLline ("Stopped: {0}, elapsed time {1}", 
key, marker.RemoveStart () ) 
End Sub 
Private Shared Sub WriteLine (ByVal format As String, 
ByVal ParamArray args() As Object) 


If (output = OutputType.Console) Then 
System.Console.WriteLine (String.Format (format, args) ) 


Else ' debug 
System. Diagnostics. Debug.WriteLlLine( _ 
String.Format (format, args) ) 
End If 
End Sub 
End Class 


و الكود التالي يحتوي علی النص الکامل ل ٣ع|ا۴‏ ہ٣٥ Auto‏ متضمنا برنامج eاConso‏ کمثال یبین سھولة استخدام هذه الطريقة 


Imports System 
Imports System.Collections 

Imports System.Collections.Generic 
Imports System.Diagnostics 

Imports System. IO 

Imports System.Reflection 


Imports System. Text 


Module Modulel 

Sub Main () 

Test () 

End Sub 

Sub Test () 
Profiler.AutoProfiler.Start () 
System. Threading.Thread.SlLleep (5000) 
Profiler.AutoProfiler.StopPp () 


Console.ReadLine () 
End Sub 
End Module 
Namespace Profiler 


Public Enum OutputType 
Console 
Debug 
Window 


End Enum 
Public Class AutoProfiler 
Private Shared hash As Hashtable = Nothing 
Private Shared output As OutputType = OutputType.Console 
Shared Sub New () 
hash = New Hashtable 
End Sub 
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Private Shared Function GetKey() As String 
Const mask As String = "{0}.{1}" 
Dim trace As StackTrace = New StackTrace 


Dim method As MethodBase = trace.GetFrame (2) .GetMethod () 


Return String.Format (mask, _ 
method. ReflectedType.FullName, method.Name) 
End Function 
Public Shared Property OutputTo() As OutputType 
Get 


Return output 
End Get 
Set (ByVal value As OutputType) 
output = value 
End Set 
End Property 
<Conditional ("DEBUG")> _ 
Public Shared Sub Start () 
Dim marker As MarkTime = Nothing 
Dim key As String = GetKey () 
If (hash (key) Is Nothing) Then 


marker = New MarkTime () 

hash.Add (key, marker) 
Else 

marker = CType (hash (key), MarkTime) 
End If 


WritelLine ("Started {0} at {1}", key, marker.AddStart () ) 


args) ) 


End Sub 
<Conditional ("DEBUG")> _ 
Public Shared Sub Stopp () 

Dim marker As MarkTime = Nothing 

Dim key As String = GetKey () 

If (hash (key) Is Nothing) Then 

Throw New ArgumentOutOfRangeException (key, 
"Can't find start time entry") 


End If 

marker = CType (hash (key), MarkTime) 

Writeline ("Stopped: {0}, elapsed time {1}", 
key, marker.RemoveStart () ) 


End Sub 

Private Shared Sub WriteLine (ByVal format As String, 
ByVal ParamArray args() As Object) 

If (output = OutputType.Console) Then 
System.Console.WriteLine (String.Format (format, 

Else ' debug 

System.Diagnostics. Debug.WriteLine( _ 
String.Format (format, args) ) 


End If 
End Sub 
End Class 
Friend Class MarkTime 
Private stack As Stack (Of Stamp) = Nothing 
Public Sub New() 
stack = New Stack (Of Stamp) () 
End Sub 
Public Function AddStart () As String 


352 


Dim start As Stamp = New Stamp () 
stack. Push (start) 

Return start.StartTime 

End Function 


Public Function RemoveStart () As String 

If (stack.Peek() Is Nothing = False) Then 
Return stack.Pop() .ElapsedTimeString 

Else 


MM 


Return 
End If 
End Function 

End Class 

Friend Class Stamp 

Private start As DateTime 
Public Sub New() 


start = DateTime.Now 

End Sub 

Public ReadOnly Property ElapsedTimeString() As String 
Get 


Return ElapsedTime.ToString () 
End Get 
End Property 


Public ReadOnly Property StartTime () 
Get 
Return start.ToLongTimeString () 
End Get 
End Property 


Public ReadOnly Property ElapsedTime() As TimeSpan 
Get 
Return DateTime.Now. Subtract (start) 

End Get 

End Property 

End Class 


End Namespace 


توقیت كودك 

لقد قمت للتو بإنشاء اه٣‏ هان يمكن المستخدم من توقيت أي أمر أو عدة أوامر أو حتى قطعات ‏ كبيرة من الكود فقط باستدعاء 
AutoProfiler.Start‏ و AutoProÊfiler.Stopp‏ حيث تقوم هذه التقنية بتوظيف ءا ععع و sعاطه† hash‏ و reflection‏ ومعرفة الفئة 
Stk ٣€‏ حيث ستجدها مفيدة عندما تواجه كودا يتم تنفيذه بأبطأً من المقبول 
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Resources and localization lla جمliربلا ملفات المصادر وتخصيص‎ 


يوجد طر قث * للاستفادة من 1 ادر کااذہ ص وال ر والملفات 3 Salution Explorer - Salukian LitwareSmartclient’ t1 project) w H1‏ 

النصية من داخل تطبيقات الفريموورك حيث يمكنك تضمينهم مباشرة ضمن لعا ارك 

تطسقاف أ ٦‏ ر 4 تختار التحمبل من أذ r" Solution 'LitwareSmarttlient' {1 project}‏ 
بيقك أو م من ملف خارجيء ا 2 ملف LitwareSmartClient‏ 2 5 

خارجي بدلا من المصادر المضمنة يجب عليك توزیع هده الملفات مع =A] My Project‏ 

مجمع التطبيق» كما يجب عليك التأكد من أن الكود داخل التطييق يستطيع de‏ 

تحدید مسار ملفات المصادر هذه في وقت التنفيذ. وهذا سیسبب مشاکل إذا 8l LitwareLaga, pi‏ 

تم فصل الملف التنفيذي عن هذه الملفات التي يعتمد عليها. فعند أخذ خيار Î main.yb‏ 

تضمين هذه الملفات ضمن المجمعات التي تستخدمها سو صي التوزيع عندها EJ 5alution Explorer FF lass View‏ 


أكثر وثوقية وأقل عرضة للأخطاء وسأقوم هنا بشرح استخدام هذه 
المصادر وکیف ولماذا یجب تضمین هذه المصادر ودور المصادر في 


LitwareLogo.png Fils Properties 


الفريموورك 
Embedded Resource‏ 
Lopy to Gutput Directory Ûo nat copy‏ 
usta Taal‏ 

تصمين مصدر Custom Tool Namespace‏ 
ا بمثال تا زئ کف ۴ 7 ق ال“ شم افترض أنلف ا File Hame‏ 
ترید تضمين ملف صورة اسمه LitwareLogo.png‏ في تطبيقف ستبداً 
بإاضافة هذا الملف إلى مشروعك ثم من خلال صفحة الخصائص ستحدد 
Build Action‏ له إl” Embedded Resource‏ وأنت بعملك هذا قد Build action‏ 


Hom the File relates to the build and deployment processes, 


أرشدت بيئة التطوير إلى تضمين الملف داخل الملف التنفيذي للبرنامج. 


بعد قيامك بتضمين الملف كمصدر يجب عليك معرفة كيفية الوصول إليه في زمن التنفيذ. قم بفحص قطعة الكود التالية والتي تحصل على 
مرجع للمجمع الحالي ثم تستدعي الإجراء ۳" هعr†؟5عResourc et Manifest‏ لتحصل على مجرى وصول لملف المصدر -۳ ۵ءء 
acces‏ dعءaط‏ كما يجب عليك استيراد مجال الأسماء System .Ref| ec٥۸‏ و 0|. System‏ لتنفیذ الکود بشکل صحیح 


'x** get current Assembly object. 

Dim asm As Assembly = Assembly.GetExecutingAssembly () 

'x** load embedded resource into stream 

Dim ResourceName As String = "LitwareSmartClient.LitwareLogo.png" 

Dim str As Stream = asm.GetManifestResourceStream (ResourceName) 
'x** convert stream into image and load in 'x** picture box 
Dim img As Image = Image.FromStream (str) 
PictureBox1. Image = img 


كما ترى هنا فالمجمع يظهر الطريقة "هع 5ء۲ u‏ 0ءء 18ء Mani‏ tمت‏ التي تسمح لك بتمرير نص يمثل المصدر المضمن كما يجب 
ا ا ا ا اب افد خان لهال الكرر ف ك ا فى ل ر ن عر خا لحا ا ف ا قو ل ك 
ففي هذا المتال الكود يستدعي الطريقة ۳هء١†؟"ه٣۴.هعة‏ | لتحويل المجرى الذي يحتوي الصورة إلى صورة يمكن تحميلها ضمن 
صندوق الصورة ×0 re8‏ ںاPic.‏ 


لنفترض أنه لديك وثيقة × كبيرة أو عبارة اوك طويلة أو إجراءات جافا يحتاجها برنامجك يمكنك الإبقاء على هذه الملفات منفصلة داخل 
مشروعك في هذه الحالة ستستفيد من ميزة تلوين الكود في بيئة التطوير ومخطط ا"× كل هذا يتطلب تضمين هذه المصادر في المجمع الناتج 


والوصول إليهم باستخدام هذه الطريقة كما سترى فإذا كان لديك ملف 501 و ملف 1× مضمنين داخل برنامجك يمكنك الوصول إليهم 
كالتالي: 
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Load Resources 
'x** get current Assembly object. 
Dim asm As Assembly = Assembly.GetExecutingAssembly () 


'x** load embedded SQL resources fil 

Dim SqlResourceName As String = "LitwareSmartClient.GetProducts.sql" 
Dim strSQL As Stream = asm.GetManifestResourceStream (SqlResourceName) 
Dim reader As New StreamReader (strSQL) 

Dim sql As String = reader.ReadToEnd 

reader.Close () 


'x** load embedded XML resources fil 

Dim XmlResourceName As String = "LitwareSmartClient.Customers. xml" 
Dim strXML As Stream = asm.GetManifestResourceStream (XmlResourceName) 
Dim xmlDoc As New XmlDocument () 

xmlDoc.Load (strXML) 

strXxML.Close () 


ملفات المصادر 

التقنية التي رأيتها تتضمن تضمين ملفات المصادر مباشرة داخل المجمع وتحميلهم باستخدام الطريقة 

et ManifestResourceStream‏ التي تزودها فئة ءءهاع المجمع ولكن هناك ملفات مصادر بديلة تسهل التعامل مع المصادر في العديد 
من الحالات كما أن بيئة التطوير تقدم بعض التسهيلات عندما يتعلق الأمر بالمصادر وتخصيیص البرنامج محليا 


التعامل مع ملفات المصادر 

يمكن استخدام المصادر في الدوت نيت كمصادر مضمنة ضمن المجمعات وإحدى فوائد استخدام ملفات المصادر هي ان جمیع 

لفات راتتاس ال فى ققق ار اكة كاقكرضن روسان الست کن کر ےا ی کر ت رال د کی ل 
ملف مصادر خاص لكل لغة تريد دعمها وملف المصادر الفعلي هو ملف نصي يعتمد على صيغة |ا× بلاحقة ×وعم. وهذا مثال يعطيك فكرة 
عما يمكن أن يحتويه الملف 


<roOL> 


<data name="MainFormCaption"> 
<value>Litware Customer Manager</value> 
</data> 


<data name="UserWelcome"> 
<value>Good day</value> 
</data> 


<data name="ErrorMessagel"> 
<value>Oh no, Something went wrong!</value> 
</data> 


KZ EOOE> 


يمكنك ترجمة ملف المصادر إلى الصيغة الثنائية باستخدام الأداة Resgen.exe‏ وسيكون للملف الناتج اللاحقة ءعع ا uمءعم.‏ كالمثال التالي 
الذي يمكن تنفيذه من ملف دفعي أو من داخل بيئة التطوير 


RESGEN.EXE LitwareStrings.resx LitwareStrings.resources 


وبعدها يجب عليك ترجمة الملف الناتج لمجمع دوت نيت باستخدام الأداة ٥×ع.|۸‏ كالمثال 


AL.EXE /t:library /out:LitwareStrings.resources.dll /link:LitwareStrings.resources 
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وبعد ترجمة هذه المصادر إلى مجمع دوت نيت عندها يمكنك الوصول إليها باستخدام الفة ع ع2 N3"‏ ء0urcءمR‏ الموجودة ضمن مجال 
الأسماء System .Resources‏ كالمثال 


Dim asm As Assembly = Assembly.Load("LitwareStrings.resources™) 
Dim rm As New System. Resources. ResourceManager ("LitwareStrings", asm) 
Dim caption As String = rm.GetString ("MainFormCaption™) 


کما یمکن استخدام ٥×ع.۵۸عء8e‏ لإنشاء ملفات مصادر بأنواع فئات قوية ءءھاc typed resource‏ yاstrong‏ تعرض خصائص تقدم 
طريقة سهلة للوصول إلى ملفات المصادر كالمثال 


RESGEN.EXE LitwareStrings.resx LitwareStrings.resources /str:vb 


م م 


وسطر الأوامر هذا يولد ملف ط۷ يحتوي على فئة تتضمن شفرة تستدعي ٥۲‏ ع2/ ۸۴501۲٠۵/3‏ وتعيد خصائص بالمصادر 


Shared ReadOnly Property MainFormCaption() As String 

Get 

Return ResourceManager.GetString ("MainFormCaption", resourceCulture) 
End Get 
End Property 


لقد انتهيت من عرض سريع بمستوى عالي لكيفية ترجمة ملفات المصادر ضمن المجمعات وكيفية استخدامها من خلال الفئة 
ResourceManager‏ وملفات المصادر القوية وهذا يعطيك فكرة عن كيفية جمع الملفات المختلفة معا. ولن نكمل الوقت في التفاصيل 
منخفضة المستوى لأنك لن تضطر للتعامل معها عند تخصيصلك للبرنامج محليا في التطبيقات والمكتبات لأن بيئة التطوير تقدم لك تسهيلات 
كثيرة في هذا المجال. وأبقي في ذهنك أنك ربما ستحتاج للتعامل مع هذه الأوامر عند قيامك ببرمجة بعض الأدوات والمكتبات 


Fi E em iat Bk fai Ds Fee rde mmny Hale 


FS LilwnrrêmarlClianî 2 ik rozî What Huda 8 la ملفات المصادر کن فيجول ستو ديو 2005 ا‎ 


rh HY | zl ذا . دة هھ ك‎ : FF beta * iy u FEE 8 E 
litmaareShnrp rea" er FE || hn Eline Sh Ba sir... > . امد کا ال‎ 
PORE reg WT Windows Forms E برامج نماذج الويندوز‎ 
ES ومعظم المفاهيم التي تم عرضها تنطبق‎ همماicati‎ 
E a أيضا على المكتبات اا0 ۲۷ة۲ طا كوهاع ويسهل عليك‎ 


<] ain. 
Welton r 1 Emre 


فيجول ستوديو التعامل مع ملفات المصادر بتقديم محرر 
مرئي حيث يمكنك إضافة ملف مصادر جديد باستخدام ا 
!ٺمر Resources file رlıتخl, Add New Item‏ |« اچ یی 
وبعد قيامك بإضافة ملف مصادر للمشروع لم يعد من 
الضروري التعامل معها بالصيغة × داخل ملف 
.۲٠5×‏ فبدلا عن ذلك يزود ك فيجول ستوديو بمحرر 
مصادر سهل يمكنك من التعامل مع مختلف أنواع 
المصادر بسهولة 


îı re, Smetana] erk eran] ب‎ 
8 Sek fan Ergin EF 


عندما تترجم ءاام ص٣هء‏ مشروع يحتوي علی ملف مصادر فإن فیجول ستودیو یترجم الملف ×ع٠.‏ إلى ٣٥٥۶‏ ںمءمم. ثم یربطھا داخل 
الضررة الفر دة لح الا وها ي أن كا اال امك قر ج قات امان و تكعةا سن رر المج الات ك 
توليها من قبل فيجول ستوديو كما أنه يبني فئة مصادر بنوع قوي وھا c٥‏ 0uءها‏ ۵عمر† yاعہهtء‏ ویکشفها لمشروع فیجول بايزيك 
ضمن مجال الأسماء ١y‏ الجديد في 2005 وهذا يعني أنك تحصل على فوائد الفة دهاع Resource Nang‏ التي تقوم بتحميل 
مصادرك مباشرة ولم يعد من الضروري قيامك ببرمجة الفئة مباشرة حيث يمكنك استخدام المصادر مباشرة ببساطة كالكود 
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Sub Main Load(sender As Object, e As EventArgs) 
Handles MyBase.Load 
ME TERE 
My.Resources.LitwareStrings.MainFormCaption 
Me.lblUserWelcome.Text = _| 
My.Resources.LitwareStrings.UserWelcome 
End Sub 


ملفات المصادر على مستوى المشروع 

بينما يمكنك بشكل واضح إضافة ملف مصادر إلى مشروع فيجول ستوديو الأمر الذي يعتبر غير ضروري لوجود ملف مصادر مضمن سلفا 
على مستوى المشروع يتم إضافته تلقائيا كلما قمت بإنشاء مشروع جديد والذي يمكن الوصول إليه من خصائص المشروع في المحرر 
وعندما تريد الوصول إلى المصادر المختلفة كالنصوص يمكنك الوصول إليهم مباشرة من خلال الفأ My.Resources‏ 


Private Sub LoadResources () 
'x*x** load project-level resources 
Me.Text = My.Resources.MainFormCaption 
Me.lblWelcomeMessage.Text = My.Resources.UserWelcom 
End Sub 


كما ترى فعملية الوصول إلى هذه المصادر عملية سهلة ويمكنك التقدم خطوة أخرى بتضمين أنواع مختلفة مثل الصور وأشياء أخرى 
وسيكون الوصول إليها بنفس السهولة كالنصوص فمتلا إذا قمت بإضافة ملف صورة ع٣‏ م.٥ع٠اعإaسit]‏ كمصدر وكذلك ملف |"× متلا 
اrs.×m ust ome‏ لملف المصادر الخاص بالمشروع يمكنك الوصول إليهم بسهولة 


Me.piclLogo. Image = My.Resources.LitwareLogo 


Dim xmlDoc As New Xml.XmlDocument 
xmlDoc.LoadXml (My.Resources.Customers) 


كما تلاحظ فإن فئات المصادر القوية وها عresourc‏ dعمty‏ yاtrongء‏ تحول ملف الصورة إلى شئ صورة اءعزطه ٥ع2"|‏ يمكن 
تحميله مباشرة إلى صندوق الصورة ×80ءں ء۴ كما يحول ملف »× مضمن بسهولة إلى وثيقة ا× 


إعدادات الثقافة وتخصيص البرنامج محليا 

من المتطلبات الشائعة لمشاريع البرامج أن يتم تخصيصها محليا وذلك بهدف تمكين أشخاص يتحدثون لغة معينة من التعامل معها 

فإذا كنت تقوم بكتابة برنامج وتريد توجيهه لمستخدمين يتحدثون الانجليزية والفرنسية في فيجول بايزيك 2005 فإن الفريموورك لديها الكثير 
لتقدمه لك في هذا المجال فعندما تبداً بكتابة تطبيقك المعتمد على الفريموورك ستحتاج لدعم التخصيص محليا ١٥ااةااةءه|‏ ويجب عليك 
التعود على الفئة "۴٥‏ اع ںا الموجودة ضمن نطاق الأسماء ١0۸ااهizاةطها6."عtءر؟‏ والتي تتبع اسم لغة تحدد اللغة المنطوقة فاسم 
اللغة الانکلیزية ع والفرنسية ۴٣‏ کما أن الفئة ١٥۱۴ع‏ ںعاںC‏ تحمل معلومات أخرى حول المنطقة المستخدم فيھا تلك اللغة ف یں-٣م‏ من 
أجJ US English‏ و en-gb‏ من أجJ British English‏ و fr-be‏ من أجل Belgian French‏ و إلیك مثال ینشئ ۴0٣۱ع‏ ں†اuاC‏ خاص 
بلغات مختلفة 


Dim culturel As CultureInfo = New CultureInfo ("en-US") 
Dim culture2 As CultureInfo = New CultureInfo ("en-GB") 
Dim culture3 As CultureInfo = New CultureInfo ("fr") 

Dim culture4 As CultureInfo = New CultureInfo ("fr-BE") 


وفي الحقيقة هناك شيئين اءعزطه ل ۴0” اعا tuاCu‏ يستدعيان انتباهك الأول ءا ں†اں٣ Curr"‏ يمثل الثقافة الحالية بينما الثاني 
Current Culture‏ يمتل لغة الواجهة حيث يمكنك تحديد أسماء التقافات للاثنين كالمتال 
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'x*** determine cürréênt cültüre and cuürrênt UI cültüre 
Dim t As Thread = Thread.CurrentThread 
Dim currentCulture As CultureInfo = t.CurrentCulture 

Dim currentUICulture As CultureInfo = t.CurrentUICulture 


'x** display cultures in console 
Console.WriteLine ("Current Culture: " & currentCulture.Name) 
Console.WriteLine ("Current UI Culture: " & currentUICulture.Name) 


فالأول Curren Cuا†ں r٥‏ لا يستخدم لجعل النصوص محلية ولكنه يحدد تنسيق التواريخ والأرقام والعملات فتغييره مثلا بين الانكليزية 
الأمريكية والبريطانية سيؤدي إلى نتائج غريبة مثلا عندما يتعلق الأمر بالعملات فالتغيير سيؤدي إلى نتائج خاطئة لهذا يتم تيت 

Current Culture‏ حتی عندما نقوم بعمل برنامج بلغات مختلفة. وإذا کنت مصمما علی تغییر عreںاں٤‏ ۲٣ں‏ فتآکد من انك تستخدم 
أسماء ثقافات بأسماء مناطق محددۃ مثل ویں-۸ع و bع-٣ع‏ و ٥ط-٣f‏ مثلا ومن ناحية أخرى فإنك ستحصل على أخطاء زمن التنفيذ عند 
استخدامك أسماء لغات مجردة مثل م٠‏ أو ۴۲ لأنها لا تحتوي على تنسيقات التواريخ والأرقام ... الخ وستصبح متطلبات التنسيق غامضة. 


والثاني ٥ا‏ ں†اں٣ال۲٣ Curr‏ هام للنقاش أكثر بخصوص جعل البرنامج محليا بسبب أن تغييره يؤثر على المسار الحالي current thread‏ 
و كيفية تعامل الفريموورك مع مدير المصادر ResourceManager‏ وتحميل المجمعات التي تحتوي على مصادر فة كما آنه يؤثر في 
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Resour ce5.€5×‏ قم بنسخه وعمل نسخ عنه 
بواسطة النسخ واللصق داخل محرر المشروع 
Studio Solution Explorer‏ اVisua‏ وبعد قیامك 
بعملية النسخ قم بتعديل الاسم بإضافة اسم اللغة قبل 
لاحقة الملفک Resources.fr-BE.resx lںlûn .resx‏ 
من أجل الفرنسية في بلجيكا كالصورة 


Satellite Assemblies ةديعبئil المجمعات‎ 

عندما تقوم بترجمة مشروع يتضمن مصادر مخصصة محليا لا يقوم فيجول ستوديو بترجمة جميع هذه المصادر إلى مجمع واحد 
و عن دك ق رة هه السار الخضسضة مطها إلى مات مم كل متها يضري لى فك امار رل يطون طن كرة 
وهذا ما يدعى بالمجمعات البعيدة ءعiاطا"۳عءكA‏ ع†اام†جS.‏ و كل مجمع بعيد مرتبط مجمع رئيسي يدعى بالمجمع الطبيعي اوها اuمم‏ 
واطاصعءءه وهو يحتوي على كامل الكود والمصادر الطبيعية ويقوم بتحميل المجمع البعيد الضروري لتخصيص المصادر محليا حسب 
متطلبات المستخدم الحالي فمثلا فالبرنامج م×ع.†"ءiا٣†aص5SمLitwar‏ هو المجمع الطبيعي ويحتوي كامل كود التطبيق وهو مرتبط بعدة 
ملفات مصادر كل منها اسمه |اك.sععLitwareSmartClient.resour‏ وعندما تنشر المجمعات البعيدة مع المجمع الطبيعي في مجلدات 
ضمن مجلد التطبيق يتم نشرها وفق قواعد مجمعات الفريموورك ويشكل خاص فالمجمعات الخاصة بالثقافات المختلفة يتم نشرها في مجلدات 
بأسماء الثقافات المخصصة. فعلى سبيل المثال مجلد التطبيق مع×ع.٤۸ءiا٣٤5۳2۲۲ء‏ اس1ا يحتوي على مجلد باسم ۴۲-8٤‏ خاص باللغة 
الفرنسية في بلجيكا وفيه ملف المصادر باسم |اك.sعLitwareSmartClient.resourcا‏ وطالما تم التقيد بهذه القواعد فإن محمل المجمع 
aderدا‏ yاssembه‏ بالتعاون مع فئة مدير المصادر ككهاعء Resource ang €٣‏ سيقوم بتحميل مجموعة المصادر المناسبة حسب 
الحاجة. ولحسن الحظ فإن فيجول ستوديو يعرف كيف يقوم بتسمية المصادر البعيدة ونشرها ضمن تركيب المجلدات الصحيح المتوقع من 
مجمل المجمع في الفريموورك وحتى تحصل على مستوى فهم أكثر لهذا التوزيع قم بترجمة هاأمهء مشروعك وتفحص بنية المجلدات 
الناتجة من مجلد التطبيق والمجلدات الفرعية فيه 
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تحميل المصادر المخصصة محليا 

بعد قيامك بإنشاء وتحرير كافة ملفات المصادر المخصصة محليا وقيامك بترجمة eاcompi‏ مشروعك أصبح الوقت مناسبا 
ات عن که ا بر داسك شل مج عة تفار العو اة ما امف من فل المتكة الال احدى الطرة لاه 
بذلك هو الحصول على مرجع للمسار الحالي dجع۸۲† current‏ وضبط 0 اعturاCu‏ جديد إلى الخاصية CurrentU|Cul|†u re‏ كالمثال 


My.Application.ChangeUICulture ("fr-BE") 


في الكود المثال المرفق مع المقال تم إضافة إمكانية للمستخدمين لاختيار اللغة المفضلة لهم بالإضافة لمتابعة تغييرات اللغة عندما يغلق 
البرنامج ويعاد تشغيله فمع وجود إمكانية متابعة هذه الإعدادات بواسطة مفاتيح سجل النظام فإن فيجول ستوديو يوفر إمكانية للابتعاد عن 
سجل النظام باستخدام إعدادات التطبيق والتي يتم حفظها لكل مستخدم على حدى وفي المثال يقوم التطبيق بمتابعة هذه الإعدادات بالإعداد 
ference‏ serlkanguagePreلU‏ في حدث البدء للتطبيق كما في المثال 


'x*** code in ApplicationEvents.vb 
Namespace My 
Partial Friend Class MyApplication 
Private Sub MyApplication Startup (ByVal sender As Object, 
ByVal e As StartupEventArgs) Handles Me.Startup 


'x*x** initialize application by setting preferred language 
Dim lang As String = My.Settings.UserLanguagePreference 
My.Application.ChangeUICulture (lang) 


End Sub 
End Class 
End Namespace 


كما يوفر للمستخدم مجموعة من أزرار الانتقاء ور هط ماله للتبديل بين اللغات المختلفة كما في المثال 


'x** retrieve user's language preference 
Dim lang As String = CType (sender, Control) .Tag 


'x** save user setting 
My.Settings.UserLanguagePreference = lang 
My.Settings.Save () 


'x** change application's UI culture 
My.Application.ChangeUICulture (My.Settings.UserLanguagePreference) 


'x*x** call custom method to reload localized strings 
LoadResources () 


الذي يظهر جزءا من كود من معالج حدث يستجيب لطلب المستخدم بتغيير اللغة. فالآن وقد رأينا الكود الأساسي الذي يتيح للمستخدم تغيير 
اللغة فالفريموورك تستجيب ل عا ںا Ny .Appماication.chang e01٣ u‏ بتحميل المجمع البعيد المناسب في المرة القادمة التي يقوم فيها 
مدير المصادر بقراءة نص من ملف المصادر على مستوى المشروع بعد iwlدsle ChangeUICulture‏ يمكن للتطبيق إعادة الاستعلام عن 
المصادر على مستوى التطبيق وتحميلهم على النموذج في نفس الكود الذي رأيناه سابقا ضمن الطريقة ءعإ0uءعR‏ 024ا 


Me.Text = My.Resources.MainFormCaption 

Me.lblWelcomeMessage.Text = My.Resources.UserWelcom 

لاحظ أن محمل المجمع في الفريموورك سيحاول أولا إيجاد تطابق تام لاسم اللغة والمنطقة المطلوبة من اسم الثقافة في الكود واسم الثقافة في 

المجمعات البعيدة فإن لم يجد فسيحاول إيجاد شبيه من ضمن المجمعات المتوفرة فمتلا إذا كان المجمع يبحث عن هء-٣]‏ الفرنسية في كندا فإن 
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لم يجدها فسيبحٽث عن مجمع الفرنسية ۴٣‏ فان لم يجده فسيعيد النص الموجود ضمن المجمع الطبيعي neutral assembly‏ الذي يحتوي غل 
مجموعة من المصادر بداخله وكما ترى فالفريموورك تعود للمجمع الطبيعي عند فشلها في تحديد المجمع الخاص بثقافة معينة . 


عند قيامك بترجمة المجمع الطبيعي يمكنك تعليمه بخاصية عttributه‏ تحدد للفريموورك الثقافة الافتراضية فمثلا يمكنك تحديد 
خاصية في الملف ط۷.٥۴ہاyاbہعsءءA‏ لإخبار التطبيق أنه عند استخدام الإعدادات الافتراضية فانه یستخدم إعدادات اللغة الانكليزية متلا 


<Assembly: System. Resources.NeutralResourcesLanguage ("en") > 


تخصيیص النموذج والتحكمات محليا 

رأيت كيف يمكنك تخصيص مصادر النصوص على مستوى التطبيق وهذه التقنية تتضمن نسخ ومعالجة ملفات المصادر المخصصة محليا 
ويوفر لك فيجول ستوديو 2005 مساعدة إضافية عندما تريد تخصيص النصوص الخاصة بنموذج معين والتحكمات بداخله فكل نموذج 
ه۴ له الخاصية عاطهizاجءه]‏ والتي تأخذ قیمة مں ]۲ أو مءاھ۴ فإن تم ضبطها إلى عں] فإن فيجول ستوديو سينشئ ويعالج مجموعة 
من ملفات المصادر المخصصة محليا من أجلك في الخلفية. 


عندما تضبط الخاصية عاطه-اجءه] إلى مں] فاللغة الأساسية تكون انهه وعندما تضيف قيم للخصائص المختلفة ففيجول ستوديو يقوم 
بإضافتهم للمجمع الطبيعي وعندما تقوم بتغيير اللغة إلى لغة محددة مثل الفرنسية ببلجيكا سيقوم فيجول ستوديو بإنشاء ملف مضادر مخصض 
يتم ترجمته ءاام« ٥ء‏ ضمن المجمع البعيد تماما كما يتم بالنسبة لملفات المصادر على مستوى المشروع وبهذا يريحك فيجول ستوديو من 
اعا مار ةم فاك النائر ئى ت الخال عا يو اك 


الملخصصة محليا وضبطها من أجل النموذج والتحكمات وبدلا عن استخدام مدير المصادر ResourceManager‏ یستخدم فيجول ستوديو 
فئة مشتقة منه تدعأ .System.Component Model «law! Jlجم jمض öدgجga ComponentResource Manager‏ 


عندما يتم تحميل نموذج مخصص محليا فإن كل شئ متعلق بتحميل المصادر المخصصة محليا يتم عمله من أجلك من خلال الكود الذي يولده 
فيجول ستودیو تلقائیا وبالتحدید فإنه یوفر کودا یوفر تواجد ۸٥e‏ ھاءہ| للفنة onentResourceManagerمComp‏ التي تقوم بتحمیل 
مجر المعادو اة ر واف الا اكك و ك فن كان ادح مها ركن السك شر الله بك عاك كاه 
کود إضافي من أجل تجديد المصادر وفقا للإعدادات الجديدة كالمثال وذلك بإنشاء وتحديد تواجد للفئة ComponentResourceManager‏ 
وتمرير نوع المعلومات له حول النموذج. 


Dim crm As ComponentResourceManager 

crm = New ComponentResourceManager (GetType (Main) ) 
crm.ApplyResources (cmdAddCustomer, cmdAddCustomer.Name) 
crm.ApplyResources (mnuFile, mnuFile.Name) 

crm.ApplyResources (mnuFileAddCustomer, mnuFileAddCustomer.Name) 
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مقدمة SD O Gi‏ 
القسم الأول - معالجة الأخطاء eT‏ 
معالجة الأخطاء EEE‏ 
تنقيح الأخطاء في ڊرliمجك« Sa DEBUGGING YOUR APPLICATION‏ 
الاستثناءات E×٤٤۶۲10 ۸5S‏ اصطياد الأخطاء ومعالجتها E‏ 
القسم الثاني - البرمجة المتعلقَة ب V8A‏ ڍ a MICROSOFT OFFICE j V86‏ 
الفروقات بين 782008 و C#3.0‏ و ۷86 OOO ORE‏ 0 
ملاحظات هامة عند ترقية مشاريع 786 إلى 2008 O a V8 .N E‏ 
مكتبة التوافقية الخاصة بفيجول بايزيك 6.0 OE‏ 
هل تعاني من مشكلة في معالج تحديث الكود من ۷86 إلى ۷82005 E E a‏ 
استخدام كود فيجول بيزيك دوت نيت في فيجول بيزيك 6 O‏ 
كيف يمكننا استخدام فيجول بايزيك 2008 لإنشاء صفحات أشرطة إضافیۂ ل 2007 ENE ٤×X٥٤L‏ .7 
أتمتة وورد 2007 باستخدام فيجول بايزيك دوت نيت lO‏ 
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كتابة شیفرة لإنشاء ۸00-1۸ یتم استدعاؤه من ۷8۸ o ROO O OEE‏ 
كيف نستدعي صناديق الحوار الخاصة بمايكروسوفت وورد من برنامجنا ORO‏ 1 
القسم E O O XAML gy WPF gy SILVERLIGHT - ùl‏ 
كتابة تطبيقك الأول من oO WPF APPL1CAT1ON Egil‏ 
كيف نطبق مظهر مختلف على التحکمات في تطبیق O EE W۷۶۴‏ 
كيف يمكننا تضمين صورة کمصدر في تطبیق W۴‏ تم إظهارها وقت التنفیذ؟ o OE‏ 
كيف يمكننا تطبيق مظهر مخصص لنافذة برنامج W۴‏ في زمن التشغيل o E‏ 
استخدام تحکمات W1N(0WS ۴0۸ MS‏ من داخل تطبیق WPF‏ 1 
استخدام عناصر ۴ WP‏ من داخل تطبیق SO. W1IND0WS F0 FMS‏ 
كتابة تطبيقنا الأول بتفنية O S11۷ R116 ٩7‏ 
أدوات التحكم بترتيب ناص E o SILVERLIGHT AND WPF‏ 
إنشاء ساعة تماثلية باستخدام تقنية 11۷٤۸1161‏ باستخدام الكود فقط CL o‏ 
الفروقات في معالج O WPF gy SILVERLIGHT jùıڊ XAML‏ 
كيف نسستخدم عناصر 5۲۷1۴٤‏ للتحكم بمظهر التطبيق. OSES‏ 
تخصيڍص مظھر |لتھكIaت EE SILVERLIGHT & WPF‏ 
القسم الرابع - النظام والملفات e‏ 
مثال على عملية إنشاء WN D0WS SERV|CE‏ - إنشاء برنامج تشفير تلقائي للملفات o O‏ 
كيف يمكننا التأكد من تحرير موارد النظام التي يستخدمها كودنا a‏ 
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كيفية إضافة بنود إلى قائمة النظام برمجيا a‏ 


كيف يمكننا البحث عن ملف بمحتوى معين ضمن شجرة مجلدات SO OS‏ 
كيف نقوم بالبحث في سجل النظام EOE EEE E OT‏ 
تعالوا نعمل معا "AS MANAGER‏ بسیط وبسر عة n O‏ 
تعقب إضافة وإزالة الأقراص المرتبطة عبر منفذ 8ٍئل O EOE E‏ 
تشغيل برنامج خارجي من ضمن كود فيجول بايزيك دوت نيت EO EE‏ 
الأصوات في ۲ O OOO E ۷8 .×N۴‏ 
إدخال وإخراج الأقراص القابلة dأjiزع‏ برaجlı sene EJECT/LOAD REMOVABLE MED14A‏ ...< 102 
مراقبة نظام |lمlفات‏ - lتھكp DE a FILESYSTEMWATCHER‏ 
القسم الخامس - الانترنت OS SED OG Î‏ 
E LINKLABEL 5l‏ 
إضافة وصلات ويب وبريد الكتروني لنافذتك O‏ 
الاتصال بالانترنت برمج LIO Sissiiasiosc osseous asa‏ 
كيف نستخدم MY.C0MPUTER.NETWORK‏ لرفع وتحمیل ملفات في 2005 8۸51۲ A1‏ ل۷18 ......... 113 
منع تغيير الصفحة الافتراضية للإنترنت إكسبلورر و تغييرها برمج ET‏ 
القسم السادس - برمجة ۸۲ل الخاص بويندوز فيستا 1Y‏ 
o EO EONS UAC SECURITY‏ 
تمكين برنامجك من استخدام صلاحیات مدير على فیستا D22‏ 
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1 كيف نقوم بجعل أحد الأزرار في برنامجنا ينفذ أوامر تتطلب صلاحيات مدير في ويندوز فيستا‎ 
1 REE LINQ - القسم السابع‎ 
1 2 لابد من الاطلاع عليها‎ 11٨4 مواضيع متعلقة بتقنية‎ 
N O yT 11NQ مقدمة في‎ 
LIO O LINQ PROVIDERS - LINQ ٽlدgjah‎ 
ee OOOO 11٨ Q بنية استعلامات‎ 
DS ics ترقية مشاريع 2005 لتعمل على 2008 ثم إضافة دعم ه١11 لتلك المشاريع‎ 
DT 11× @ وأساسیات استعلامات‎ 11NQ 0 OBJECT 
DE Si OC SESERRA LINQ TO DATASET 
L4 ens LAMBDA EXPRESSIONS مIدختwا مع‎ LINQ 10 D۸1 ASET jJڦlع مثال عملي‎ 
1 EO OS LINQ TO XML مقدمة في‎ 
E EE LINQ TO XML ٽIمlدختسا بعص‎ 
LSA 0/R DESIGNER gy LINQ T0 SQL JE تعرف‎ 
LS O E LINQ TO SQL MASTER/DETAIL 
O يدويا‎ 1114 ۲0 5Q1 مثال سريع عن كيفية إنشاء فنات‎ 
1 POO OE EO OOOO TOE 11١4 أمثلة على استعلامات‎ 
aT COMPILED QUERI1ES الاستعلامات المترجم‎ 
i EOE EEE 11۸NQ إضافة طرائق مخصصة لاستعلامات لينك‎ 
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القسم الثامن - الفئات والواجهات ومجالات الأسماء Oa‏ 


o تجزئة الفئة أو التركيب على عدة ملفات‎ 
O OVERRIDING WNDPROC 
I70 N INTERFACES ٽlجاولl‎ 
DOG IENUMERABLE(OF T) û4جاوئl تحقيق‎ 
E IDISPOSABLE إدارة المصادر انوج‎ 
1 iE EE ERE USING GENERICS WITH INTERFACES 
O O O O M۷ نظرة ضمن مجال الأسماء‎ 
N ET M۷ كيف تقوم بإاضافة إجراءاتك الخاصة إلى مجال الأسماء‎ 
1 RAISEEVENT TUTORI1AL ةصlخئا‎ كûlدحأ كيف تستطيع إطلاق‎ 
O O DD o EXTENSION METHODS الطرائق الْمُوَسٌع‎ 
O O M۸1۸ًةَقيرطلا‎ 
O E OPERATORS OVERLOADING ٽڻںںnlعaأأ‎ دئاjلا التحميل‎ 
o إنشاء مكتبة تضيف وظائف جديدة للتحكمات الموجودة بدون استخدام الوراثة‎ 
1 | TEE MY EXTENSIBILITY مIدختwlڊ‎ MY ءاaسألl‎ Jاجم توسيع‎ 


جعل صندوق النصوص يقبل العمليات الحسابية بدون استخدام الخاصية 1۴×۲ ودوال تحويل الأنواع... 217 


E ERY القسم التاسع - تعدد المسارات‎ 
DD THREADING IN WINDOWS FORMS APPLICATIONS 
2 eS Sh es USING THE THREAD POOL ٽlرlصملا استخدام بحير‎ 
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22S THREAD SYNCHRONIZATION ٽارlسnlا‎ jمازت‎ 


كيفية تنفيذ عملية في مسار آخر وإظهار النتيجة في التحكمات على النموذج DD a a‏ 
القسم العاشر - المجمعات والمشاريع e E E OPCS PEE CEES OEE PEREN E‏ 
مجمعات الدوت ıiٽ DAS ecco DOT NET ASSEMBLIES‏ 
المجمعات ذات sla!‏ قوي Pa O EEE STRONG NAMED ASSEMBLIES‏ 
ko EO O FRIEND ASSEMBLIES‏ 
مترجم سطر الأوامر الخاص بفيجوال بايزيك 2008. E‏ 
التعامل مع محددات سطر !لأوامر le OE O COMMANDLINEARGS‏ 
الإعدادات من وجهة نظر .×٤۲‏ ۷8 من 2002 حتى 2005 n OEE‏ 
أحداث التطبيق AE .APPLICATION EVENTS‏ 
كيفية استخدام ملف التعريف الخاص بالتطبيق لاستهداف نسخة معينة من الفريموورك a‏ 
كيف نقوم بتوزيع مشرو عنا باستخدام تي NOTE CLICK ONCE‏ 1 1 
نشر مشروعك باستخدام DTA SETUPW1ZARD‏ 
القسم الحادي عشر - قواعد البيانات jy‏ 
عندما تتصل ب 2005 5Q1 S٤۸۷۴٤۴۸‏ تعاني من طول فترة الاتصال 1l EOE‏ 
كيف تضيف إجراء اتك الخاصةۂ إِلڪ r u OE SQ1 SERVER‏ 
كيف نقوم بالتبديل بين إصدارات سيكول سيرفر 2008 المختلفة O O Sa‏ 
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القسم الثاني عشر - التعابير النظامية 0o OOOO‏ 


E O O O البحث عن الكلمات والنصوص المقتبسة‎ 
OD O التحقق من السلاسل النصية والأرقام والتواريخ‎ 
ORO O EE EO تعابير نظامية شائعة جاهزة للاستخدام‎ 
0o OO NOE EE القسم الثالث عشر - مواضيع مختلفة‎ 
O IF OPERATOR 
SUE O O O O LAMBDA EXPRESSIONS 
SGA SA Sa LAMBDA EXPRESSIONS تعابير لمدا في نمق‎ 
E a O NULLABLE VALUE TYPES 
0 A OOD EEE OBJECT INITIALIZERS 
STO LOCAL TYPE INFERENCE gill yİعE الإاستدلال المحلي‎ 
0 2 O إجبار المستخدم على اختيار واحدة من عدة قيم محددة سابقا في صندوق النصوص‎ 
n USING STORED PROCEDURES ةijخnll استخدام الوظائف‎ 
0 2 E ANONYMOUS TYPES ةlgجمئا الأنواع‎ 
SIOR eein Seen OS oie anê PROPERTYGRID pكھتl‎ 
0 E ]M۲1.1)1١ والتوسیع‎ £×۶11٣1۲ التحويل بين أنواع البيانات باستخدام التضییق‎ 
O E EE STRINGBUILDER أ‎ 
o OO OOO O OCT OBSOLETE ATTRIBUTE ڌصlgll‎ 
a تخزين ملف ما ضمن ع×ع البرنامج أثناء التطوير واستعادته أثناء التشغيل‎ 


367 


تشفير الأسرار للمستخدم الحالي OD A AS REA‏ 
توجيهات المعالج SAGO aseno‏ 
كيف تجعل لنافذة برنامج ظلا AP E E SA es e‏ 
كيف تقوم بعمل أيقونة خاصة لتحكمك الخاص A AO AG SDE‏ 
لماذا يأخذ كودك وقتا طويلا أثناء التنفيذ O O ER‏ 8 
ملفات المصادر وتخصيص البرliمج PO EYEE RESOURCES AND LOCALIZAT1ON lla‏ 8 
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